zimbardo/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 = @ARGV ? 1 : 0;

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

ok( my $o = Frey::Mirror->new( uri => 'https://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	dpavlin	303	#!/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	dpavlin	532	my $debug = @ARGV ? 1 : 0;
11	dpavlin	303
12			BEGIN {
13			use_ok('Frey::Mirror');
14			}
15
16			ok( my $o = Frey::Mirror->new( uri => 'https://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