Report Filters

- Report filters are now properly loaded and injected into the argument
  list.
This commit is contained in:
Paul Beckingham
2011-06-25 21:56:57 -04:00
parent b58438bdd4
commit 42ead6b34d
4 changed files with 47 additions and 3 deletions

View File

@@ -28,12 +28,13 @@
use strict;
use warnings;
use Test::More tests => 11;
use Test::More tests => 12;
# Create the rc file.
if (open my $fh, '>', 'subst.rc')
{
print $fh "data.location=.\n";
print $fh "data.location=.\n",
"regex=off\n";
close $fh;
ok (-r 'subst.rc', 'Created subst.rc');
}
@@ -68,6 +69,11 @@ qx{../src/task rc:subst.rc 1 /bbb//};
$output = qx{../src/task rc:subst.rc info 1};
like ($output, qr/aaa ccc/, 'word deletion in description');
# Regexes
qx{../src/task rc:subst.rc rc.regex:on 1 "/c(c)./C/"};
$output = qx{../src/task rc:subst.rc info 1};
like ($output, qr/aaa cCc/, 'regex');
# Cleanup.
unlink 'pending.data';
ok (!-r 'pending.data', 'Removed pending.data');