Data update

Task/Assertions/VBScript/assertions-1.vbs

@@ -0,0 +1,5 @@
+sub Assert( boolExpr, strOnFail )
+   if not boolExpr then
+      Err.Raise vbObjectError + 99999, , strOnFail
+   end if
+end sub

Task/Assertions/VBScript/assertions-2.vbs

@@ -0,0 +1,3 @@
+dim i
+i = 43
+Assert i=42, "There's got to be more to life than this!"

Task/Assertions/VBScript/assertions-3.vbs

@@ -0,0 +1,2 @@
+>cscript "C:\foo\assert.vbs"
+C:\foo\assert.vbs(3, 3) (null): There's got to be more to life than this!