The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More tests => 4;

use strict;
use warnings;

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'
);

{
    eval { $rss->save_json; };
    like( $@, qr/You must pass in a filename/, 'save_json (no file)' );
}

{
    eval { $rss->save_json( 't' ); };
    like( $@, qr/Cannot open file/, "save_json (can't write file)" );
}