Skip to content

Instantly share code, notes, and snippets.

@dck-jp

dck-jp/Module1Test.cls

Created June 14, 2014 19:49
Show Gist options
  • Save dck-jp/4304ab1106fe8ddcc892 to your computer and use it in GitHub Desktop.
Save dck-jp/4304ab1106fe8ddcc892 to your computer and use it in GitHub Desktop.
Download ZIP
test
Raw
Module1Test.cls
Option Explicit
Sub add_正常系_Test()
Call Assert.AreEqualVal(3, add(1, 2))
End Sub
Sub add_異常系_Test()
Assert.IsErrFunc 13, Init(New Func, vbVariant, AddressOf add, vbVariant, vbVariant), Array(1, "てすと")
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment