1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
|
# (X)Emacs mode: -*- cperl -*-
use strict;
use warnings;
=head1 Unit Test Package for Term::ProgressBar
This package tests the name functionality of Term::ProgressBar.
=cut
use Test::More tests => 21;
use Test::Exception;
use Test::Warnings;
use Capture::Tiny qw(capture_stderr);
my $MESSAGE1 = 'The Gospel of St. Jude';
my $NAME1 = 'Algenon';
my $NAME2 = 'Smegma';
use_ok 'Term::ProgressBar';
Term::ProgressBar->__force_term (50);
# -------------------------------------
=head2 Tests 2--10: Count 1-10
Create a progress bar with 10 things, and a name 'Algenon'.
Update it it from 1 to 10.
(1) Check no exception thrown on creation
(2) Check no exception thrown on update (1..3)
(3) Check bar number is 30%
(4) Check bar is 30% along
(5) Check no exception thrown on message send
(6) Check no exception thrown on update (6..10)
(7) Check message seen
(8) Check bar is complete
(9) Check bar number is 100%
=cut
{
my $p;
my $err = capture_stderr {
lives_ok {
$p = Term::ProgressBar->new({count => 10, name => $NAME1});
} 'Count 1-10 ( 1)';
lives_ok { $p->update($_) for 1..3 } 'Count 1-10 ( 2)';
};
$err =~ s!^.*\r!!gm;
diag "ERR (1) :\n$err\nlength: " . length($err)
if $ENV{TEST_DEBUG};
my @lines = split /\n/, $err;
like $lines[-1], qr/^@{[$NAME1]}: \s*\b30%/, 'Count 1-10 ( 3)';
my ($bar, $space) = $lines[-1] =~ /\[(=*)(\s*)\]/;
my $length = length($bar) + length($space);
print STDERR
("LENGTHS (1) :BAR:", length($bar), ":SPACE:", length($space), "\n")
if $ENV{TEST_DEBUG};
my $barexpect = $length * 0.3;
cmp_ok length($bar), '>', $barexpect -1;
cmp_ok length($bar), '<', $barexpect+1;
$err = capture_stderr {
lives_ok { $p->message($MESSAGE1) } 'Count 1-10 ( 5)';
lives_ok { $p->update($_) for 6..10 } 'Count 1-10 ( 6)';
};
$err =~ s!^.*\r!!gm;
diag "ERR (2) :\n$err\nlength: " . length($err)
if $ENV{TEST_DEBUG};
@lines = split /\n/, $err;
is $lines[0], $MESSAGE1, 'Count 1-10 ( 7)';
like $lines[-1], qr/\[=+\]/, 'Count 1-10 ( 8)';
like $lines[-1], qr/^@{[$NAME1]}: \s*100%/, 'Count 1-10 ( 9)';
}
# -------------------------------------
=head2 Tests 11--20: Count 1-20
Create a progress bar with 20 things, and a name 'Smegma'.
Update it it from 1 to 20.
Use v1 mode
(1) Check no exception thrown on creation
(2) Check no exception thrown on update (1..12)
(3) Check bar number is 60%
(4) Check bar is 60% along
(5) Check no exception thrown on message send
(6) Check no exception thrown on update (13..20)
(7) Check message seen
(8) Check bar is complete
(9) Check bar number is 100%
=cut
{
my $p;
my $err = capture_stderr {
lives_ok { $p = Term::ProgressBar->new($NAME2, 10); } 'Count 1-10 ( 1)';
lives_ok { $p->update($_) for 1..3 } 'Count 1-10 ( 2)';
};
$err =~ s!^.*\r!!gm;
diag "ERR (1) :\n$err\nlength: " . length($err)
if $ENV{TEST_DEBUG};
my @lines = split /\n/, $err;
like $lines[-1], qr/^@{[$NAME2]}: \s*\b30%/, 'Count 1-10 ( 3)';
my ($bar, $space) = $lines[-1] =~ /(\#*)(\s*)/;
my $length = length($bar) + length($space);
diag
("LENGTHS (1) :BAR:" . length($bar) . ":SPACE:" . length($space))
if $ENV{TEST_DEBUG};
my $barexpect = $length * 0.3;
cmp_ok length($bar), '>', $barexpect -1;
cmp_ok length($bar), '<', $barexpect+1;
$err = capture_stderr {
lives_ok { $p->message($MESSAGE1) } 'Count 1-10 ( 5)';
lives_ok { $p->update($_) for 6..10 } 'Count 1-10 ( 6)';
};
$err =~ s!^.*\r!!gm;
diag "ERR (2) :\n$err\nlength: " . length($err)
if $ENV{TEST_DEBUG};
@lines = split /\n/, $err;
like $lines[-1], qr/^@{[$NAME2]}: \s*\d+% \#*$/, 'Count 1-10 ( 8)';
like $lines[-1], qr/^@{[$NAME2]}: \s*100%/, 'Count 1-10 ( 9)';
}
# -------------------------------------
|