--- M6502/t/10-orao.t	2007/08/02 12:01:09	89
+++ M6502/t/10-orao.t	2007/08/02 12:23:18	90
@@ -6,7 +6,7 @@
 use blib;
 use lib './lib';
 
-use Test::More tests => 22;
+use Test::More tests => 19;
 use Test::Exception;
 use Data::Dump qw/dump/;
 
@@ -14,7 +14,7 @@
 use_ok( 'Orao' );
 }
 
-ok( my $orao = Orao->new, 'new' );
+ok( my $orao = Orao->new(), 'new' );
 
 isa_ok( $orao, 'Orao' );
 
@@ -51,5 +51,5 @@
 test_mem( 0x1000 );
 test_mem( 0x6000 );
 test_mem( 0x7000 );
-dies_ok { test_mem( 0xf000 ) } 'access to ro memory';
+dies_ok { $orao->poke_code( 0xf000, 1 ) } 'access to ro memory';