t/02_term_progressbar_io.t

   1 # -*- mode: cperl; -*-
   2 use Test::More;
   3
   4 use_ok('Term::ProgressBar::IO');
   5
   6 use IO::File;
   7 use Capture::Tiny qw(capture_stderr);
   8
   9 my $fh = IO::File->new('t/random_file','r') or
  10     die "Unable to open t/random_file for reading: $!";
  11
  12 Term::ProgressBar->__force_term (50);
  13
  14 my $pb;
  15 my $err = capture_stderr {
  16     $pb = Term::ProgressBar::IO->new($fh);
  17 };
  18
  19 ok($pb->target() == 9*2+3,'Correct number of bytes in __DATA__');
  20
  21 while (<$fh>) {
  22     $err = capture_stderr {
  23         $pb->update();
  24     };
  25 }
  26
  27 print STDERR $pb->last_update();
  28 ok($pb->last_update() == $pb->target(),'Last position is now target');
  29
  30 close($fh);
  31
  32 done_testing();