trunk/t/03-frey-classbrowser.t

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

my $debug = @ARGV ? 1 : 0;

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

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

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

ok( my $o = Frey::ClassBrowser->new( fey_class => 'Strix::User', debug => $debug ), 'new' );
isa_ok( $o, 'Frey::ClassBrowser' );
diag dump( $o ) if $debug;

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

like( $h, qr/Frey::ClassBrowser/, 'found me' );
1	#!/usr/bin/perl
2	use strict;
3	use warnings;
4
5	my $debug = @ARGV ? 1 : 0;
6
7	use Test::More tests => 5;
8	use lib 'lib';
9
10	#use Devel::LeakTrace::Fast;
11	use Data::Dump qw/dump/;
12
13	BEGIN {
14	use_ok('Frey::ClassBrowser');
15	}
16
17	ok( my $o = Frey::ClassBrowser->new( fey_class => 'Strix::User', debug => $debug ), 'new' );
18	isa_ok( $o, 'Frey::ClassBrowser' );
19	diag dump( $o ) if $debug;
20
21	ok( my $h = $o->markup, 'markup' );
22	diag $h if $debug;
23
24	like( $h, qr/Frey::ClassBrowser/, 'found me' );