- Removed regex support (controlled in main.h by #ifdef FEATURE_REGEX),
  because it has proven buggy.
This commit is contained in:
Paul Beckingham
2011-01-25 23:54:44 -05:00
parent 14f06e98b7
commit 06e15b6e25
4 changed files with 107 additions and 57 deletions

View File

@@ -28,7 +28,8 @@
use strict;
use warnings;
use Test::More tests => 180;
#use Test::More tests => 180;
use Test::More tests => 131;
# Create the rc file.
if (open my $fh, '>', 'filter.rc')
@@ -210,68 +211,68 @@ unlike ($output, qr/six/, 'r6');
unlike ($output, qr/seven/, 'r7');
# Regex filters.
$output = qx{../src/task rc:filter.rc list rc.regex:on project:[A-Z]};
like ($output, qr/one/, 's1');
like ($output, qr/two/, 's2');
like ($output, qr/three/, 's3');
unlike ($output, qr/four/, 's4');
unlike ($output, qr/five/, 's5');
unlike ($output, qr/six/, 's6');
unlike ($output, qr/seven/, 's7');
#$output = qx{../src/task rc:filter.rc list rc.regex:on project:[A-Z]};
#like ($output, qr/one/, 's1');
#like ($output, qr/two/, 's2');
#like ($output, qr/three/, 's3');
#unlike ($output, qr/four/, 's4');
#unlike ($output, qr/five/, 's5');
#unlike ($output, qr/six/, 's6');
#unlike ($output, qr/seven/, 's7');
$output = qx{../src/task rc:filter.rc list rc.regex:on project:.};
like ($output, qr/one/, 't1');
like ($output, qr/two/, 't2');
like ($output, qr/three/, 't3');
unlike ($output, qr/four/, 't4');
unlike ($output, qr/five/, 't5');
unlike ($output, qr/six/, 't6');
unlike ($output, qr/seven/, 't7');
#$output = qx{../src/task rc:filter.rc list rc.regex:on project:.};
#like ($output, qr/one/, 't1');
#like ($output, qr/two/, 't2');
#like ($output, qr/three/, 't3');
#unlike ($output, qr/four/, 't4');
#unlike ($output, qr/five/, 't5');
#unlike ($output, qr/six/, 't6');
#unlike ($output, qr/seven/, 't7');
$output = qx{../src/task rc:filter.rc rc.regex:on list fo\{2\}};
like ($output, qr/one/, 'u1');
unlike ($output, qr/two/, 'u2');
unlike ($output, qr/three/, 'u3');
unlike ($output, qr/four/, 'u4');
unlike ($output, qr/five/, 'u5');
like ($output, qr/six/, 'u6');
like ($output, qr/seven/, 'u7');
#$output = qx{../src/task rc:filter.rc rc.regex:on list fo\{2\}};
#like ($output, qr/one/, 'u1');
#unlike ($output, qr/two/, 'u2');
#unlike ($output, qr/three/, 'u3');
#unlike ($output, qr/four/, 'u4');
#unlike ($output, qr/five/, 'u5');
#like ($output, qr/six/, 'u6');
#like ($output, qr/seven/, 'u7');
$output = qx{../src/task rc:filter.rc rc.regex:on list f.. b..};
unlike ($output, qr/one/, 'v1');
unlike ($output, qr/two/, 'v2');
unlike ($output, qr/three/, 'v3');
unlike ($output, qr/four/, 'v4');
unlike ($output, qr/five/, 'v5');
unlike ($output, qr/six/, 'v6');
like ($output, qr/seven/, 'v7');
#$output = qx{../src/task rc:filter.rc rc.regex:on list f.. b..};
#unlike ($output, qr/one/, 'v1');
#unlike ($output, qr/two/, 'v2');
#unlike ($output, qr/three/, 'v3');
#unlike ($output, qr/four/, 'v4');
#unlike ($output, qr/five/, 'v5');
#unlike ($output, qr/six/, 'v6');
#like ($output, qr/seven/, 'v7');
$output = qx{../src/task rc:filter.rc rc.regex:on list ^s};
unlike ($output, qr/one/, 'w1');
unlike ($output, qr/two/, 'w2');
unlike ($output, qr/three/, 'w3');
unlike ($output, qr/four/, 'w4');
unlike ($output, qr/five/, 'w5');
like ($output, qr/six/, 'w6');
like ($output, qr/seven/, 'w7');
#$output = qx{../src/task rc:filter.rc rc.regex:on list ^s};
#unlike ($output, qr/one/, 'w1');
#unlike ($output, qr/two/, 'w2');
#unlike ($output, qr/three/, 'w3');
#unlike ($output, qr/four/, 'w4');
#unlike ($output, qr/five/, 'w5');
#like ($output, qr/six/, 'w6');
#like ($output, qr/seven/, 'w7');
$output = qx{../src/task rc:filter.rc rc.regex:on list ^.i};
unlike ($output, qr/one/, 'x1');
unlike ($output, qr/two/, 'x2');
unlike ($output, qr/three/, 'x3');
unlike ($output, qr/four/, 'x4');
like ($output, qr/five/, 'x5');
like ($output, qr/six/, 'x6');
unlike ($output, qr/seven/, 'x7');
#$output = qx{../src/task rc:filter.rc rc.regex:on list ^.i};
#unlike ($output, qr/one/, 'x1');
#unlike ($output, qr/two/, 'x2');
#unlike ($output, qr/three/, 'x3');
#unlike ($output, qr/four/, 'x4');
#like ($output, qr/five/, 'x5');
#like ($output, qr/six/, 'x6');
#unlike ($output, qr/seven/, 'x7');
$output = qx{../src/task rc:filter.rc rc.regex:on list "two|five"};
unlike ($output, qr/one/, 'y1');
like ($output, qr/two/, 'y2');
unlike ($output, qr/three/, 'y3');
unlike ($output, qr/four/, 'y4');
like ($output, qr/five/, 'y5');
unlike ($output, qr/six/, 'y6');
unlike ($output, qr/seven/, 'y7');
#$output = qx{../src/task rc:filter.rc rc.regex:on list "two|five"};
#unlike ($output, qr/one/, 'y1');
#like ($output, qr/two/, 'y2');
#unlike ($output, qr/three/, 'y3');
#unlike ($output, qr/four/, 'y4');
#like ($output, qr/five/, 'y5');
#unlike ($output, qr/six/, 'y6');
#unlike ($output, qr/seven/, 'y7');
# Cleanup.
unlink 'pending.data';