Index: TECH/Math.cls.xml
===================================================================
diff -u -r3408 -r3409
--- TECH/Math.cls.xml	(.../Math.cls.xml)	(revision 3408)
+++ TECH/Math.cls.xml	(.../Math.cls.xml)	(revision 3409)
@@ -163,6 +163,8 @@
 	Set Iterator = ##class(TECH.ArrayOneDimIterator).%New(.Getal)
 	While ( Iterator.HasNext() ) {
 		#dim TestGetal As %string = Iterator.Next()	
+		Set TestGetal = $Translate(TestGetal,",",".")
+		Set TestGetal = +TestGetal
 		Set Grootste = $Select(Grootste="":TestGetal,Grootste<TestGetal:TestGetal,1:Grootste)
 	}
 	Quit Grootste
Index: vhUnitTest/TECH/Grootste/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Grootste/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Grootste/Test.cls.xml	(revision 3409)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Grootste.Test">
+<ClassType/>
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(),"")
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(,,,,),"")
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,),"")
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(0),0)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(0,0,0,0,0),0)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),0)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(5),5)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(5,5,5,5,5),5)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5),5)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(1,2,3,4,5),5)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30),30)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(5,4,3,2,1),5)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(30,29,28,27,26,25,24,23,22,21,20,19,18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0),30)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(1,2,3,2,1),3)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(29,28,27,26,25,24,23,22,21,20,19,18,17,16,15,30,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0),30)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Negatieve getallen">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(-0),0)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(-0,-0,-0,-0,-0),0)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0,-0),0)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(-5),-5)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(-5,-5,-5,-5,-5),-5)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5,-5),-5)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(-1,-2,-3,-4,-5),-1)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(-1,-2,-3,-4,-5,-6,-7,-8,-9,-10,-11,-12,-13,-14,-15,-16,-17,-18,-19,-20,-21,-22,-23,-24,-25,-26,-27,-28,-29,-30),-1)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(-5,-4,-3,-2,-1),-1)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(-30,-29,-28,-27,-26,-25,-24,-23,-22,-21,-20,-19,-18,-17,-16,-15,-14,-13,-12,-11,-10,-9,-8,-7,-6,-5,-4,-3,-2,-1),-1)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(-3,-2,-1,-2,-3),-1)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(-30,-29,-28,-27,-26,-25,-24,-23,-22,-21,-20,-19,-18,-17,-16,-1,-15,-14,-13,-12,-11,-10,-9,-8,-7,-6,-5,-4,-3,-2),-1)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Decimale getallen">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(","),0)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste("."),0)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste("0,0"),0)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste("0,5"),0.5)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste("0,1","0,2","0,3","0,2","0,1"),0.3)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(0.0),0)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(0.0,0.0,0.0,0.0,0.0),0)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0,0.0),0)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(0.5),0.5)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(0.5,0.5,0.5,0.5,0.5),0.5)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5),0.5)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(0.5,1.5,2.5,3.5,4.5),4.5)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(0.5,1.5,2.5,3.5,4.5,5.5,6.5,7.5,8.5,9.5,10.5,11.5,12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5),20.5)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(4.5,3.5,2.5,1.5,0.5),4.5)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(20.5,19.5,18.5,17.5,16.5,15.5,14.5,13.5,12.5,11.5,10.5,9.5,8.5,7.5,6.5,5.5,4.5,3.5,2.5,1.5,0.5),20.5)
+	
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(0.5,1.5,2.5,1.5,0.5),2.5)
+	Do $$$AssertEquals(##class(TECH.Math).Grootste(19.5,18.5,17.5,16.5,15.5,14.5,13.5,12.5,11.5,20.5,10.5,9.5,8.5,7.5,6.5,5.5,4.5,3.5,2.5,1.5,0.5),20.5)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>