diff --git a/test/floor b/test/floor
index ced963e..e0c399b 100755
--- a/test/floor
+++ b/test/floor
@@ -19,4 +19,22 @@ expect <<EOF
 -2
 EOF
 
+#------------------------------------------------------------------------------
+
+fped "floor: round 7 mil (0.1778 mm) to two digits in mm" <<EOF
+%print floor(7mil/0.01mm+0.5)*0.01mm
+EOF
+expect <<EOF
+0.18mm
+EOF
+
+#------------------------------------------------------------------------------
+
+fped "floor: round 12 mil (0.3048 mm) to two digits in mm" <<EOF
+%print floor(12mil/0.01mm+0.5)*0.01mm
+EOF
+expect <<EOF
+0.3mm
+EOF
+
 ###############################################################################