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