/[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 153 by dpavlin, Sun Aug 5 16:06:29 2007 UTC revision 154 by dpavlin, Sun Aug 5 16:27:46 2007 UTC
# Line 29  is_deeply( $orao->prefs, { scale => 1, s Line 29  is_deeply( $orao->prefs, { scale => 1, s
29          my $self = shift;          my $self = shift;
30          isa_ok( $self->app, 'SDL::App' );          isa_ok( $self->app, 'SDL::App' );
31          isa_ok( $self->event, 'SDL::Event' );          isa_ok( $self->event, 'SDL::Event' );
32    
33            my $path = '/tmp/foo';
34            unlink $path if -e $path;
35    
36            my $size = 0;
37    
38            foreach my $data ( qw/a b c foo bar aaaabbbbccccddddeeeeffff/ ) {
39                    VRac->append_to_file( $path, $data );
40                    $size += length($data);
41                    cmp_ok(-s $path, '==', $size);
42            }
43  };  };
44    
45  ok( $orao->run, 'run' );  ok( $orao->run, 'run' );
# Line 59  test_mem( 0x6000 ); Line 70  test_mem( 0x6000 );
70  test_mem( 0x7000 );  test_mem( 0x7000 );
71  dies_ok { $orao->poke_code( 0xf000, 1 ) } 'access to ro memory';  dies_ok { $orao->poke_code( 0xf000, 1 ) } 'access to ro memory';
72    
 my $path = '/tmp/foo';  
 unlink $path if -e $path;  
   
 my $size = 0;  
   
 foreach my $data ( qw/a b c foo bar aaaabbbbccccddddeeeeffff/ ) {  
         VRac->append_to_file( $path, $data );  
         $size += length($data);  
         cmp_ok(-s $path, '==', $size);  
 }  
Legend:
Removed from v.153  
changed lines
  Added in v.154
  ViewVC Help
Powered by ViewVC 1.1.26