Question

在asserts脚本中使用VBScript的好方法是什么？

是否有内置功能或是否必须模拟？什么是最佳做法？

一个应用程序是在开发过程中测试Nothing对象。

Answer 1

操作答案（对于可能需要它的其他人）是从Rosetta Code定义此功能：

    sub Assert( boolExpr, strOnFail )
        if not boolExpr then
            Err.Raise vbObjectError + 99999, , strOnFail
        end if
    end sub

调用：

    Set obj2 = Nothing
    Assert Not obj2 Is Nothing, "obj2 is Nothing!"

输出：

    someScript.vbs(17, 3) (null): obj2 is Nothing!

Answer 2

可悲的是，我不相信VBScript有任何内置的东西。您需要定义自己的Assert方法，并在构建脚本的发布副本时使用预处理器构建脚本或其他东西来删除它们。（实际上删除 - 至少注释掉 - Assert调用是最好的，而不仅仅是让Assert的主体在发布的代码中不做任何事情。）

如何在VBScript脚本中断言？

2 个答案: