M6502/t/05-M6502.t

#!/usr/bin/perl

use warnings;
use strict;

use blib;
use lib './lib';

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

BEGIN {
use_ok( 'M6502' );
}

cmp_ok( $PC, '==', 0xbeef, 'PC' );

ok( M6502::reset(), 'reset' );

diag dump_R();

cmp_ok( $PC, '==', 0x4242, 'PC' );


ok( M6502::reset(), 'reset again' );
1	dpavlin	83	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use blib;
7			use lib './lib';
8
9	dpavlin	84	use Test::More tests => 5;
10	dpavlin	83	use Test::Exception;
11			use Data::Dump qw/dump/;
12
13			BEGIN {
14			use_ok( 'M6502' );
15			}
16
17	dpavlin	86	cmp_ok( $PC, '==', 0xbeef, 'PC' );
18
19	dpavlin	83	ok( M6502::reset(), 'reset' );
20
21	dpavlin	86	diag dump_R();
22
23			cmp_ok( $PC, '==', 0x4242, 'PC' );
24
25
26	dpavlin	83	ok( M6502::reset(), 'reset again' );