diff options
author | Steven Schubiger <stsc@refcnt.org> | 2015-09-30 16:14:11 +0200 |
---|---|---|
committer | Steven Schubiger <stsc@refcnt.org> | 2015-09-30 16:14:11 +0200 |
commit | 7f313b1c22e61541aea2bcbe666639e05e69c9ad (patch) | |
tree | 18c7f55a23e8c53cbbcbc3270b5973b1c483472c /test.pl | |
parent | 3582f0672895201b3c460c4aeec9fa7b8ee7480f (diff) | |
parent | f77dfa416cafc1a9db80349b31e6cb82e7f0491d (diff) | |
download | colorize-7f313b1c22e61541aea2bcbe666639e05e69c9ad.tar.gz colorize-7f313b1c22e61541aea2bcbe666639e05e69c9ad.tar.bz2 |
Merge branch 'merge_part_line'
When cleaning lines with --clean[-all], reduce allocating space
for the partial line in memory. Previously, string concatenation
may have lead to excessive use of memory.
Diffstat (limited to 'test.pl')
-rwxr-xr-x | test.pl | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -8,6 +8,7 @@ use constant false => 0; use File::Temp qw(tempfile tempdir tmpnam); use IPC::Open3 qw(open3); use Symbol qw(gensym); +use Test::Harness qw(runtests); use Test::More; my $tests = 25; @@ -30,6 +31,11 @@ my $write_to_tmpfile = sub return $tmpfile; }; +{ + my @test_files = glob('t/*.t'); + runtests(@test_files); +} + plan tests => $tests; SKIP: { @@ -139,9 +145,9 @@ SKIP: { my $switch = "--$type"; - # Check that line chunks are merged when cleaning text + # Check that line chunks are printed when cleaning text without sequences my $short_text = 'Linux dev 2.6.32-5-openvz-686 #1 SMP Sun Sep 23 11:40:07 UTC 2012 i686 GNU/Linux'; - is(qx(echo -n "$short_text" | $program_buf $switch), $short_text, "merge ${\length $short_text} bytes (BUF_SIZE=$BUF_SIZE{short}, $type)"); + is(qx(echo -n "$short_text" | $program_buf $switch), $short_text, "print ${\length $short_text} bytes (BUF_SIZE=$BUF_SIZE{short}, $type)"); }; SKIP: { |