Parent Directory | Revision Log | Patch
revision 308 by dpavlin, Wed Nov 5 19:13:01 2008 UTC | revision 330 by dpavlin, Fri Nov 7 20:46:10 2008 UTC | |
---|---|---|
# | Line 43 my $test = { | Line 43 my $test = { |
43 | ||
44 | foreach my $p ( keys %$test ) { | foreach my $p ( keys %$test ) { |
45 | ok( my ( $meta, $is_role ) = $o->class_meta( $p ), "load_package( $p )" ); | ok( my ( $meta, $is_role ) = $o->class_meta( $p ), "load_package( $p )" ); |
46 | is( $is_role, $test->{$p}, 'check role' ); | is( $is_role, $test->{$p}, $is_role ? 'role' : 'not role' ); |
47 | diag $meta->dump(2) if $debug; | diag $meta->dump(2) if $debug; |
48 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |