[Swig-cvs] SF.net SVN: swig:[10773] branches/gsoc2008-jezabek/Examples/test-suite/com/ apply_strings_runme.vbs

[<je...@us...>]

Revision: 10773
          http://swig.svn.sourceforge.net/swig/?rev=10773&view=rev
Author:   jezabek
Date:     2008-08-17 19:15:01 +0000 (Sun, 17 Aug 2008)

Log Message:
-----------
Added apply_strings run-test.

Added Paths:
-----------
    branches/gsoc2008-jezabek/Examples/test-suite/com/apply_strings_runme.vbs

Added: branches/gsoc2008-jezabek/Examples/test-suite/com/apply_strings_runme.vbs
===================================================================
--- branches/gsoc2008-jezabek/Examples/test-suite/com/apply_strings_runme.vbs	                        (rev 0)
+++ branches/gsoc2008-jezabek/Examples/test-suite/com/apply_strings_runme.vbs	2008-08-17 19:15:01 UTC (rev 10773)
@@ -0,0 +1,24 @@
+Dim apply_strings, TEST_MESSAGE
+
+Set apply_strings = CreateObject("apply_strings.apply_strings")
+TEST_MESSAGE = "A message from target language to the C++ world and back again."
+
+If apply_strings.UCharFunction(TEST_MESSAGE) <> TEST_MESSAGE Then
+  WScript.Echo "UCharFunction failed"
+  WScript.Quit 1
+End If
+
+If apply_strings.SCharFunction(TEST_MESSAGE) <> TEST_MESSAGE Then
+  WScript.Echo "SCharFunction failed"
+  WScript.Quit 1
+End If
+
+Dim pChar
+
+Rem Will fail currently
+Set pChar = apply_strings.CharFunction(null)
+If pChar <> null Then
+  WScript.Echo "CharFunction failed"
+  WScript.Quit 1
+End If
+


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.