--- M6502/t/10-orao.t	2007/08/02 12:23:18	90
+++ t/10-orao.t	2007/08/04 21:04:05	132
@@ -6,7 +6,7 @@
 use blib;
 use lib './lib';
 
-use Test::More tests => 19;
+use Test::More tests => 21;
 use Test::Exception;
 use Data::Dump qw/dump/;
 
@@ -25,7 +25,13 @@
 
 is_deeply( $orao->prefs, { scale => 1, show_mem => 0, debug => 0, trace => 0 }, 'prefs' );
 
-ok( $orao->boot, 'boot' );
+*Orao::loop = sub {
+	my $self = shift;
+	isa_ok( $self->app, 'SDL::App' );
+	isa_ok( $self->event, 'SDL::Event' );
+};
+
+ok( $orao->run, 'run' );
 
 sub test_mem {
 	my $a = shift;