1 |
#!/usr/bin/perl |
2 |
|
3 |
use warnings; |
4 |
use strict; |
5 |
|
6 |
use blib; |
7 |
use lib './lib'; |
8 |
|
9 |
use Test::More tests => 18; |
10 |
use Data::Dump qw/dump/; |
11 |
|
12 |
BEGIN { |
13 |
use_ok( 'Tape' ); |
14 |
} |
15 |
|
16 |
ok( my $tape = Tape->new(), 'new' ); |
17 |
|
18 |
isa_ok( $tape, 'Tape' ); |
19 |
|
20 |
ok( ! $tape->tape, 'empty' ); |
21 |
ok( ! $tape->tape_pos, 'no pos' ); |
22 |
|
23 |
ok( $tape->load_tape( $0 ), 'load' ); |
24 |
cmp_ok( $tape->tape_pos, '==', 0, 'pos 0' ); |
25 |
|
26 |
my $buff; |
27 |
my $len = 10; |
28 |
for ( 1 .. $len ) { |
29 |
ok( $buff .= chr($tape->read_tape), 'read_tape' ); |
30 |
} |
31 |
|
32 |
my $expect = "\0\0\xFF\xFF\0\0\xFF\xFF\0\0"; |
33 |
|
34 |
cmp_ok( $buff, 'eq', $expect, 'no tape error :-)' ); |
35 |
|