|
Packit |
a557cb |
use strict;
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
use Test::More;
|
|
Packit |
a557cb |
BEGIN { plan tests => 10 };
|
|
Packit |
a557cb |
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
use strict;
|
|
Packit |
a557cb |
use JSON;
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
my $json = JSON->new;
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
eval q| $json->encode( [ sub {} ] ) |;
|
|
Packit |
a557cb |
ok( $@ =~ /encountered CODE/, $@ );
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
eval q| $json->encode( [ \-1 ] ) |;
|
|
Packit |
a557cb |
ok( $@ =~ /cannot encode reference to scalar/, $@ );
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
eval q| $json->encode( [ \undef ] ) |;
|
|
Packit |
a557cb |
ok( $@ =~ /cannot encode reference to scalar/, $@ );
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
eval q| $json->encode( [ \{} ] ) |;
|
|
Packit |
a557cb |
ok( $@ =~ /cannot encode reference to scalar/, $@ );
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
$json->allow_unknown;
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
is( $json->encode( [ sub {} ] ), '[null]' );
|
|
Packit |
a557cb |
is( $json->encode( [ \-1 ] ), '[null]' );
|
|
Packit |
a557cb |
is( $json->encode( [ \undef ] ), '[null]' );
|
|
Packit |
a557cb |
is( $json->encode( [ \{} ] ), '[null]' );
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
SKIP: {
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
skip "this test is for Perl 5.8 or later", 2 if( $] < 5.008 );
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
$json->allow_unknown(0);
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
my $fh;
|
|
Packit |
a557cb |
open( $fh, '>hoge.txt' ) or die $!;
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
eval q| $json->encode( [ $fh ] ) |;
|
|
Packit |
a557cb |
ok( $@ =~ /encountered GLOB|cannot encode reference to scalar/, $@ );
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
$json->allow_unknown(1);
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
is( $json->encode( [ $fh ] ), '[null]' );
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
close $fh;
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
unlink('hoge.txt');
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
}
|