import perl 5.16.3 from CPAN - worked on by Andrew Fresh and myself

1 files changed, 55 insertions, 0 deletions

diff --git a/gnu/usr.bin/perl/cpan/JSON-PP/t/020_unknown.t b/gnu/usr.bin/perl/cpan/JSON-PP/t/020_unknown.t
new file mode 100644
index 00000000000..ef69338f43c
--- /dev/null
+++ b/gnu/usr.bin/perl/cpan/JSON-PP/t/020_unknown.t
@@ -0,0 +1,55 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+use Test::More;
+BEGIN { plan tests => 10 };
+BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+
+
+use strict;
+use JSON::PP;
+
+my $json = JSON::PP->new;
+
+eval q| $json->encode( [ sub {} ] ) |;
+ok( $@ =~ /encountered CODE/, $@ );
+
+eval q|  $json->encode( [ \-1 ] ) |;
+ok( $@ =~ /cannot encode reference to scalar/, $@ );
+
+eval q|  $json->encode( [ \undef ] ) |;
+ok( $@ =~ /cannot encode reference to scalar/, $@ );
+
+eval q|  $json->encode( [ \{} ] ) |;
+ok( $@ =~ /cannot encode reference to scalar/, $@ );
+
+$json->allow_unknown;
+
+is( $json->encode( [ sub {} ] ), '[null]' );
+is( $json->encode( [ \-1 ] ),    '[null]' );
+is( $json->encode( [ \undef ] ), '[null]' );
+is( $json->encode( [ \{} ] ),    '[null]' );
+
+
+SKIP: {
+
+    skip "this test is for Perl 5.8 or later", 2 if( $] < 5.008 );
+
+$json->allow_unknown(0);
+
+my $fh;
+open( $fh, '>hoge.txt' ) or die $!;
+
+eval q| $json->encode( [ $fh ] ) |;
+ok( $@ =~ /encountered GLOB/, $@ );
+
+$json->allow_unknown(1);
+
+is( $json->encode( [ $fh ] ),    '[null]' );
+
+close $fh;
+
+unlink('hoge.txt');
+
+}