Parent Directory | Revision Log | Patch
revision 24 by dpavlin, Sun Jun 29 16:29:09 2008 UTC | revision 100 by dpavlin, Fri Jul 11 19:19:42 2008 UTC | |
---|---|---|
# | Line 4 use warnings; | Line 4 use warnings; |
4 | ||
5 | my $debug = @ARGV ? 1 : 0; | my $debug = @ARGV ? 1 : 0; |
6 | ||
7 | use Test::More tests => 8; | use Test::More tests => 6; |
8 | use lib 'lib'; | use lib 'lib'; |
9 | ||
10 | #use Devel::LeakTrace::Fast; | #use Devel::LeakTrace::Fast; |
# | Line 24 is( $o->meta->name, 'Frey', 'meta->name' | Line 24 is( $o->meta->name, 'Frey', 'meta->name' |
24 | ||
25 | ok( defined $o->debug, 'debug' ); | ok( defined $o->debug, 'debug' ); |
26 | ||
ok( my $classes = $o->classes, 'classes' ); | ||
diag dump( $classes ) if $debug; | ||
ok( $o->classes, 'classes again' ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |