Add first test to RPN module

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