use Test::More tests => 4; use strict; use warnings; use_ok( 'XML::Atom::Feed::JavaScript' ); my $feed = XML::Atom::Feed::JavaScript->new(Stream => 't/feed.xml'); my $expected = <<'JAVASCRIPT_TEXT'; document.write('
'); document.write('
dive into atom
'); document.write(''); document.write('
'); JAVASCRIPT_TEXT my $expected_max = <<'JAVASCRIPT_TEXT'; document.write('
'); document.write('
dive into atom
'); document.write(''); document.write('
'); JAVASCRIPT_TEXT is( $feed->asJavascript(), $expected, 'asJavascript' ); is( $feed->asJavascript( 1 ), $expected_max, 'asJavascript( max )' ); is( $feed->asJavascript( 20 ), $expected, 'asJavascript( max too big )' );