- first round of unit tests
This commit is contained in:
Federico Hernandez
2011-10-08 12:17:42 +02:00
parent 571195b7b0
commit bbe218a6f1
25 changed files with 438 additions and 414 deletions

View File

@@ -69,25 +69,25 @@ unlike ($output, qr/\bwithout\b/, 'pri:H without');
# Test the version command abbreviations.
$output = qx{../src/task rc:abbrev.rc version};
like ($output, qr/GNU\s+General\s+Public\s+License/, 'version');
like ($output, qr/MIT\s+license/, 'version');
$output = qx{../src/task rc:abbrev.rc versio};
like ($output, qr/GNU\s+General\s+Public\s+License/, 'versio');
like ($output, qr/MIT\s+license/, 'version');
$output = qx{../src/task rc:abbrev.rc versi};
like ($output, qr/GNU\s+General\s+Public\s+License/, 'versi');
like ($output, qr/MIT\s+license/, 'version');
$output = qx{../src/task rc:abbrev.rc vers};
like ($output, qr/GNU\s+General\s+Public\s+License/, 'vers');
like ($output, qr/MIT\s+license/, 'version');
$output = qx{../src/task rc:abbrev.rc ver};
like ($output, qr/GNU\s+General\s+Public\s+License/, 'ver');
like ($output, qr/MIT\s+license/, 'version');
$output = qx{../src/task rc:abbrev.rc ve};
like ($output, qr/GNU\s+General\s+Public\s+License/, 've');
like ($output, qr/MIT\s+license/, 'version');
$output = qx{../src/task rc:abbrev.rc v};
like ($output, qr/GNU\s+General\s+Public\s+License/, 'v');
like ($output, qr/MIT\s+license/, 'version');
# Cleanup.
unlink 'pending.data';