/[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

revision 132 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    }
Legend:
Removed from v.132  
changed lines
  Added in v.145
  ViewVC Help
Powered by ViewVC 1.1.26