1 # (X)Emacs mode: -*- cperl -*-
6 =head1 Unit Test Package for Term::ProgressBar
8 This package tests the basic functionality of Term::ProgressBar.
12 use Test::More tests => 9;
15 use Capture::Tiny qw(capture_stderr);
17 use Term::ProgressBar;
19 Term::ProgressBar->__force_term (50);
21 # -------------------------------------
23 =head2 Tests 2--10: Count 1-10
25 Create a progress bar with 10 things. Invoke ETA and name on it.
26 Update it it from 1 to 10.
28 (1) Check no exception thrown on creation
29 (2) Check no exception thrown on update 1..5
30 (3) Check no exception thrown on message issued
31 (4) Check no exception thrown on update 6..10
32 (5) Check message seen
33 (6) Check bar is complete
34 (7) Check bar number is 100%
35 (8) Check --DONE-- issued
36 (9) Check estimation done
41 my $err = capture_stderr {
44 $p = Term::ProgressBar->new({count => 10, name => 'fred',
47 lives_ok { for (1..5) { $p->update($_); sleep 1 } }
49 lives_ok { $p->message('Hello Mum!') } 'Count 1-10 (3)';
50 lives_ok { for (6..10) { $p->update($_); sleep 1 } } 'Count 1-10 (4)';
53 my @lines = grep $_ ne '', split /[\n\r]+/, $err;
56 ok grep $_ eq 'Hello Mum!', @lines;
57 like $lines[-1], qr/\[=+\]/, 'Count 1-10 (6)';
58 like $lines[-1], qr/^fred: \s*100%/, 'Count 1-10 (7)';
59 like $lines[-1], qr/D[ \d]\dh\d{2}m\d{2}s$/, 'Count 1-10 (8)';
60 like $lines[-2], qr/ Left$/, 'Count 1-10 (9)';
63 # ----------------------------------------------------------------------------