added test system

Author: schmurfy

Gemfile

@@ -0,0 +1,7 @@
+source 'https://rubygems.org'
+
+gem 'guard'
+gem 'guard-rake'
+gem 'rb-fsevent'
+
+gem 'ffi'

Gemfile.lock

@@ -0,0 +1,42 @@
+GEM
+  remote: https://rubygems.org/
+  specs:
+    coderay (1.0.9)
+    ffi (1.8.1)
+    formatador (0.2.4)
+    guard (1.8.0)
+      formatador (>= 0.2.4)
+      listen (>= 1.0.0)
+      lumberjack (>= 1.0.2)
+      pry (>= 0.9.10)
+      thor (>= 0.14.6)
+    guard-rake (0.0.9)
+      guard
+      rake
+    listen (1.1.3)
+      rb-fsevent (>= 0.9.3)
+      rb-inotify (>= 0.9)
+      rb-kqueue (>= 0.2)
+    lumberjack (1.0.3)
+    method_source (0.8.1)
+    pry (0.9.12.2)
+      coderay (~> 1.0.5)
+      method_source (~> 0.8)
+      slop (~> 3.4)
+    rake (10.0.4)
+    rb-fsevent (0.9.3)
+    rb-inotify (0.9.0)
+      ffi (>= 0.5.0)
+    rb-kqueue (0.2.0)
+      ffi (>= 0.5.0)
+    slop (3.4.5)
+    thor (0.18.1)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  ffi
+  guard
+  guard-rake
+  rb-fsevent

Guardfile

@@ -0,0 +1,11 @@
+
+guard 'rake', :task => 'mrbtest' do
+  watch(%r{^mrblib/(.+)\.rb$})
+  watch(%r{^specs/(.+)\.rb$})
+  watch(%r{^specs/libtest/libtest.dylib})
+end
+
+
+guard 'rake', task: 'specs/libtest/libtest.dylib' do
+  watch(%r{^specs/libtest/libtest.c})
+end

Rakefile

@@ -9,9 +9,15 @@ task :mrbpack do
   load(File.expand_path('../mrbgem.rake', __FILE__))
   target_files = $mrbfiles
 
-  test_file_path = File.expand_path('../mruby_test.rb', __FILE__)
-  if File.exist?(test_file_path)
-    target_files << test_file_path
+  target_files.unshift File.expand_path('../specs/init.rb', __FILE__)
+  
+  
+  %w(
+    tool.rb
+    basic_spec.rb
+    enum_spec.rb
+  ).each do |path|
+    target_files << File.expand_path("../specs/#{path}", __FILE__)
   end
 
   FileUtils.mkdir_p('tmp')
@@ -30,6 +36,10 @@ end
 
 task :mrbtest => :mrbpack do
   # replace ourself with mruby process
-  Process.exec('mruby tmp/blob.rb')
+  system('mruby tmp/blob.rb')
+end
+
+file 'specs/libtest/libtest.dylib' => ["specs/libtest/libtest.c"] do
+  sh "gcc -dynamiclib -o specs/libtest/libtest.dylib specs/libtest/libtest.c"
 end
 

specs/basic_spec.rb

