@@ -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' &&
|
||||||
|
|||||||
Reference in New Issue
Block a user