From 3b05b110c7af055cfecc1621c18bf829132ed526 Mon Sep 17 00:00:00 2001
From: Stefan Suhren <suhren.stefan@fh-swf.de>
Date: Thu, 17 Dec 2015 17:57:16 +0100
Subject: Add first test to RPN module

---
 Aufgabe6/RPN/t/RPN.t | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'Aufgabe6/RPN/t')

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');
-- 
cgit v1.2.3-70-g09d2