trunk/t/01-frey-mirror.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 4;
use lib 'lib';

use Data::Dump qw/dump/;

my $debug = 1 if @ARGV;

BEGIN {
        use_ok('Frey::Mirror');
}

ok( my $o = Frey::Mirror->new( uri => 'http://blog.rot13.org/index.xml', debug => $debug ), 'new' );
diag $o->dump(2) if $debug;

ok( my $content = $o->content, 'content' );
diag $content if $debug;
like( $content, qr/rot13.org/, 'like' );

1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	use Test::More tests => 4;
6	use lib 'lib';
7
8	use Data::Dump qw/dump/;
9
10	my $debug = 1 if @ARGV;
11
12	BEGIN {
13	use_ok('Frey::Mirror');
14	}
15
16	ok( my $o = Frey::Mirror->new( uri => 'http://blog.rot13.org/index.xml', debug => $debug ), 'new' );
17	diag $o->dump(2) if $debug;
18
19	ok( my $content = $o->content, 'content' );
20	diag $content if $debug;
21	like( $content, qr/rot13.org/, 'like' );
22