M6502/t/01-arch.t

#!/usr/bin/perl

use warnings;
use strict;

use lib './lib';

use Test::More tests => 6;
use Data::Dump qw/dump/;

BEGIN {
use_ok( 'Arch' );
}

ok( my $orao = Arch->new({
        mmu => sub {},
}), 'new' );
isa_ok( $orao, 'Arch' );

my @v = ( 0xff, 0x00, 0xff, 0xaa );

$orao->poke_code( 0x1000, @v );

diag dump( $orao->ram( 0x1000, 0x1004 ) );

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' );
1	dpavlin	15	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use lib './lib';
7
8	dpavlin	21	use Test::More tests => 6;
9			use Data::Dump qw/dump/;
10	dpavlin	15
11			BEGIN {
12	dpavlin	33	use_ok( 'Arch' );
13	dpavlin	15	}
14
15	dpavlin	33	ok( my $orao = Arch->new({
16	dpavlin	19	mmu => sub {},
17	dpavlin	15	}), 'new' );
18	dpavlin	33	isa_ok( $orao, 'Arch' );
19	dpavlin	21
20			my @v = ( 0xff, 0x00, 0xff, 0xaa );
21
22			$orao->poke_code( 0x1000, @v );
23
24	dpavlin	30	diag dump( $orao->ram( 0x1000, 0x1004 ) );
25
26	dpavlin	21	is_deeply( [ $orao->ram( 0x1000, 0x1004 ) ], [ @v ], 'ram' );
27			is_deeply( [ $orao->ram( 0x1000, 0x1004 ) ], [ @v ], 'ram doesn\'t mutate' );
28
29			$orao->poke_code( 0x1004, 0x11, 0x22, 0x33, 0x44 );
30
31			like( $orao->hexdump( 0x1000, 0x1004 ), qr/1000 ff 00 ff aa 11 22 33 44/, 'hexdump' );