vhUnitTest.TestCase aTestName:%String 1 %String