1 files changed, 61 insertions, 0 deletions
diff --git a/Examples/test-suite/ruby/apply_strings_runme.rb b/Examples/test-suite/ruby/apply_strings_runme.rb
new file mode 100755
index 0000000..299b96b
--- /dev/null
+++ b/Examples/test-suite/ruby/apply_strings_runme.rb
@@ -0,0 +1,61 @@
+#!/usr/bin/env ruby
+#
+# Put script description here.
+#
+# 
+# 
+# 
+#
+
+require 'swig_assert'
+require 'apply_strings'
+
+include Apply_strings
+
+begin
+  x = UcharPtr.new
+  swig_assert( fail, "UcharPtr should not be defined")
+rescue NameError
+end
+
+ptr = 'a'
+['UCharFunction', 'SCharFunction', 'CUCharFunction',
+ 'CSCharFunction'].each do |m|
+  val = Apply_strings.send(m, ptr)
+  swig_assert( "val == ptr", binding )
+end
+
+
+['CharFunction', 'CCharFunction'].each do |m|
+  begin
+    val = Apply_strings.send(m, ptr)
+    swig_assert( false, nil, "Apply_strings.#{m} should raise TypeError" )
+  rescue TypeError
+  end
+end
+
+ptr = 'a'
+foo = DirectorTest.new
+['UCharFunction', 'SCharFunction', 'CUCharFunction',
+ 'CSCharFunction'].each do |m|
+  val = foo.send(m, ptr)
+  swig_assert( "val == ptr", binding, "DirectorTest.#{m}" )
+end
+
+
+['CharFunction', 'CCharFunction'].each do |m|
+  begin
+    val = foo.send(m, ptr)
+    swig_assert( false, nil, "DirectorTest.#{m} should raise TypeError" )
+  rescue TypeError
+  end
+end
+
+
+# ary = Apply_strings.DigitsGlobalB
+# { 0 => 'A',
+#   1 => 'B',
+#   2 => 'B' }.each do |k,v|
+#   val = ary[k]
+#   swig_assert( val == v, "Apply_strings.DigitsGlobalB[#{k}] #{val} != #{v}")
+# end