Unit Tests

- Fixed test so it work on Solaris and Perl 5.8.4.

Signed-off-by: Paul Beckingham <paul@beckingham.net>
This commit is contained in:
Owen Clarke 2011-12-16 07:36:46 -05:00 committed by Paul Beckingham
parent c978baf36a
commit f173469f98

View file

@ -48,13 +48,13 @@ qx{../src/task rc:bug.rc 1 annotate abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqr
# List with rc.hyphenate=on.
my $output = qx{../src/task rc:bug.rc rc.defaultwidth:40 rc.hyphenate:on ls};
like ($output, qr/vwx-$/ms, 'hyphenated 1');
like ($output, qr/tuv-$/ms, 'hyphenated 2');
like ($output, qr/vwx-\n/ms, 'hyphenated 1');
like ($output, qr/tuv-\n/ms, 'hyphenated 2');
# List with rc.hyphenate=off.
$output = qx{../src/task rc:bug.rc rc.defaultwidth:40 rc.hyphenate:off ls};
like ($output, qr/vwxy$/ms, 'not hyphenated 1');
like ($output, qr/uvwx$/ms, 'not hyphenated 2');
like ($output, qr/vwxy\n/ms, 'not hyphenated 1');
like ($output, qr/uvwx\n/ms, 'not hyphenated 2');
# Cleanup.
unlink qw(pending.data completed.data undo.data backlog.data synch.key bug.rc);