--- ACME-6502/t/01-orao.t	2007/07/29 21:56:40	19
+++ ACME-6502/t/01-orao.t	2007/07/30 08:54:18	21
@@ -5,7 +5,8 @@
 
 use lib './lib';
 
-use Test::More tests => 3;
+use Test::More tests => 6;
+use Data::Dump qw/dump/;
 
 BEGIN {
 use_ok( 'Orao' );
@@ -15,3 +16,14 @@
 	mmu => sub {},
 }), 'new' );
 isa_ok( $orao, 'Orao' );
+
+my @v = ( 0xff, 0x00, 0xff, 0xaa );
+
+$orao->poke_code( 0x1000, @v );
+
+is_deeply( [ $orao->ram( 0x1000, 0x1004 ) ], [ @v ], 'ram' );
+is_deeply( [ $orao->ram( 0x1000, 0x1004 ) ], [ @v ], 'ram doesn\'t mutate' );
+
+$orao->poke_code( 0x1004, 0x11, 0x22, 0x33, 0x44 );
+
+like( $orao->hexdump( 0x1000, 0x1004 ), qr/1000 ff 00 ff aa 11 22 33 44/, 'hexdump' );