From 78b2357322ef54292553f807e1a7031c21ede9e1 Mon Sep 17 00:00:00 2001
From: Louis Rubet <louis@rubet.fr>
Date: Mon, 19 Jun 2017 00:09:46 +0200
Subject: [PATCH] #137: test on ip fp ceil floor

---
 test/05-real.txt | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/test/05-real.txt b/test/05-real.txt
index 110cb0b..c258583 100644
--- a/test/05-real.txt
+++ b/test/05-real.txt
@@ -429,4 +429,44 @@ max
 -> error should be 2
 erase
 
+# ip (1)
+1.22 ip
+-> stack should be 1
+erase
+
+# ip (2)
+-1.22 ip
+-> stack should be -1
+erase
+
+# fp (1)
+1.22 fp
+-> stack should be 0.22
+erase
+
+# fp (2)
+-1.22 fp
+-> stack should be -0.22
+erase
+
+# floor (1)
+1.22 floor
+-> stack should be 1
+erase
+
+# floor (2)
+-1.22 floor
+-> stack should be -2
+erase
+
+# ceil (1)
+1.22 ceil
+-> stack should be 2
+erase
+
+# ceil (2)
+-1.22 ceil
+-> stack should be -1
+erase
+
 default