diff options
author | Steven Schubiger <stsc@refcnt.org> | 2013-07-04 11:12:45 +0200 |
---|---|---|
committer | Steven Schubiger <stsc@refcnt.org> | 2013-07-04 11:12:45 +0200 |
commit | 8018e45de87a4dfd0b5a52d8b40f1958fa26fd73 (patch) | |
tree | 35dd5efdc51ffdd4e7671b80b09f51399d32df19 | |
parent | bc00d671241fb5509b81a13efdf50cae616610d0 (diff) | |
download | colorize-8018e45de87a4dfd0b5a52d8b40f1958fa26fd73.tar.gz colorize-8018e45de87a4dfd0b5a52d8b40f1958fa26fd73.tar.bz2 |
Tighten scope of test
-rwxr-xr-x | test.pl | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -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'); |