"Fossies" - the Fresh Open Source Software Archive

Member "perl-5.32.1/cpan/JSON-PP/t/000_load.t" (18 Dec 2020, 216 Bytes) of package /linux/misc/perl-5.32.1.tar.xz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 # copied over from JSON::XS and modified to use JSON::PP
    2 
    3 BEGIN { $| = 1; print "1..1\n"; }
    4 END {print "not ok 1\n" unless $loaded;}
    5 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
    6 
    7 use JSON::PP;
    8 $loaded = 1;
    9 print "ok 1\n";