diff options
| author | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-12-17 20:06:27 +0100 |
|---|---|---|
| committer | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-12-17 20:42:10 +0100 |
| commit | 47f3a7526d975b4a33fa34a25cfe7d08deeaaf7b (patch) | |
| tree | 63d83c6b563f7b55fb2a9ba522adbad214b97fa4 /Aufgabe6/RPN | |
| parent | dea6d8f003e67deaeeb1ab32de392dc55aedb9c6 (diff) | |
| download | Skriptsprachen-47f3a7526d975b4a33fa34a25cfe7d08deeaaf7b.tar.gz Skriptsprachen-47f3a7526d975b4a33fa34a25cfe7d08deeaaf7b.zip | |
Some additional tests
Diffstat (limited to 'Aufgabe6/RPN')
| -rw-r--r-- | Aufgabe6/RPN/t/RPN.t | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/Aufgabe6/RPN/t/RPN.t b/Aufgabe6/RPN/t/RPN.t index d14cd1b..b20e234 100644 --- a/Aufgabe6/RPN/t/RPN.t +++ b/Aufgabe6/RPN/t/RPN.t @@ -11,7 +11,7 @@ use warnings; # Include RPN for testing use RPN; -use Test::More tests => 18; +use Test::More tests => 20; BEGIN { use_ok('RPN') }; ######################### @@ -141,4 +141,17 @@ $expect = 0; $result = RPN::rpn($expression); is ($result, $expect, 'Test 18'); +# +# Test 19 +$expression = "12 13 POP"; +$expect = 12; +$result = RPN::rpn($expression); + +is ($result, $expect, 'Test 19'); + +# Test 20 +$expression = "12 DUP POP"; +$expect = 12; +$result = RPN::rpn($expression); +is ($result, $expect, 'Test 20'); |