Unit Tests
- Removed obsolete tests.
This commit is contained in:
@@ -27,7 +27,7 @@
|
|||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
use Test::More tests => 21;
|
use Test::More tests => 19;
|
||||||
|
|
||||||
# '15min' is seen as '15', 'min', not '15min' duration.
|
# '15min' is seen as '15', 'min', not '15min' duration.
|
||||||
my $output = qx{../src/calc --debug --noambiguous '12 * 3600 + 34 * 60 + 56'};
|
my $output = qx{../src/calc --debug --noambiguous '12 * 3600 + 34 * 60 + 56'};
|
||||||
@@ -36,7 +36,6 @@ like ($output, qr/eval push '3600' Number/, 'Number 3600');
|
|||||||
like ($output, qr/eval push '34' Number/, 'Number 60');
|
like ($output, qr/eval push '34' Number/, 'Number 60');
|
||||||
like ($output, qr/eval push '60' Number/, 'Number 60');
|
like ($output, qr/eval push '60' Number/, 'Number 60');
|
||||||
like ($output, qr/eval push '56' Number/, 'Number 56');
|
like ($output, qr/eval push '56' Number/, 'Number 56');
|
||||||
like ($output, qr/no errors/ms, 'No syntax errors');
|
|
||||||
like ($output, qr/^45296$/ms, 'Result 45296');
|
like ($output, qr/^45296$/ms, 'Result 45296');
|
||||||
unlike ($output, qr/Error/, 'No errors');
|
unlike ($output, qr/Error/, 'No errors');
|
||||||
|
|
||||||
@@ -53,7 +52,6 @@ $output = qx{../src/calc --debug --noambiguous '2--3'};
|
|||||||
like ($output, qr/eval push '2' Number/ms, 'Number 2');
|
like ($output, qr/eval push '2' Number/ms, 'Number 2');
|
||||||
like ($output, qr/eval operator '-'/ms, 'Operator -');
|
like ($output, qr/eval operator '-'/ms, 'Operator -');
|
||||||
like ($output, qr/eval push '3' Number/ms, 'Number 3');
|
like ($output, qr/eval push '3' Number/ms, 'Number 3');
|
||||||
like ($output, qr/no errors/ms, 'No syntax errors');
|
|
||||||
like ($output, qr/^5$/ms, 'Result 5');
|
like ($output, qr/^5$/ms, 'Result 5');
|
||||||
unlike ($output, qr/Error/, 'No errors');
|
unlike ($output, qr/Error/, 'No errors');
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user