Unit tests

- Enabled some disabled regex filter tests.
This commit is contained in:
Paul Beckingham 2012-02-26 10:57:59 -05:00
parent 7c2d97d939
commit 3133616b67

View file

@ -28,8 +28,7 @@
use strict; use strict;
use warnings; use warnings;
#use Test::More tests => 175; use Test::More tests => 156;
use Test::More tests => 128;
# Create the rc file. # Create the rc file.
if (open my $fh, '>', 'filter.rc') if (open my $fh, '>', 'filter.rc')
@ -211,7 +210,7 @@ unlike ($output, qr/six/, 'r6');
unlike ($output, qr/seven/, 'r7'); unlike ($output, qr/seven/, 'r7');
# Regex filters. # Regex filters.
#$output = qx{../src/task rc:filter.rc list rc.regex:on project:[A-Z]}; #$output = qx{../src/task rc:filter.rc list rc.regex:on project:/[A-Z]/};
#like ($output, qr/one/, 's1'); #like ($output, qr/one/, 's1');
#like ($output, qr/two/, 's2'); #like ($output, qr/two/, 's2');
#like ($output, qr/three/, 's3'); #like ($output, qr/three/, 's3');
@ -229,16 +228,16 @@ unlike ($output, qr/seven/, 'r7');
#unlike ($output, qr/six/, 't6'); #unlike ($output, qr/six/, 't6');
#unlike ($output, qr/seven/, 't7'); #unlike ($output, qr/seven/, 't7');
#$output = qx{../src/task rc:filter.rc rc.regex:on list fo\{2\}}; $output = qx{../src/task rc:filter.rc rc.regex:on list /fo\{2\}/};
#like ($output, qr/one/, 'u1'); like ($output, qr/one/, 'u1');
#unlike ($output, qr/two/, 'u2'); unlike ($output, qr/two/, 'u2');
#unlike ($output, qr/three/, 'u3'); unlike ($output, qr/three/, 'u3');
#unlike ($output, qr/four/, 'u4'); unlike ($output, qr/four/, 'u4');
#unlike ($output, qr/five/, 'u5'); unlike ($output, qr/five/, 'u5');
#like ($output, qr/six/, 'u6'); like ($output, qr/six/, 'u6');
#like ($output, qr/seven/, 'u7'); like ($output, qr/seven/, 'u7');
#$output = qx{../src/task rc:filter.rc rc.regex:on list f.. b..}; #$output = qx{../src/task rc:filter.rc rc.regex:on list /f../ /b../};
#unlike ($output, qr/one/, 'v1'); #unlike ($output, qr/one/, 'v1');
#unlike ($output, qr/two/, 'v2'); #unlike ($output, qr/two/, 'v2');
#unlike ($output, qr/three/, 'v3'); #unlike ($output, qr/three/, 'v3');
@ -247,32 +246,32 @@ unlike ($output, qr/seven/, 'r7');
#unlike ($output, qr/six/, 'v6'); #unlike ($output, qr/six/, 'v6');
#like ($output, qr/seven/, 'v7'); #like ($output, qr/seven/, 'v7');
#$output = qx{../src/task rc:filter.rc rc.regex:on list ^s}; $output = qx{../src/task rc:filter.rc rc.regex:on list /^s/};
#unlike ($output, qr/one/, 'w1'); unlike ($output, qr/one/, 'w1');
#unlike ($output, qr/two/, 'w2'); unlike ($output, qr/two/, 'w2');
#unlike ($output, qr/three/, 'w3'); unlike ($output, qr/three/, 'w3');
#unlike ($output, qr/four/, 'w4'); unlike ($output, qr/four/, 'w4');
#unlike ($output, qr/five/, 'w5'); unlike ($output, qr/five/, 'w5');
#like ($output, qr/six/, 'w6'); like ($output, qr/six/, 'w6');
#like ($output, qr/seven/, 'w7'); like ($output, qr/seven/, 'w7');
#$output = qx{../src/task rc:filter.rc rc.regex:on list ^.i}; $output = qx{../src/task rc:filter.rc rc.regex:on list /^.i/};
#unlike ($output, qr/one/, 'x1'); unlike ($output, qr/one/, 'x1');
#unlike ($output, qr/two/, 'x2'); unlike ($output, qr/two/, 'x2');
#unlike ($output, qr/three/, 'x3'); unlike ($output, qr/three/, 'x3');
#unlike ($output, qr/four/, 'x4'); unlike ($output, qr/four/, 'x4');
#like ($output, qr/five/, 'x5'); like ($output, qr/five/, 'x5');
#like ($output, qr/six/, 'x6'); like ($output, qr/six/, 'x6');
#unlike ($output, qr/seven/, 'x7'); unlike ($output, qr/seven/, 'x7');
#$output = qx{../src/task rc:filter.rc rc.regex:on list "two|five"}; $output = qx{../src/task rc:filter.rc rc.regex:on list "/two|five/"};
#unlike ($output, qr/one/, 'y1'); unlike ($output, qr/one/, 'y1');
#like ($output, qr/two/, 'y2'); like ($output, qr/two/, 'y2');
#unlike ($output, qr/three/, 'y3'); unlike ($output, qr/three/, 'y3');
#unlike ($output, qr/four/, 'y4'); unlike ($output, qr/four/, 'y4');
#like ($output, qr/five/, 'y5'); like ($output, qr/five/, 'y5');
#unlike ($output, qr/six/, 'y6'); unlike ($output, qr/six/, 'y6');
#unlike ($output, qr/seven/, 'y7'); unlike ($output, qr/seven/, 'y7');
# Cleanup. # Cleanup.
unlink qw(pending.data completed.data undo.data backlog.data synch.key filter.rc); unlink qw(pending.data completed.data undo.data backlog.data synch.key filter.rc);