6 |
use blib; |
use blib; |
7 |
use lib './lib'; |
use lib './lib'; |
8 |
|
|
9 |
use Test::More tests => 21; |
use Test::More tests => 27; |
10 |
use Test::Exception; |
use Test::Exception; |
11 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
12 |
|
|
29 |
my $self = shift; |
my $self = shift; |
30 |
isa_ok( $self->app, 'SDL::App' ); |
isa_ok( $self->app, 'SDL::App' ); |
31 |
isa_ok( $self->event, 'SDL::Event' ); |
isa_ok( $self->event, 'SDL::Event' ); |
32 |
|
|
33 |
|
my $path = '/tmp/foo'; |
34 |
|
unlink $path if -e $path; |
35 |
|
|
36 |
|
my $size = 0; |
37 |
|
|
38 |
|
foreach my $data ( qw/a b c foo bar aaaabbbbccccddddeeeeffff/ ) { |
39 |
|
VRac->append_to_file( $path, $data ); |
40 |
|
$size += length($data); |
41 |
|
cmp_ok(-s $path, '==', $size); |
42 |
|
} |
43 |
}; |
}; |
44 |
|
|
45 |
ok( $orao->run, 'run' ); |
ok( $orao->run, 'run' ); |