src/third_party/JSON/JSON-2.59/t/xe20_croak_message.t

   1
   2 # https://rt.cpan.org/Public/Bug/Display.html?id=61708
   3
   4 use strict;
   5 use Test::More;
   6
   7 BEGIN { plan tests => 1 };
   8 BEGIN { $ENV{PERL_JSON_BACKEND} = 1; }
   9
  10 use JSON; # currently it can't pass with -support_by_pp;
  11
  12
  13 SKIP: {
  14     skip "can't use JSON::XS.", 1, unless( JSON->backend->is_xs );
  15
  16     my $json = JSON->new;
  17
  18     eval q{ $json->encode( undef ) };
  19     like( $@, qr/line 1\./ );
  20 }
  21