1use strict;
2use warnings;
3
4use Test::More;
5BEGIN { plan tests => 10 };
6BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
7
8use JSON::PP;
9
10my $json = JSON::PP->new;
11
12eval q| $json->encode( [ sub {} ] ) |;
13ok( $@ =~ /encountered CODE/, $@ );
14
15eval q|  $json->encode( [ \-1 ] ) |;
16ok( $@ =~ /cannot encode reference to scalar/, $@ );
17
18eval q|  $json->encode( [ \undef ] ) |;
19ok( $@ =~ /cannot encode reference to scalar/, $@ );
20
21eval q|  $json->encode( [ \{} ] ) |;
22ok( $@ =~ /cannot encode reference to scalar/, $@ );
23
24$json->allow_unknown;
25
26is( $json->encode( [ sub {} ] ), '[null]' );
27is( $json->encode( [ \-1 ] ),    '[null]' );
28is( $json->encode( [ \undef ] ), '[null]' );
29is( $json->encode( [ \{} ] ),    '[null]' );
30
31
32$json->allow_unknown(0);
33
34my $fh;
35open( $fh, '>hoge.txt' ) or die $!;
36
37eval q| $json->encode( [ $fh ] ) |;
38ok( $@ =~ /encountered GLOB|cannot encode reference to scalar/, $@ );
39
40$json->allow_unknown(1);
41
42is( $json->encode( [ $fh ] ),    '[null]' );
43
44close $fh;
45
46unlink('hoge.txt');
47