trunk/t/03-frey-classbrowser.t

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

my $debug = @ARGV ? 1 : 0;

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

#use Devel::LeakTrace::Fast;
use Data::Dump qw/dump/;

BEGIN {
        use_ok('Frey::Class::Browser');
}

ok( my $o = Frey::Class::Browser->new( debug => $debug ), 'new' );
isa_ok( $o, 'Frey::Class::Browser' );
diag dump( $o ) if $debug;

$o->load_class( 'Frey::DelIcioUs' ); # XXX load class which have as_sponge

ok( my $h = $o->as_markup, 'markup' );
diag "markup: $h" if $debug;

like( $h, qr/Frey::Class::Browser/, 'found me' );
like( $h, qr/$_/,   $_ ) foreach ( 'as_data', 'as_markup', 'as_sponge' );
1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	my $debug = @ARGV ? 1 : 0;
6
7	use Test::More tests => 8;
8	use lib 'lib';
9
10	#use Devel::LeakTrace::Fast;
11	use Data::Dump qw/dump/;
12
13	BEGIN {
14	use_ok('Frey::Class::Browser');
15	}
16
17	ok( my $o = Frey::Class::Browser->new( debug => $debug ), 'new' );
18	isa_ok( $o, 'Frey::Class::Browser' );
19	diag dump( $o ) if $debug;
20
21	$o->load_class( 'Frey::DelIcioUs' ); # XXX load class which have as_sponge
22
23	ok( my $h = $o->as_markup, 'markup' );
24	diag "markup: $h" if $debug;
25
26	like( $h, qr/Frey::Class::Browser/, 'found me' );
27	like( $h, qr/$_/, $_ ) foreach ( 'as_data', 'as_markup', 'as_sponge' );