File: cpanel.t

package info (click to toggle)
libjson-maybexs-perl 1.004000-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 164 kB
  • sloc: perl: 267; makefile: 2
file content (26 lines) | stat: -rw-r--r-- 514 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
use strict;
use warnings;
use Test::More 0.88;
use JSON::MaybeXS;

unless ( eval { require Cpanel::JSON::XS; 1 } ) {
    plan skip_all => 'No Cpanel::JSON::XS';
}

diag 'Using Cpanel::JSON::XS ', Cpanel::JSON::XS->VERSION;

is( JSON, 'Cpanel::JSON::XS', 'Correct JSON class' );

is( \&encode_json,
    \&Cpanel::JSON::XS::encode_json,
    'Correct encode_json function'
);

is( \&decode_json,
    \&Cpanel::JSON::XS::decode_json,
    'Correct encode_json function'
);

require './t/lib/is_bool.pm';

done_testing;