diff options
| author | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-12-17 17:57:16 +0100 |
|---|---|---|
| committer | Stefan Suhren <suhren.stefan@fh-swf.de> | 2015-12-17 20:42:10 +0100 |
| commit | 3b05b110c7af055cfecc1621c18bf829132ed526 (patch) | |
| tree | a140af643bc1ad1174bf8179c03061ff95229865 /Aufgabe6/RPN/t/RPN.t | |
| parent | 3aba144a3b8c4bbb9ea8e3d1539774f363b8dee4 (diff) | |
| download | Skriptsprachen-3b05b110c7af055cfecc1621c18bf829132ed526.tar.gz Skriptsprachen-3b05b110c7af055cfecc1621c18bf829132ed526.zip | |
Add first test to RPN module
Diffstat (limited to 'Aufgabe6/RPN/t/RPN.t')
| -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'); |