%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/boolean-0.46/t/
Upload File :
Create Path :
Current File : /home/opti/optisoftcom/.cpanm/work/1544535406.20768/boolean-0.46/t/json.t

use strict; use warnings;
use Test::More tests => 3;
use boolean;
my $HAVE_JSON = eval { require JSON::MaybeXS };
SKIP: {
    skip "JSON is missing", 3 unless $HAVE_JSON;
    eval{
        my $json = JSON::MaybeXS->new->convert_blessed();
        is($json->encode({false => false}), '{"false":false}',
            'JSON false works');
        is($json->encode({true  => true}), '{"true":true}',
            'JSON true works');
        is(ref(boolean::TO_JSON(true)), 'SCALAR',
            'Make sure we can call boolean::TO_JSON($b)');
    };
    diag "$@" if $@;
};

Zerion Mini Shell 1.0