From c4d422dc0f693d0fdbfc3225cea2007a84f3c55a Mon Sep 17 00:00:00 2001 From: Steven Schubiger Date: Sun, 3 Mar 2013 15:28:31 +0100 Subject: Test count of sequences being printed --- test.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/test.pl b/test.pl index c7db5bf..ecfe9a9 100755 --- a/test.pl +++ b/test.pl @@ -7,7 +7,7 @@ use constant true => 1; use File::Temp qw(tempfile tmpnam); use Test::More; -my $tests = 14; +my $tests = 15; my %BUF_SIZE = ( normal => 1024, @@ -69,6 +69,11 @@ SKIP: { is_deeply([split /\n/, qx(cat $infile2 | $program none/none)], [split /\n/, $repeated], "read ${\length $repeated} bytes (BUF_SIZE=$BUF_SIZE{normal})"); + my $colored_text = qx(echo "foo bar baz" | $program red); + my $sequences = 0; + $sequences++ while $colored_text =~ /\e\[\d+m/g; + is($sequences, 2, 'count of sequences printed'); + is(qx(echo -n "hello\nworld\r\n" | $program none/none), "hello\nworld\r\n", 'stream mode'); is(system("echo \"hello world\" | $program random --exclude-random=black >/dev/null 2>&1"), 0, 'switch exclude-random'); -- cgit v1.2.3