Index: vhUnitTest/TECH/StringUtils/Align/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/StringUtils/Align/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/StringUtils/Align/Test.cls.xml	(revision 2110)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.StringUtils.Align.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="InputString">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Width">
+<Type>TECH.Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Alignment">
+<Type>TECH.enu.TextAlignment</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Filler">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ExpectedString">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="TestAlignLeft">
+<Implementation><![CDATA[
+	Set ..InputString = "a"
+	Set ..Width = 5
+	Set ..Alignment = ##class(TECH.enu.TextAlignment).Left()
+	Set ..Filler = " "
+	Set ..ExpectedString = "a    "
+	Do ..AssertString()
+]]></Implementation>
+</Method>
+
+<Method name="TestAlignRight">
+<Implementation><![CDATA[
+	Set ..InputString = "a"
+	Set ..Width = 5
+	Set ..Alignment = ##class(TECH.enu.TextAlignment).Right()
+	Set ..Filler = " "
+	Set ..ExpectedString = "    a"
+	Do ..AssertString()
+]]></Implementation>
+</Method>
+
+<Method name="TestCenterOddWidth">
+<Implementation><![CDATA[
+	Set ..InputString = "a"
+	Set ..Width = 5
+	Set ..Alignment = ##class(TECH.enu.TextAlignment).Center()
+	Set ..Filler = " "
+	Set ..ExpectedString = "  a  "
+	Do ..AssertString()
+]]></Implementation>
+</Method>
+
+<Method name="TestCenterEvenWidth">
+<Implementation><![CDATA[
+	Set ..InputString = "a"
+	Set ..Width = 6
+	Set ..Alignment = ##class(TECH.enu.TextAlignment).Center()
+	Set ..Filler = " "
+	Set ..ExpectedString = "  a   "
+	Do ..AssertString()
+]]></Implementation>
+</Method>
+
+<Method name="TestCenterInputStringLongerThanWidth">
+<Implementation><![CDATA[
+	Set ..InputString = "abcdefg"
+	Set ..Width = 4
+	Set ..Alignment = ##class(TECH.enu.TextAlignment).Center()
+	Set ..Filler = " "
+	Set ..ExpectedString = "abcdefg"
+	Do ..AssertString()
+]]></Implementation>
+</Method>
+
+<Method name="AssertString">
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).Align(..InputString, ..Width, ..Alignment, ..Filler),..ExpectedString)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>