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 warnings;
use Test::More tests => 3;
use Test::More tests => 4;
# Create the rc file.
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};
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.
unlink qw(pending.data completed.data undo.data backlog.data synch.key bug.rc);
ok (! -r 'pending.data' &&