6 |
use blib; |
use blib; |
7 |
use lib './lib'; |
use lib './lib'; |
8 |
|
|
9 |
use Test::More tests => 21; |
use Test::More tests => 27; |
10 |
use Test::Exception; |
use Test::Exception; |
11 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
12 |
|
|
59 |
test_mem( 0x7000 ); |
test_mem( 0x7000 ); |
60 |
dies_ok { $orao->poke_code( 0xf000, 1 ) } 'access to ro memory'; |
dies_ok { $orao->poke_code( 0xf000, 1 ) } 'access to ro memory'; |
61 |
|
|
62 |
|
my $path = '/tmp/foo'; |
63 |
|
unlink $path if -e $path; |
64 |
|
|
65 |
|
my $size = 0; |
66 |
|
|
67 |
|
foreach my $data ( qw/a b c foo bar aaaabbbbccccddddeeeeffff/ ) { |
68 |
|
VRac->append_to_file( $path, $data ); |
69 |
|
$size += length($data); |
70 |
|
cmp_ok(-s $path, '==', $size); |
71 |
|
} |