t/eta-linear.t

   1 # (X)Emacs mode: -*- cperl -*-
   2
   3 use strict;
   4
   5 =head1 Unit Test Package for Term::ProgressBar
   6
   7 This package tests the basic functionality of Term::ProgressBar.
   8
   9 =cut
  10
  11 use Data::Dumper  qw( Dumper );
  12 use Test::More tests => 9;
  13 use Test::Exception;
  14
  15 =head2 Test 1: compilation
  16
  17 This test confirms that the test script and the modules it calls compiled
  18 successfully.
  19
  20 =cut
  21
  22 use Term::ProgressBar;
  23
  24 Term::ProgressBar->__force_term (50);
  25
  26 # -------------------------------------
  27
  28 =head2 Tests 2--10: Count 1-10
  29
  30 Create a progress bar with 10 things.  Invoke ETA and name on it.
  31 Update it it from 1 to 10.
  32
  33 (1) Check no exception thrown on creation
  34 (2) Check no exception thrown on update 1..5
  35 (3) Check no exception thrown on message issued
  36 (4) Check no exception thrown on update 6..10
  37 (5) Check message seen
  38 (6) Check bar is complete
  39 (7) Check bar number is 100%
  40 (8) Check --DONE-- issued
  41 (9) Check estimation done
  42
  43 =cut
  44
  45 use Capture::Tiny qw(capture);
  46
  47 my ($out, $err) = capture {
  48   my $p;
  49   lives_ok {
  50                 $p = Term::ProgressBar->new({count => 10, name => 'fred',
  51                                              ETA => 'linear'});
  52               } 'Count 1-10 (1)';
  53   lives_ok { for (1..5) { $p->update($_); sleep 1 } }
  54               'Count 1-10 (2)';
  55   lives_ok { $p->message('Hello Mum!') }  'Count 1-10 (3)';
  56   lives_ok { for (6..10) { $p->update($_); sleep 1 } } 'Count 1-10 (4)';
  57 };
  58 print $out;
  59   my @lines = grep $_ ne '', split /[\n\r]+/, $err;
  60   print Dumper \@lines
  61     if $ENV{TEST_DEBUG};
  62   ok grep $_ eq 'Hello Mum!', @lines;
  63   like $lines[-1], qr/\[=+\]/,                                  'Count 1-10 (6)';
  64   like $lines[-1], qr/^fred: \s*100%/,                          'Count 1-10 (7)';
  65   like $lines[-1], qr/D[ \d]\dh\d{2}m\d{2}s$/,                  'Count 1-10 (8)';
  66   like $lines[-2], qr/ Left$/,                                  'Count 1-10 (9)';
  67
  68
  69 # ----------------------------------------------------------------------------