/[VRac]/t/07-tape.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/07-tape.t

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

M6502/t/07-tape.t revision 109 by dpavlin, Fri Aug 3 10:29:33 2007 UTC t/07-tape.t revision 132 by dpavlin, Sat Aug 4 21:04:05 2007 UTC
# Line 29  for ( 1 .. $len ) { Line 29  for ( 1 .. $len ) {
29          ok( $buff .= chr($tape->read_tape), 'read_tape' );          ok( $buff .= chr($tape->read_tape), 'read_tape' );
30  }  }
31    
32  cmp_ok( $buff, 'eq', substr($tape->tape, 0, $len), 'no tape error :-)' );  my $expect = "\0\0\xFF\xFF\0\0\xFF\xFF\0\0";
33    
34    cmp_ok( $buff, 'eq', $expect, 'no tape error :-)' );
35    
Legend:
Removed from v.109  
changed lines
  Added in v.132
  ViewVC Help
Powered by ViewVC 1.1.26