M6502/t/01-arch.t

#!/usr/bin/perl

use warnings;
use strict;

use lib './lib';

use Test::More tests => 3;

BEGIN {
use_ok( 'Orao' );
}

ok( my $orao = Orao->new({
        vram => sub {},
        mem_acc => sub {},
}), 'new' );
isa_ok( $orao, 'Orao' );
1	dpavlin	15	#!/usr/bin/perl
2
3			use warnings;
4			use strict;
5
6			use lib './lib';
7
8			use Test::More tests => 3;
9
10			BEGIN {
11			use_ok( 'Orao' );
12			}
13
14			ok( my $orao = Orao->new({
15			vram => sub {},
16			mem_acc => sub {},
17			}), 'new' );
18			isa_ok( $orao, 'Orao' );