/[VRac]/M6502/t/01-arch.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /M6502/t/01-arch.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

ACME-6502/t/01-orao.t revision 21 by dpavlin, Mon Jul 30 08:54:18 2007 UTC M6502/t/01-arch.t revision 33 by dpavlin, Mon Jul 30 21:00:36 2007 UTC
# Line 9  use Test::More tests => 6; Line 9  use Test::More tests => 6;
9  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
10    
11  BEGIN {  BEGIN {
12  use_ok( 'Orao' );  use_ok( 'Arch' );
13  }  }
14    
15  ok( my $orao = Orao->new({  ok( my $orao = Arch->new({
16          mmu => sub {},          mmu => sub {},
17  }), 'new' );  }), 'new' );
18  isa_ok( $orao, 'Orao' );  isa_ok( $orao, 'Arch' );
19    
20  my @v = ( 0xff, 0x00, 0xff, 0xaa );  my @v = ( 0xff, 0x00, 0xff, 0xaa );
21    
22  $orao->poke_code( 0x1000, @v );  $orao->poke_code( 0x1000, @v );
23    
24    diag dump( $orao->ram( 0x1000, 0x1004 ) );
25    
26  is_deeply( [ $orao->ram( 0x1000, 0x1004 ) ], [ @v ], 'ram' );  is_deeply( [ $orao->ram( 0x1000, 0x1004 ) ], [ @v ], 'ram' );
27  is_deeply( [ $orao->ram( 0x1000, 0x1004 ) ], [ @v ], 'ram doesn\'t mutate' );  is_deeply( [ $orao->ram( 0x1000, 0x1004 ) ], [ @v ], 'ram doesn\'t mutate' );
28    
Legend:
Removed from v.21  
changed lines
  Added in v.33
  ViewVC Help
Powered by ViewVC 1.1.26