3 use Test::More tests => 14;
8 use Data::Dump qw/dump/;
13 use_ok( 'WebPAC::Output::JSON' );
16 my $debug = shift @ARGV;
18 ok(my $abs_path = abs_path($0), "abs_path");
19 $abs_path =~ s#/[^/]*$#/#; #
20 diag "abs_path: $abs_path";
21 my $path = "$abs_path/out/test.js";
23 ok(my $out = new WebPAC::Output::JSON({ path => $path }), "new");
25 ok( $out->init, 'init' );
30 'display' => [ 'foo' ]
36 'display' => [ qw/a1 a2 s3 a4 a5/ ],
40 throws_ok { $out->add( ) } qr/need id/, 'add without params';
41 throws_ok { $out->add( 42 ) } qr/need ds/, 'add without ds';
43 ok( $out->add( 42, $ds ), 'add' );
45 ok( $out->add( 99, { foo => { display => 'foo' } } ), 'add another' );
49 ok( -e $out->path, "created $path" );
51 cmp_ok( $out->path, 'eq', $path, 'path' );
53 ok( my $items = read_file( $path ), 'read_file' );
55 ok( $items = jsonToObj( $items ), 'parse JSON' );
57 diag dump( $items ) if $debug;
61 { array => ["a1", "a2", "s3", "a4", "a5"], id => "id", source => ["foo"] },