OLD | NEW |
(Empty) | |
| 1 #!/usr/bin/perl |
| 2 |
| 3 use strict; |
| 4 use Test::More tests => 4; |
| 5 |
| 6 BEGIN { |
| 7 $ENV{ PERL_JSON_BACKEND } = $ARGV[0] || 'JSON::backportPP'; |
| 8 } |
| 9 |
| 10 use JSON; |
| 11 |
| 12 # reported by https://rt.cpan.org/Public/Bug/Display.html?id=68359 |
| 13 |
| 14 eval { JSON->to_json( 5, { allow_nonref => 1 } ) }; |
| 15 ok($@); |
| 16 |
| 17 is( q{"5"}, JSON::to_json( "5", { allow_nonref => 1 } ) ); |
| 18 is( q{5}, JSON::to_json( 5, { allow_nonref => 1 } ) ); |
| 19 is( q{"JSON"}, JSON::to_json( 'JSON', { allow_nonref => 1 } ) ); |
OLD | NEW |