Parent Directory | Revision Log | Patch
revision 562 by dpavlin, Thu Nov 27 21:04:35 2008 UTC | revision 718 by dpavlin, Thu Dec 4 18:33:25 2008 UTC | |
---|---|---|
# | Line 10 use Data::Dump qw/dump/; | Line 10 use Data::Dump qw/dump/; |
10 | my $debug = @ARGV ? 1 : 0; | my $debug = @ARGV ? 1 : 0; |
11 | ||
12 | BEGIN { | BEGIN { |
13 | use_ok('Frey::Web'); | use_ok('Frey::Session'); |
14 | } | } |
15 | ||
16 | { | { |
# | Line 30 foreach my $nr ( 0, 1, 2, 42 ) { | Line 30 foreach my $nr ( 0, 1, 2, 42 ) { |
30 | cmp_ok( $o->usage->{test}, '=', 42, "read $nr" ); | cmp_ok( $o->usage->{test}, '=', 42, "read $nr" ); |
31 | } | } |
32 | ||
33 | ok( my $data = $o->as_data, 'data' ); | ok( my $data = $o->session_as_data, 'session_as_data' ); |
34 | diag $data if $debug; | diag $data if $debug; |
35 | ||
36 | ok( $o->TODO( "test,ignore" ), 'TODO' ); | ok( $o->TODO( "test,ignore" ), 'TODO' ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |