1 |
dpavlin |
109 |
#!/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 |
dpavlin |
132 |
my $expect = "\0\0\xFF\xFF\0\0\xFF\xFF\0\0"; |
33 |
dpavlin |
109 |
|
34 |
dpavlin |
132 |
cmp_ok( $buff, 'eq', $expect, 'no tape error :-)' ); |
35 |
|
|
|