Index: vhUnitTest/TECH/Integer/TestMinMaxVal.cls.xml
===================================================================
diff -u -r957 -r1775
--- vhUnitTest/TECH/Integer/TestMinMaxVal.cls.xml	(.../TestMinMaxVal.cls.xml)	(revision 957)
+++ vhUnitTest/TECH/Integer/TestMinMaxVal.cls.xml	(.../TestMinMaxVal.cls.xml)	(revision 1775)
@@ -8,6 +8,14 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	set ..Mock = ##class(vhUnitTest.TECH.Integer.MockClass).%New()
+	do ##super(aTestName)
+]]></Implementation>
+</Method>
+
 <Method name="TestLegeWaardeGeldigeValidatie">
 <Implementation><![CDATA[
 	set ..Mock.IntegerMinVal200MaxVal300 = ""
@@ -43,20 +51,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestGeenInteger">
+<Method name="Test: Decimal value">
 <Implementation><![CDATA[
 	set ..Mock.IntegerMinVal200MaxVal300 = 250.5
-	do $$$AssertFalse(..Mock.%ValidateObject())
+	do $$$AssertTrue(..Mock.%ValidateObject())
+	do $$$AssertEquals(..Mock.IntegerMinVal200MaxVal300,251)
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	set ..Mock = ##class(vhUnitTest.TECH.Integer.MockClass).%New()
-	do ##super(aTestName)
-]]></Implementation>
-</Method>
 </Class>