PXElator/t/progress_bar.t

#!/usr/bin/perl

use warnings;
use strict;
use autodie;

use Test::More tests => 4;

use_ok 'progress_bar';

ok( progress_bar::start(), 'start' );
ok( ! progress_bar::tick( 'file', 0, 0 ),  'no tick'  );
my $pos = 0;
while ( ! progress_bar::tick( 'file', $pos++, 42 ) ) { print STDERR "."; sleep 1 };
ok( $pos > 0, 'got tick' );
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5	use autodie;
6
7	use Test::More tests => 4;
8
9	use_ok 'progress_bar';
10
11	ok( progress_bar::start(), 'start' );
12	ok( ! progress_bar::tick( 'file', 0, 0 ), 'no tick' );
13	my $pos = 0;
14	while ( ! progress_bar::tick( 'file', $pos++, 42 ) ) { print STDERR "."; sleep 1 };
15	ok( $pos > 0, 'got tick' );