From 47f3a7526d975b4a33fa34a25cfe7d08deeaaf7b Mon Sep 17 00:00:00 2001
From: Stefan Suhren <suhren.stefan@fh-swf.de>
Date: Thu, 17 Dec 2015 20:06:27 +0100
Subject: Some additional tests

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

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