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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
|
#!/usr/bin/perl
use v5.14;
use warnings;
use Test2::V0;
use lib ".";
require "examples/parse-jsonlike.pl";
my $parser = JsonlikeParser->new;
sub test
{
my ( $str, $expect, $name ) = @_;
is( $parser->from_string( $str ), $expect, $name );
}
test q[123],
123,
"Number";
test q["Hello"],
"Hello",
"String";
test q([1, 2, 3]),
[ 1, 2, 3 ],
"Flat list";
test q([[10, 20], [30, 40]]),
[ [ 10, 20 ], [ 30, 40 ] ],
"Nested list";
test q[{one: 1, two: 2}],
{ one => 1, two => 2 },
"Flat dict";
test q[{numbers: {three: 3, four: 4}}],
{ numbers => { three => 3, four => 4 } },
"Nested dict";
done_testing;
|