Parent Directory | Revision Log | Patch
M6502/t/10-orao.t revision 90 by dpavlin, Thu Aug 2 12:23:18 2007 UTC | t/10-orao.t revision 132 by dpavlin, Sat Aug 4 21:04:05 2007 UTC | |
---|---|---|
# | Line 6 use strict; | Line 6 use strict; |
6 | use blib; | use blib; |
7 | use lib './lib'; | use lib './lib'; |
8 | ||
9 | use Test::More tests => 19; | use Test::More tests => 21; |
10 | use Test::Exception; | use Test::Exception; |
11 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
12 | ||
# | Line 25 ok( ! $orao->trace( 0 ), 'trace' ); | Line 25 ok( ! $orao->trace( 0 ), 'trace' ); |
25 | ||
26 | is_deeply( $orao->prefs, { scale => 1, show_mem => 0, debug => 0, trace => 0 }, 'prefs' ); | is_deeply( $orao->prefs, { scale => 1, show_mem => 0, debug => 0, trace => 0 }, 'prefs' ); |
27 | ||
28 | ok( $orao->boot, 'boot' ); | *Orao::loop = sub { |
29 | my $self = shift; | |
30 | isa_ok( $self->app, 'SDL::App' ); | |
31 | isa_ok( $self->event, 'SDL::Event' ); | |
32 | }; | |
33 | ||
34 | ok( $orao->run, 'run' ); | |
35 | ||
36 | sub test_mem { | sub test_mem { |
37 | my $a = shift; | my $a = shift; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |