Index: vhUnitTest/ClassInfo/TestFormalSpecParser.cls.xml
===================================================================
diff -u -r915 -r946
--- vhUnitTest/ClassInfo/TestFormalSpecParser.cls.xml	(.../TestFormalSpecParser.cls.xml)	(revision 915)
+++ vhUnitTest/ClassInfo/TestFormalSpecParser.cls.xml	(.../TestFormalSpecParser.cls.xml)	(revision 946)
@@ -1,17 +1,17 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 08:03:26">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-14 09:38:04">
 <Class name="vhUnitTest.ClassInfo.TestFormalSpecParser">
 <Description>
 Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","ClassInfo.TestFormalSpecParser")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62158,29079.192731</TimeChanged>
+<TimeChanged>62164,34762.93653</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestParser">
 <Implementation><![CDATA[
 	Set Parser = ##class(TECH.ClassInfo.FormalSpecParser).%New()
-	Set Parameters = Parser.Parse("Hoeveelheid:%Integer,BerekenTag:%String="""",BerekenDatum:%Date=$Piece($H,"","")")
+	Set Parameters = Parser.Parse("Hoeveelheid:%Integer,BerekenTag:%String="""",BerekenDatum:%Date=$Piece($H,"",""),ParamZonderType,ParamZTMetDefault=""Iets""")
 	
 	Set Parameter = Parameters.GetAt(1)
 	Do $$$AssertEquals(Parameter.GeefNaam(),"Hoeveelheid","De naam van de parameter")
@@ -27,8 +27,18 @@
 	Do $$$AssertEquals(Parameter.GeefNaam(),"BerekenDatum","De naam van de parameter")
 	Do $$$AssertEquals(Parameter.GeefType(),"%Date","Het type van de parameter")
 	Do $$$AssertEquals(Parameter.GeefDefaultWaarde(),"$Piece($H,"","")","De default waarde van de parameter")
+	
+	Set Parameter = Parameters.GetAt(4)
+	Do $$$AssertEquals(Parameter.GeefNaam(),"ParamZonderType","De naam van de parameter")
+	Do $$$AssertEquals(Parameter.GeefType(),"","Het type van de parameter")
+	Do $$$AssertEquals(Parameter.GeefDefaultWaarde(),"","De default waarde van de parameter")
+	
+	Set Parameter = Parameters.GetAt(5)
+	Do $$$AssertEquals(Parameter.GeefNaam(),"ParamZTMetDefault","De naam van de parameter")
+	Do $$$AssertEquals(Parameter.GeefType(),"","Het type van de parameter")
+	Do $$$AssertEquals(Parameter.GeefDefaultWaarde(),"""Iets""","De default waarde van de parameter")
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2046584206"/>
+<Checksum value="94872952"/>
 </Export>