diff options
Diffstat (limited to 'Aufgabe6/RPN')
| -rw-r--r-- | Aufgabe6/RPN/t/RPN.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/Aufgabe6/RPN/t/RPN.t b/Aufgabe6/RPN/t/RPN.t index ae60fa2..a9b78d5 100644 --- a/Aufgabe6/RPN/t/RPN.t +++ b/Aufgabe6/RPN/t/RPN.t @@ -8,7 +8,10 @@ use strict; use warnings; -use Test::More tests => 1; +# Include RPN for testing +use RPN; + +use Test::More tests => 2; BEGIN { use_ok('RPN') }; ######################### @@ -16,3 +19,12 @@ BEGIN { use_ok('RPN') }; # Insert your test code below, the Test::More module is use()ed here so read # its man page ( perldoc Test::More ) for help writing this test script. +my $expression; +my $expect; +my $result; + +$expression = 42; +$expect = 42; +$result = RPN::rpn($expression); + +is ($result, $expect, 'Test 2'); |