WSH 스크립트 단위 테스트 프레임 워크

Question

WSH 스크립트 (VB6, VBA가 아닌 vbs/wsf)에 대한 단위 테스트 프레임 워크를 찾고 있습니다. (아직 테스트하지 않았습니다 좋아 보인다,하지만 마지막 활동 2 년 전에 기록했다)

나는이 프로젝트를 제외하고 아무것도 찾을 수 없습니다

http://code.google.com/p/vbslib/

감사합니다!

Answer 1

또한 ScriptUnit이고 "vbscript unittest"로 google을 사용하면 an ancient posting of mine (별로 성공하지 못함)을 찾을 수 있습니다. 나는 여전히 주제에 관심이 있고 당신에게 적합한 방식으로 협조하고 싶습니다.

Answer 2

난 그냥 초경량 VBScript 기반 단위 테스트 프레임 워크를 포함하는 GitHub 레포를 밀었습니다. 지금 만 AssertEqual 및 AssertErrorRaised은 가지고 있지만, 그조차 필요의 경우는 더 추가 할 슈퍼 쉬운 것입니다 : 여기

https://github.com/koswald/VBScript가 spec file

With CreateObject("includer") 
    Execute(.read("VBSValidator")) 
    Execute(.read("TestingFramework")) 
End With 

Dim val : Set val = New VBSValidator 'Class Under Test 

With New TestingFramework 

    .describe "VBSValidator class" 

    .it "should return True when IsBoolean is given a True" 

     .AssertEqual val.IsBoolean(True), True 

End With 

에서 조각입니다 그리고 여기 샘플 test launcher

입니다

Main 
Sub Main 
    With CreateObject("includer") 
     ExecuteGlobal(.read("VBSTestRunner")) 
    End With 
    Dim testRunner : Set testRunner = New VBSTestRunner 
    With WScript.Arguments 
     If .Count Then 

      'if it is desired to run just a single test file, pass it in on the 
      'command line, using a relative path, relative to the spec folder 

      testRunner.SetSpecFile .item(0) 
     End If 
    End With 

    'specify the folder containing the tests; path is relative to this script 

    testRunner.SetSpecFolder "../spec" 

    'run the tests 

    testRunner.Run 
End Sub