Index: vhUnitTest/TECH/Math/Subdivide.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Math/Subdivide.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Math/Subdivide.cls.xml	(revision 1749)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.Math.Subdivide">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="TotalLength">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Length">
+<Type>%Numeric</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="NumberOfSubdivisions">
+<Type>TECH.Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test 25% needed of total length with 5 subdivisions -&gt; 2 pieces expected">
+<Implementation><![CDATA[
+	Set ..TotalLength = 10
+	Set ..NumberOfSubdivisions = 5
+	Set ..Length = 2.5
+	Do ..Assert(2)
+]]></Implementation>
+</Method>
+
+<Method name="Test 25% needed of total length with 4 subdivisions -&gt; 1 piece expected">
+<Implementation><![CDATA[
+	Set ..TotalLength = 10
+	Set ..NumberOfSubdivisions = 4
+	Set ..Length = 2.5
+	Do ..Assert(1)
+]]></Implementation>
+</Method>
+
+<Method name="Test 100% needed of total length with 4 subdivisions -&gt; 4 pieces expected">
+<Implementation><![CDATA[
+	Set ..TotalLength = 10
+	Set ..NumberOfSubdivisions = 4
+	Set ..Length = 10
+	Do ..Assert(4)
+]]></Implementation>
+</Method>
+
+<Method name="Test 0% needed of total length with 5 subdivisions -&gt; 0 pieces expected">
+<Implementation><![CDATA[
+	Set ..TotalLength = 10
+	Set ..NumberOfSubdivisions = 5
+	Set ..Length = 0
+	Do ..Assert(0)
+]]></Implementation>
+</Method>
+
+<Method name="Test 120% needed of total length with 5 subdivisions -&gt; 6 pieces expected">
+<Implementation><![CDATA[
+	Set ..TotalLength = 10
+	Set ..NumberOfSubdivisions = 5
+	Set ..Length = 12
+	Do ..Assert(6)
+]]></Implementation>
+</Method>
+
+<Method name="Test 20% needed of total length with 1000 subdivisions -&gt; 200 pieces expected">
+<Implementation><![CDATA[
+	Set ..TotalLength = 10
+	Set ..NumberOfSubdivisions = 1000
+	Set ..Length = 2
+	Do ..Assert(200)
+]]></Implementation>
+</Method>
+
+<Method name="Test 20% needed of total length with 1 subdivision -&gt; 1 pieces expected">
+<Implementation><![CDATA[
+	Set ..TotalLength = 10
+	Set ..NumberOfSubdivisions = 1
+	Set ..Length = 2
+	Do ..Assert(1)
+]]></Implementation>
+</Method>
+
+<Method name="Assert">
+<FormalSpec>ExpectedPieces:TECH.Integer</FormalSpec>
+<Implementation><![CDATA[
+	#dim Subdivision = ##class(TECH.Math).Subdivide(..TotalLength,..NumberOfSubdivisions,..Length)
+	Do $$$AssertEquals(Subdivision,ExpectedPieces)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>