The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

BRICAS / XML-RSS-JavaScript-0.65 / t / 12-as_json.t 

            

              
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
45
46

              
use strict;
use warnings;
use Test::More tests => 6;
use_ok( 'XML::RSS::JavaScript' );
my $rss = XML::RSS::JavaScript->new();
isa_ok( $rss, 'XML::RSS::JavaScript' );
$rss->channel(
    'title'       => 'title',
    'link'        => 'link',
    'description' => 'description'
);
$rss->add_item(
    'title'       => 'title1',
    'link'        => 'link1',
    'description' => 'desc1'
);
$rss->add_item(
    'title'       => 'title2',
    'link'        => 'link2',
    'description' => 'desc2'
);
my $expected = <<'JAVASCRIPT_TEXT';
if(typeof(RSSJSON) == 'undefined') RSSJSON = {}; RSSJSON.posts = [{u:"link1",d:"title1"},{u:"link2",d:"title2"}]
JAVASCRIPT_TEXT
chomp( $expected );
my $expected_max = <<'JAVASCRIPT_TEXT';
if(typeof(RSSJSON) == 'undefined') RSSJSON = {}; RSSJSON.posts = [{u:"link1",d:"title1"}]
JAVASCRIPT_TEXT
chomp( $expected_max );
my $expected_obj = <<'JAVASCRIPT_TEXT';
if(typeof(MyPosts) == 'undefined') MyPosts = {}; MyPosts.posts = [{u:"link1",d:"title1"},{u:"link2",d:"title2"}]
JAVASCRIPT_TEXT
chomp( $expected_obj );
is( $rss->as_json,      $expected,     'as_json' );
is( $rss->as_json( 1 ), $expected_max, 'as_json' );
is( $rss->as_json( 3 ), $expected,     'as_json( max too big )' );
is( $rss->as_json( undef, 'MyPosts' ),
    $expected_obj, 'as_json( custom object )' );