1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl
use Test::More tests => 8;
BEGIN { use_ok('XML::RSS::Feed') }
my $feed = XML::RSS::Feed->new(
url => "http://www.jbisbee.com/rdf/",
name => 'jbisbee',
);
isa_ok( $feed, 'XML::RSS::Feed' );
$SIG{__WARN__} = build_warn("deprecated");
cmp_ok( $feed->failed_to_fetch, 'eq', "",
"Verify that failed_to_fetch returns ''" );
cmp_ok( $feed->failed_to_parse, 'eq', "",
"Verify that failed_to_parse returns ''" );
sub build_warn {
my @args = @_;
return sub { my ($warn) = @_; like( $warn, qr/$_/i, $_ ) for @args };
}
|
