File: 010_deprecated_methods.t

package info (click to toggle)
libxml-rss-feed-perl 2.212-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, lenny, squeeze, wheezy
  • size: 268 kB
  • ctags: 111
  • sloc: perl: 2,583; makefile: 38
file content (23 lines) | stat: -rwxr-xr-x 555 bytes parent folder | download | duplicates (5) 
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 };
}