diff options
| author | Hyunjee Kim <hj0426.kim@samsung.com> | 2020-03-17 09:38:42 +0900 |
|---|---|---|
| committer | Hyunjee Kim <hj0426.kim@samsung.com> | 2020-03-17 10:32:30 +0900 |
| commit | 8d2a41273a56a33a291d292c1fbee03cce290694 (patch) | |
| tree | d2e93626e62e86e0be5696b4ce240d0af7376a6a /t/xe20_croak_message.t | |
| parent | c5bbcb68877d7b8bdb968a69aa62b3b90853cb3f (diff) | |
| download | perl-json-8d2a41273a56a33a291d292c1fbee03cce290694.tar.gz perl-json-8d2a41273a56a33a291d292c1fbee03cce290694.tar.bz2 perl-json-8d2a41273a56a33a291d292c1fbee03cce290694.zip | |
Imported Upstream version 4.02upstream/4.02
Change-Id: I549bbbd41e3db39e6fd6f2b1f2c4c94b94071018
Signed-off-by: Hyunjee Kim <hj0426.kim@samsung.com>
Diffstat (limited to 't/xe20_croak_message.t')
| -rw-r--r-- | t/xe20_croak_message.t | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/t/xe20_croak_message.t b/t/xe20_croak_message.t new file mode 100644 index 0000000..71621c7 --- /dev/null +++ b/t/xe20_croak_message.t @@ -0,0 +1,28 @@ +# https://rt.cpan.org/Public/Bug/Display.html?id=61708 + +use strict; +use Test::More; + +BEGIN { plan tests => 1 }; +BEGIN { $ENV{PERL_JSON_BACKEND} ||= 1; } + +use JSON -support_by_pp; +#use JSON; # currently it can't pass with -support_by_pp; + + +SKIP: { + skip "can't use JSON::XS.", 1, unless( JSON->backend->is_xs ); + + my $json = JSON->new; + + my $res = eval q{ $json->encode( undef ) }; + my $error = $@; + + # JSON::XS/JSON::PP 4.0 allow nonref by default + if ($json->get_allow_nonref) { + is $res => 'null'; + } else { + like( $error, qr/line 1\./ ); + } +} + |