Parent Directory | Revision Log | Patch
revision 144 by dpavlin, Sat Aug 4 21:04:05 2007 UTC | revision 145 by dpavlin, Sun Aug 5 13:27:27 2007 UTC | |
---|---|---|
# | Line 8 use lib './lib'; | Line 8 use lib './lib'; |
8 | ||
9 | use Test::More tests => 18; | use Test::More tests => 18; |
10 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
11 | use File::Slurp; | |
12 | ||
13 | BEGIN { | BEGIN { |
14 | use_ok( 'Tape' ); | use_ok( 'Tape' ); |
# | Line 33 my $expect = "\0\0\xFF\xFF\0\0\xFF\xFF\0 | Line 34 my $expect = "\0\0\xFF\xFF\0\0\xFF\xFF\0 |
34 | ||
35 | cmp_ok( $buff, 'eq', $expect, 'no tape error :-)' ); | cmp_ok( $buff, 'eq', $expect, 'no tape error :-)' ); |
36 | ||
37 | my $data = read_file( $0 ); | |
38 | ||
39 | foreach my $b ( split(//, $data) ) { | |
40 | $tape->write_tape( $b ); | |
41 | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |