Index: vhUnitTest/TECH/Math/Floor/Test.cls.xml
===================================================================
diff -u -r3163 -r3164
--- vhUnitTest/TECH/Math/Floor/Test.cls.xml	(.../Test.cls.xml)	(revision 3163)
+++ vhUnitTest/TECH/Math/Floor/Test.cls.xml	(.../Test.cls.xml)	(revision 3164)
@@ -6,36 +6,68 @@
 <Method name="Test">
 <Implementation><![CDATA[
 	Do $$$AssertEquals(##class(TECH.Math).Floor(0),"0")
+	Do $$$AssertEquals(##class(TECH.Math).Floor(5),"5")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(0.1),"0")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(0.99),"0")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(0.999999),"0")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(14.3),"14")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(14.5),"14")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(14.599),"14")
+	Do $$$AssertEquals(##class(TECH.Math).Floor(1.25),"1")
+	Do $$$AssertEquals(##class(TECH.Math).Floor(1),"1")
+	Do $$$AssertEquals(##class(TECH.Math).Floor(.75),"0")
+	Do $$$AssertEquals(##class(TECH.Math).Floor(.5),"0")
 	
 	Do $$$AssertEquals(##class(TECH.Math).Floor(-3),"-3")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(-3.99),"-4")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(-3.99999),"-4")
 	
 	Do $$$AssertEquals(##class(TECH.Math).Floor(0.1,1),".1")
-	Do $$$AssertEquals(##class(TECH.Math).Floor(0.99,2),".99")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(0.99,1),".9")
-	Do $$$AssertEquals(##class(TECH.Math).Floor(0.999999,6),".999999")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(0.999999,3),".999")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(14.3,2),"14.3")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(14.599,2),"14.59")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(55555,2),"55555")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(55555.55555,2),"55555.55")
-		
+	
 	Do $$$AssertEquals(##class(TECH.Math).Floor(3.89,1),"3.8")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(-3.89,1),"-3.9")
+]]></Implementation>
+</Method>
+
+<Method name="Test : Aantal cijfers na komma identiek als opgegeven getal">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(##class(TECH.Math).Floor(0),"0")
+	Do $$$AssertEquals(##class(TECH.Math).Floor(-0),"0")
+
+	Do $$$AssertEquals(##class(TECH.Math).Floor(5),"5")
+	Do $$$AssertEquals(##class(TECH.Math).Floor(-5),"-5")
 	
-	Do $$$AssertEquals(##class(TECH.Math).Floor(".",2),"0")
-	Do $$$AssertEquals(##class(TECH.Math).Floor("abc",2),"0")
-	Do $$$AssertEquals(##class(TECH.Math).Floor("abc5",2),"0")
-	Do $$$AssertEquals(##class(TECH.Math).Floor("5abc",2),"5")
+	Do $$$AssertEquals(##class(TECH.Math).Floor(0.1,1),".1")
+	Do $$$AssertEquals(##class(TECH.Math).Floor(-0.1,1),"-.1")
+	
+	Do $$$AssertEquals(##class(TECH.Math).Floor(0.99,2),".99")
+	Do $$$AssertEquals(##class(TECH.Math).Floor(-0.99,2),"-.99")
+	
+	Do $$$AssertEquals(##class(TECH.Math).Floor(4.556,3),"4.556")
+	Do $$$AssertEquals(##class(TECH.Math).Floor(-4.556,3),"-4.556")
+	
+	Do $$$AssertEquals(##class(TECH.Math).Floor(0.999999,6),".999999")
+	Do $$$AssertEquals(##class(TECH.Math).Floor(-0.999999,6),"-.999999")
 ]]></Implementation>
 </Method>
+
+<Method name="Test : Ongeldige cijfers">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(##class(TECH.Math).Floor(".",2),"")
+	Do $$$AssertEquals(##class(TECH.Math).Floor("abc",2),"")
+	Do $$$AssertEquals(##class(TECH.Math).Floor("abc5",2),"")
+	Do $$$AssertEquals(##class(TECH.Math).Floor("5abc",2),"")
+	
+	
+	do $$$AssertEquals($system.SQL.FLOOR("."),"")
+]]></Implementation>
+</Method>
 </Class>