Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |