--- M6502/t/07-tape.t	2007/08/03 10:29:33	109
+++ t/07-tape.t	2007/08/04 21:04:05	132
@@ -29,5 +29,7 @@
 	ok( $buff .= chr($tape->read_tape), 'read_tape' );
 }
 
-cmp_ok( $buff, 'eq', substr($tape->tape, 0, $len), 'no tape error :-)' );
+my $expect = "\0\0\xFF\xFF\0\0\xFF\xFF\0\0";
+
+cmp_ok( $buff, 'eq', $expect, 'no tape error :-)' );