diff options
| -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'); |