@@ -0,0 +1,69 @@
+
+
+module FFITests
+  module CLib
+    extend FFI::Library
+    
+    ffi_lib :c
+    
+    attach_function :sleep, [:uint32], :uint32
+  end
+  
+  module TestLib
+    extend FFI::Library
+    
+    ffi_lib '/Users/schmurfy/Dev/personal/mrbgems/mruby-rubyffi-compat/specs/libtest/libtest.dylib'
+    
+    attach_function :return_uint, [:uint32], :uint32
+    attach_function :return_double, [:double], :double
+    attach_function :return_uint_by_address, [:pointer], :void
+    
+    
+    class S1Struct < FFI::Struct
+      layout(
+          :n1,  :uint32,
+          :n2,  :uint32,
+          :s1,  :uint16,
+          :d1,  :double,
+        )
+    end
+    
+    attach_function :fill_struct, [:pointer], :void
+  end
+end
+
+
+
+should 'return integer by address' do
+  n = FFI::MemoryPointer.new(:uint32)
+  FFITests::TestLib.return_uint_by_address(n)
+  assert_equal(42, n.read_uint32())
+end
+
+should 'return integer by value' do
+  ret = FFITests::TestLib.return_uint(4)
+  assert_equal(4, ret)
+end
+
+should 'return double by value' do
+  ret = FFITests::TestLib.return_double(4.32)
+  assert_equal(4.32, ret)
+end
+
+should 'fill structure' do
+  s = FFITests::TestLib::S1Struct.new
+  FFITests::TestLib.fill_struct(s.addr)
+  
+  assert_equal(56, s[:n1])
+  assert_equal(982, s[:n2])
+  assert_equal(12, s[:s1])
+  assert_equal(6.78, s[:d1])
+end
+
+
+should 'sleep 1s' do
+  t = Time.now
+  FFITests::CLib.sleep(1)
+  assert_equal(1, (Time.now - t).to_i)
+end
+

specs/enum_spec.rb

@@ -0,0 +1,21 @@
+module FFITests
+  module TestLib
+    enum :day, [:sunday, 1,
+                :monday,
+                :tuesday,
+                :wednesday,
+                :thursday,
+                :friday,
+                :saturday ]
+
+    attach_function :is_work_day, [ :day ], :int
+    
+  end
+end
+
+
+should 'accept symbol as enum argument' do
+  eq(0, FFITests::TestLib.is_work_day(:sunday))
+  eq(0, FFITests::TestLib.is_work_day(:saturday))
+  eq(1, FFITests::TestLib.is_work_day(:tuesday))
+end

specs/init.rb

@@ -0,0 +1,6 @@
+module FFI
+  def self.longsize
+    8
+  end
+end
+

specs/libtest/Makefile

@@ -0,0 +1,4 @@
+all: libtest.so
+
+libtest.so: libtest.c
+	$(CC) -dynamiclib -o libtest.dylib libtest.c 

specs/libtest/libtest.c

@@ -0,0 +1,54 @@
+
+#include <stdio.h>
+#include <stdint.h>
+
+
+enum day {
+  SUNDAY = 1,
+  MONDAY,
+  TUESDAY,
+  WEDNESDAY,
+  THURSDAY,
+  FRIDAY,
+  SATURDAY
+};
+
+// A function that takes an argument of the Day enum type:
+int is_work_day( enum day day_of_week ){
+  int ret = ((day_of_week > SUNDAY) && (day_of_week < SATURDAY)) ? 1 : 0;
+  return ret;
+}
+
+
+unsigned int return_uint(unsigned int n){
+  return n;
+}
+
+double return_double(double d){
+  return d;
+}
+
+void return_uint_by_address(unsigned int *out){
+  *out = 42;
+}
+
+
+struct s1
+{
+  uint32_t n1;
+  uint32_t n2;
+  uint16_t shorty;
+  double d1;
+};
+
+void fill_struct(struct s1 *s)
+{
+  s->n1 = 56;
+  s->n2 = 982;
+  s->shorty = 12;
+  s->d1 = 6.78;
+}
+
+void test(){
+  printf("Yeah !\n");
+}

specs/mri_runner.rb

@@ -0,0 +1,20 @@
+require 'rubygems'
+require 'bundler/setup'
+
+require 'ffi'
+
+class FFI::Pointer
+  def addr
+    self
+  end
+end
+
+class FFI::Struct
+  def addr
+    self
+  end
+end
+
+require File.expand_path('../tool', __FILE__)
+require File.expand_path('../basic_spec', __FILE__)
+require File.expand_path('../enum_spec', __FILE__)

specs/tool.rb

@@ -0,0 +1,16 @@
+
+
+def assert_equal(expected, given)
+  if expected != given
+    raise "Expected #{expected}, got #{given}"
+  end
+end
+
+alias :eq :assert_equal
+
+def should(msg)
+  print "Should #{msg}... #{' ' * (30 - msg.size)}"
+  yield
+  puts "OK"
+end
+