Added default_constructor runme test mirroring the test from Python.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2008-jezabek@10786 626c5289-ae23-0410-ae9c-e8d60b6d4f22

1 files changed, 204 insertions, 0 deletions

diff --git a/Examples/test-suite/com/default_constructor_runme.vbs b/Examples/test-suite/com/default_constructor_runme.vbs
new file mode 100644
index 000000000..42d5ffbdb
--- /dev/null
+++ b/Examples/test-suite/com/default_constructor_runme.vbs
@@ -0,0 +1,204 @@
+Dim dc
+
+Set dc = CreateObject("default_constructor.default_constructor")
+
+Dim obj, res
+
+res = 0
+
+Rem This should work
+
+Set obj = dc.A.new_A()
+obj = empty
+
+Set obj = dc.AA.new_AA()
+obj = empty
+
+Set obj = dc.CC.new_CC()
+obj = empty
+
+Set obj = dc.EE.new_EE()
+obj = empty
+
+Set obj = dc.F.new_F()
+obj = empty
+
+Set obj = dc.FFF.new_FFF()
+obj = empty
+
+Set obj = dc.G.new_G()
+obj = empty
+
+Set obj = dc.GG.new_GG()
+obj = empty
+
+Set obj = dc.HH.new_HH(1,1)
+obj = empty
+
+Rem These cases should not work
+
+On Error Resume Next
+
+Set obj = dc.B.new_B()
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_B created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = dc.BB.new_BB()
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_BB created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = dc.C.new_C()
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_C created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = dc.D.new_D()
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_D created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = dc.DD.new_DD()
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_DD created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = dc.AD.new_AD()
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_AD created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = dc.E.new_E()
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_E created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = dc.EB.new_EB()
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_EB created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Rem Now let's test the alternate construction method (CreateObject)
+
+On Error Goto 0
+
+Rem This should work
+
+Set obj = CreateObject("default_constructor.A")
+obj = empty
+
+Set obj = CreateObject("default_constructor.AA")
+obj = empty
+
+Set obj = CreateObject("default_constructor.CC")
+obj = empty
+
+Set obj = CreateObject("default_constructor.EE")
+obj = empty
+
+Set obj = CreateObject("default_constructor.F")
+obj = empty
+
+Set obj = CreateObject("default_constructor.FFF")
+obj = empty
+
+Set obj = CreateObject("default_constructor.G")
+obj = empty
+
+Set obj = CreateObject("default_constructor.GG")
+obj = empty
+
+Rem These cases should not work
+
+On Error Resume Next
+
+Set obj = CreateObject("default_constructor.B")
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_B created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = CreateObject("default_constructor.BB")
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_BB created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = CreateObject("default_constructor.C")
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_C created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = CreateObject("default_constructor.D")
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_D created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = CreateObject("default_constructor.DD")
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_DD created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = CreateObject("default_constructor.AD")
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_AD created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = CreateObject("default_constructor.E")
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_E created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+Set obj = CreateObject("default_constructor.EB")
+If Err.Number = 0 Then
+  WScript.Echo "Whoa. new_EB created."
+  res = 1
+End If
+obj = empty
+Err.Clear
+
+WScript.Quit res