/[VRac]/t/10-orao.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /t/10-orao.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 89 by dpavlin, Thu Aug 2 12:01:09 2007 UTC revision 90 by dpavlin, Thu Aug 2 12:23:18 2007 UTC
# Line 6  use strict; Line 6  use strict;
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    
# Line 14  BEGIN { Line 14  BEGIN {
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    
# Line 51  sub test_mem { Line 51  sub test_mem {
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    
Legend:
Removed from v.89  
changed lines
  Added in v.90
  ViewVC Help
Powered by ViewVC 1.1.26