Skip some tests on windows

Author: mattn

test/call_strcpy.rb

@@ -1,4 +1,6 @@
 mobiruby_test "CFunc::call_strcpy" do
+  skip if CFunc::Platform.is_win32?
+
   ptr = CFunc::Pointer.malloc(12)
 
   result = CFunc::call(CFunc::Pointer, "strcpy", ptr, "Hello")

test/call_struct1.rb

@@ -7,6 +7,8 @@ class STest < CFunc::Struct
 end
 
 mobiruby_test "CFunc::call_struct1" do
+  skip if CFunc::Platform.is_win32?
+
   stest = STest.new
 
   assert_equal 10, stest[:x] = 10

test/call_struct2.rb

@@ -14,6 +14,8 @@ class ::STest2 < CFunc::Struct
 end
 
 mobiruby_test "CFunc::call_struct2" do
+  skip if CFunc::Platform.is_win32?
+
   stest2 = ::STest2.new
 
   assert_equal 10, stest2[:s][:x] = 10

test/closure1.rb

@@ -1,4 +1,6 @@
 mobiruby_test "CFunc::closure1" do
+  skip if CFunc::Platform.is_win32?
+
   val = 5
   callback = CFunc::Closure.new(CFunc::Int, [CFunc::SInt32, CFunc::SInt32]) do |a, b|
     a.to_i * b.to_i * val

test/closure2.rb

@@ -1,4 +1,6 @@
 mobiruby_test "CFunc::closure2" do
+  skip if CFunc::Platform.is_win32?
+
   compar = CFunc::Closure.new(CFunc::Int, [CFunc::Pointer(CFunc::Int), CFunc::Pointer(CFunc::Int)]) do |a, b|
     a.refer.to_i - b.refer.to_i
   end

test/define_cfunc.rb

@@ -1,4 +1,6 @@
 mobiruby_test "CFunc::define_cfunc" do
+  skip if CFunc::Platform.is_win32?
+
   CFunc::define_function CFunc::Pointer, "strcpy", CFunc::Pointer, CFunc::Pointer
   CFunc::define_function CFunc::Pointer, "strcat"
   CFunc::define_function CFunc::Int, "cfunc_test_func4", CFunc::Int, CFunc::Int

test/func_pointer.rb

@@ -1,4 +1,6 @@
 mobiruby_test "CFunc::Function pointer" do
+  skip if CFunc::Platform.is_win32?
+
   dlh = CFunc::call(CFunc::Pointer, "dlopen", nil, nil)
 
   strcpy_ptr = CFunc::call(CFunc::Pointer, "dlsym", dlh, "strcpy")

test/mobitest.rb

@@ -1,6 +1,9 @@
 $ok_test, $ko_test, $kill_test = 0, 0, 0
 $asserts = []
 
+class MobiRubyTestSkip < NotImplementedError
+end
+
 class MobiRubyTest
   def initialize(label)
     @label = label
@@ -11,9 +14,14 @@ def run(&block)
     begin
       instance_eval(&block)
     rescue Exception => e
-      $asserts.push "Error: #{@label} ##{@index} #{e}"
-      $kill_test += 1
-      print('X')
+      if e.class.to_s != 'MobiRubyTestSkip'
+        $asserts.push "Error: #{@label} ##{@index} #{e}"
+        $kill_test += 1
+        print('X')
+      else
+        $asserts.push "Skip: #{@label} ##{@index}"
+        print('?')
+      end
     end
   end
 
@@ -29,6 +37,10 @@ def assert(result, label='')
     end
   end
 
+  def skip
+    raise MobiRubyTestSkip.new
+  end
+
   def assert_equal(a, b)
     assert(a===b, "<#{a.inspect}> expected but was <#{b.inspect}>")
   end

test/pointer.rb

@@ -1,4 +1,6 @@
 mobiruby_test "CFunc::Pointer" do
+  skip if CFunc::Platform.is_win32?
+
   ptr1 = CFunc::Pointer.new
   assert ptr1.is_null?
 

test/rubyvm.rb

@@ -1,4 +1,6 @@
 mobiruby_test "CFunc::RubyVM" do
+  skip if CFunc::Platform.is_win32?
+
   vm = CFunc::RubyVM.thread('_rubyvm1')
 
   def sleep(sec)

test/string1.rb

@@ -1,4 +1,6 @@
 mobiruby_test "CFunc::String1" do
+  skip if CFunc::Platform.is_win32?
+
   str = "STRING"
   ptr = CFunc::Pointer.malloc(7)