aboutsummaryrefslogtreecommitdiffstats
path: root/test.pl
diff options
context:
space:
mode:
authorGravatar Steven Schubiger <stsc@refcnt.org> 2013-07-04 11:12:45 +0200
committerGravatar Steven Schubiger <stsc@refcnt.org> 2013-07-04 11:12:45 +0200
commit8018e45de87a4dfd0b5a52d8b40f1958fa26fd73 (patch)
tree35dd5efdc51ffdd4e7671b80b09f51399d32df19 /test.pl
parentbc00d671241fb5509b81a13efdf50cae616610d0 (diff)
downloadcolorize-8018e45de87a4dfd0b5a52d8b40f1958fa26fd73.tar.gz
colorize-8018e45de87a4dfd0b5a52d8b40f1958fa26fd73.tar.bz2
Tighten scope of test
Diffstat (limited to 'test.pl')
-rwxr-xr-xtest.pl10
1 files changed, 6 insertions, 4 deletions
diff --git a/test.pl b/test.pl
index 056f818..a825ba7 100755
--- a/test.pl
+++ b/test.pl
@@ -102,10 +102,12 @@ 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');
+ {
+ 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');