Index: vhUnitTest/TECH/ListUtils/GeefMaximum/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/GeefMaximum/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/GeefMaximum/Test.cls.xml	(revision 1556)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.GeefMaximum.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGeefMaximumRandomGetallenrij">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()	
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(-1)
+	Do Lijst.Insert(20)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(8)
+	
+	Do ..AssertMaximum(Lijst, 20)
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefMaximumLaatsteGetalGrootst">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()	
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(-1)
+	Do Lijst.Insert(20)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(30)
+	
+	Do ..AssertMaximum(Lijst, 30)
+]]></Implementation>
+</Method>
+
+<Method name="TestMetUitsluitendNegatieveWaardenInLijst">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()	
+	Do Lijst.Insert(-1)
+	Do Lijst.Insert(-20)
+	Do Lijst.Insert(-30)
+	Do Lijst.Insert(-5)
+	Do Lijst.Insert(-2)
+	Do Lijst.Insert(-90)
+	
+	Do ..AssertMaximum(Lijst, -1)
+]]></Implementation>
+</Method>
+
+<Method name="AssertMaximum">
+<FormalSpec>Lijst:%ListOfDataTypes,VerwachteWaarde:TECH.Integer</FormalSpec>
+<Implementation><![CDATA[
+	#dim Maximum As TECH.Integer = ##class(TECH.ListUtils).GeefMaximum(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertEquals(Maximum,VerwachteWaarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/ListUtils/Test.cls.xml
===================================================================
diff -u -r1095 -r1556
--- vhUnitTest/TECH/ListUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 1095)
+++ vhUnitTest/TECH/ListUtils/Test.cls.xml	(.../Test.cls.xml)	(revision 1556)
@@ -258,44 +258,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestGeefMaximum">
-<Implementation><![CDATA[
-	Set Lijst = ##class(%ListOfDataTypes).%New()	
-	Do Lijst.Insert(5)
-	Do Lijst.Insert(9)
-	Do Lijst.Insert(-1)
-	Do Lijst.Insert(20)
-	Do Lijst.Insert(3)
-	Do Lijst.Insert(8)
-	
-	#dim Maximum = ##class(TECH.ListUtils).GeefMaximum(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
-	Do $$$AssertEquals(Maximum,20,"Maximum is correct.")
-	
-	
-	Set Lijst = ##class(%ListOfDataTypes).%New()	
-	Do Lijst.Insert(5)
-	Do Lijst.Insert(9)
-	Do Lijst.Insert(-1)
-	Do Lijst.Insert(20)
-	Do Lijst.Insert(3)
-	Do Lijst.Insert(30)
-	
-	Set Maximum = ##class(TECH.ListUtils).GeefMaximum(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
-	Do $$$AssertEquals(Maximum,30,"Maximum is correct.")
-	
-	Set Lijst = ##class(%ListOfDataTypes).%New()	
-	Do Lijst.Insert(-1)
-	Do Lijst.Insert(-20)
-	Do Lijst.Insert(-30)
-	Do Lijst.Insert(-5)
-	Do Lijst.Insert(-2)
-	Do Lijst.Insert(-90)
-	
-	Set Maximum = ##class(TECH.ListUtils).GeefMaximum(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
-	Do $$$AssertEquals(Maximum,-1,"Maximum is correct.")
-]]></Implementation>
-</Method>
-
 <Method name="TestReplaceValuesInListOfDataTypeSingle">
 <Implementation><![CDATA[
 	set List = ##class(%ListOfDataTypes).%New()
Index: vhUnitTest/TECH/ListUtils/GeefMinimum/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/ListUtils/GeefMinimum/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/ListUtils/GeefMinimum/Test.cls.xml	(revision 1556)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.ListUtils.GeefMinimum.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestGeefMinimumRandomGetallenrij">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()	
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(16)
+	Do Lijst.Insert(20)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(8)
+	
+	Do ..AssertMinimum(Lijst, 3)
+]]></Implementation>
+</Method>
+
+<Method name="TestGeefMinimumLaatsteGetalGrootst">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()	
+	Do Lijst.Insert(5)
+	Do Lijst.Insert(9)
+	Do Lijst.Insert(20)
+	Do Lijst.Insert(3)
+	Do Lijst.Insert(30)
+	Do Lijst.Insert(-5)
+	
+	Do ..AssertMinimum(Lijst, -5)
+]]></Implementation>
+</Method>
+
+<Method name="TestMetUitsluitendNegatieveWaardenInLijst">
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()	
+	Do Lijst.Insert(-1)
+	Do Lijst.Insert(-20)
+	Do Lijst.Insert(-30)
+	Do Lijst.Insert(-5)
+	Do Lijst.Insert(-2)
+	Do Lijst.Insert(-90)
+	
+	Do ..AssertMinimum(Lijst, -90)
+]]></Implementation>
+</Method>
+
+<Method name="AssertMinimum">
+<FormalSpec>Lijst:%ListOfDataTypes,VerwachteWaarde:TECH.Integer</FormalSpec>
+<Implementation><![CDATA[
+	#dim Minimum As TECH.Integer = ##class(TECH.ListUtils).GeefMinimum(Lijst,##class(TECH.Comparator.IntegerComparator).%New())
+	Do $$$AssertEquals(Minimum,VerwachteWaarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>