Regex
- Removed regex support (controlled in main.h by #ifdef FEATURE_REGEX), because it has proven buggy.
This commit is contained in:
115
test/filter.t
115
test/filter.t
@@ -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';
|
||||
|
||||
Reference in New Issue
Block a user