OLD | NEW |
---|---|
(Empty) | |
1 #! perl | |
2 | |
3 # https://rt.cpan.org/Public/Bug/Display.html?id=61708 | |
4 | |
5 use strict; | |
6 use Test::More; | |
7 | |
8 BEGIN { plan tests => 1 }; | |
9 BEGIN { $ENV{PERL_JSON_BACKEND} = 1; } | |
10 | |
11 use JSON; # currently it can't pass with -support_by_pp; | |
12 | |
13 | |
14 SKIP: { | |
15 skip "can't use JSON::XS.", 1, unless( JSON->backend->is_xs ); | |
16 | |
17 my $json = JSON->new; | |
18 | |
19 eval q{ $json->encode( undef ) }; | |
20 like( $@, qr/line 1\./ ); | |
21 } | |
22 | |
OLD | NEW |