Unit Tests

- re-opened bug #819
This commit is contained in:
Johannes Schlatow
2011-12-02 17:11:50 +01:00
parent e99a03dbcb
commit 56d652d058

View File

@@ -28,7 +28,7 @@
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 3; use Test::More tests => 4;
# Create the rc file. # Create the rc file.
if (open my $fh, '>', 'bug.rc') if (open my $fh, '>', 'bug.rc')
@@ -43,6 +43,10 @@ qx{../src/task rc:bug.rc add foo\\'s bar.};
my $output = qx{../src/task rc:bug.rc ls}; my $output = qx{../src/task rc:bug.rc ls};
like ($output, qr/foo's bar\./, "foo's bar. --> preserved"); like ($output, qr/foo's bar\./, "foo's bar. --> preserved");
qx{../src/task rc:bug.rc add foo \\(bar\\)};
$output = qx{../src/task rc:bug.rc ls};
like ($output, qr/foo \(bar\)/, "foo \(bar\) -- preserved");
# Cleanup. # Cleanup.
unlink qw(pending.data completed.data undo.data backlog.data synch.key bug.rc); unlink qw(pending.data completed.data undo.data backlog.data synch.key bug.rc);
ok (! -r 'pending.data' && ok (! -r 'pending.data' &&