6 |
use blib; |
use blib; |
7 |
use lib './lib'; |
use lib './lib'; |
8 |
|
|
9 |
use Test::More tests => 22; |
use Test::More tests => 19; |
10 |
use Test::Exception; |
use Test::Exception; |
11 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
12 |
|
|
14 |
use_ok( 'Orao' ); |
use_ok( 'Orao' ); |
15 |
} |
} |
16 |
|
|
17 |
ok( my $orao = Orao->new, 'new' ); |
ok( my $orao = Orao->new(), 'new' ); |
18 |
|
|
19 |
isa_ok( $orao, 'Orao' ); |
isa_ok( $orao, 'Orao' ); |
20 |
|
|
51 |
test_mem( 0x1000 ); |
test_mem( 0x1000 ); |
52 |
test_mem( 0x6000 ); |
test_mem( 0x6000 ); |
53 |
test_mem( 0x7000 ); |
test_mem( 0x7000 ); |
54 |
dies_ok { test_mem( 0xf000 ) } 'access to ro memory'; |
dies_ok { $orao->poke_code( 0xf000, 1 ) } 'access to ro memory'; |
55 |
|
|