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)" ); }