langs a-z

Task/Assertions/VBScript/assertions-1.vbscript

@@ -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.vbscript

@@ -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.vbscript

@@ -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!