rufus-lua 1.1.2 → 1.1.3

data/spec/string_spec.rb

@@ -1,60 +0,0 @@
-
-#
-# Specifying rufus-lua
-#
-# Sat Jun 21 11:04:02 JST 2014
-#
-
-require 'spec_base'
-
-# adapted from https://github.com/jmettraux/rufus-lua/issues/14
-
-
-describe 'lua strings' do
-
-  context 'and \0 bytes' do
-
-    before :each do
-      @s = Rufus::Lua::State.new
-    end
-    after :each do
-      @s.close
-    end
-
-    it 'are not truncated when returned to Ruby' do
-
-      s = @s.eval('return string.char(1, 0, 0, 2, 0, 0)')
-
-      expect(s.bytes.to_a).to eq([ 1, 0, 0, 2, 0, 0 ])
-    end
-
-    it 'are not truncated when passed from Ruby to Lua and back' do
-
-      s = [ 65, 66, 0, 67, 0, 0, 68, 0 ].pack('c*')
-
-      f = @s.eval(%{
-        f = function(s)
-          return { s = s, l = string.len(s) }
-        end
-        return f
-      })
-
-      expect(f.call(s).to_h).to eq({ 's' => s, 'l' => 8.0 })
-    end
-
-    it 'accept symbols containing the \0 character' do
-
-      s = [ 65, 66, 0, 67, 0, 0, 68, 0 ].pack('c*').to_sym
-
-      f = @s.eval(%{
-        f = function(s)
-          return { s = s, l = string.len(s) }
-        end
-        return f
-      })
-
-      expect(f.call(s).to_h).to eq({ 's' => s.to_s, 'l' => 8.0 })
-    end
-  end
-end
-

data/spec/tables_spec.rb

@@ -1,165 +0,0 @@
-
-#
-# Specifying rufus-lua
-#
-# Fri Mar 13 23:42:29 JST 2009
-#
-
-require 'spec_base'
-
-
-describe Rufus::Lua::State do
-
-  context 'tables' do
-
-    before do
-      @s = Rufus::Lua::State.new
-    end
-    after do
-      @s.close
-    end
-
-    it 'finds a hash' do
-
-      @s.eval('h = { a = "b", c = 2, 4 }')
-
-      expect(@s['h'].to_h).to eq({ 'a' => 'b', 'c' => 2.0, 1.0 => 4.0 })
-    end
-
-    it 'turns a hash into an array' do
-
-      @s.eval('a = { "a", "b", "c" }')
-
-      expect(@s['a'].to_h).to eq({ 1.0 => 'a', 2.0 => 'b', 3.0 => 'c' })
-      expect(@s['a'].to_a).to eq %w{ a b c }
-    end
-
-    it 'does nested lookups (2)' do
-
-      @s.eval('a = { b = { c = 0 } }')
-
-      expect(@s['a.b.c']).to eq 0
-    end
-
-    it 'returns Lua tables' do
-
-      expect(@s.eval('return {}').class).to eq Rufus::Lua::Table
-    end
-
-    it 'turns Lua tables into Ruby hashes' do
-
-      expect(@s.eval('return {}').to_h).to eq({})
-    end
-
-    it 'can free Lua tables' do
-
-      t = @s.eval('t = {}; return t')
-      t.free
-
-      expect(t.ref).to eq nil
-      expect(lambda { t.to_h }).to raise_error(RuntimeError)
-    end
-
-    it 'indexes tables' do
-
-      t = @s.eval("return { a = 'A' }")
-
-      expect(t['a']).to eq 'A'
-      expect(t['b']).to eq nil
-    end
-
-    it 'iterates over Lua tables' do
-
-      #t = @s.eval("return { a = 'A', b = 'B', c = 3, d = 3.1 }")
-      t = @s.eval("return { a = 'A', b = 'B', c = 3 }")
-
-      expect(t.values.sort_by { |v| v.to_s }).to eq [ 3.0, 'A', 'B' ]
-      expect(t.keys.sort).to eq [ 'a', 'b', 'c' ]
-    end
-
-    it 'provides keys and values for tables' do
-
-      t = @s.eval("return { a = 'A', b = 'B', c = 3 }")
-
-      expect(t.collect { |k, v| v }.size).to eq 3
-    end
-
-    it 'provides the size of a table' do
-
-      expect(@s.eval("return { a = 'A', b = 'B', c = 3 }").objlen).to eq 0.0
-      expect(@s.eval("return { 1, 2 }").objlen).to eq 2
-
-      expect(@s.eval("return { a = 'A', b = 'B', c = 3 }").size).to eq 3
-      expect(@s.eval("return { a = 'A', b = 'B', c = 3 }").length).to eq 3
-      expect(@s.eval("return { 1, 2 }").size).to eq 2
-      expect(@s.eval("return { 1, 2 }").length).to eq 2
-    end
-
-    it 'lets setting values in Lua tables from Ruby' do
-
-      t = @s.eval("return { a = 'A', b = 'B', c = 3 }")
-      t['b'] = 4
-
-      expect(t['b']).to eq 4.0
-    end
-
-    it 'indexes tables properly' do
-
-      @s.eval("t = { 'a', 'b', 'c' }")
-
-      expect(@s.eval("return t[0]")).to eq nil
-      expect(@s.eval("return t[1]")).to eq 'a'
-      expect(@s.eval("return t[3]")).to eq 'c'
-      expect(@s.eval("return t[4]")).to eq nil
-    end
-
-    it 'replies to to_a(false) (pure = false)' do
-
-      expect(@s.eval(
-        "return { a = 'A', b = 'B', c = 3 }"
-      ).to_a(false).sort).to eq(
-        [ [ "a", "A" ], [ "b", "B" ], [ "c", 3.0 ] ]
-      )
-      expect(@s.eval(
-        "return { 1, 2 }"
-      ).to_a(false)).to eq(
-        [ 1.0, 2.0 ]
-      )
-      expect(@s.eval(
-        "return {}"
-      ).to_a(false)).to eq(
-        []
-      )
-      expect(@s.eval(
-        "return { 1, 2, car = 'benz' }"
-      ).to_a(false)).to eq(
-        [ 1.0, 2.0, ["car", "benz"] ]
-      )
-    end
-
-    it 'tries hard to honour #to_ruby' do
-
-      expect(@s.eval(
-        "return { a = 'A', b = 'B', c = 3 }"
-      ).to_ruby).to eq(
-        { "a" => "A", "b" => "B", "c" => 3.0 }
-      )
-      expect(@s.eval(
-        "return { 1, 2 }"
-      ).to_ruby).to eq(
-        [ 1.0, 2.0 ]
-      )
-      expect(@s.eval(
-        "return {}"
-      ).to_ruby).to eq(
-        []
-      )
-      expect(@s.eval(
-        "return { 1, 2, car = 'benz' }"
-      ).to_ruby).to eq(
-        { 1.0 => 1.0, "car" => "benz", 2.0 => 2.0 }
-      )
-    end
-  end
-end
-

data/spec/utils_spec.rb

@@ -1,45 +0,0 @@
-
-#
-# Specifying rufus-lua
-#
-# Sat Mar 14 11:39:15 JST 2009
-#
-
-require 'spec_base'
-
-
-describe Rufus::Lua do
-
-  context '(utils)' do
-
-    it 'turns Ruby arrays into Lua string representations' do
-
-      expect(Rufus::Lua.to_lua_s(
-        %w{ a b c }
-      )).to eq(
-        '{ "a", "b", "c" }'
-      )
-
-      # TODO : ["a"] is probably better...
-    end
-
-    it 'turns Ruby hashes into Lua string representations' do
-
-      expect(Rufus::Lua.to_lua_s(
-        { 'a' => 'A', 'b' => 2}
-      )).to eq(
-        '{ ["a"] = "A", ["b"] = 2 }'
-      )
-    end
-
-    it 'turns Ruby NilClass into Lua nil representation' do
-
-      expect(Rufus::Lua.to_lua_s(
-        {'a' => nil}
-      )).to eq(
-        '{ ["a"] = nil }'
-      )
-    end
-  end
-end
-

data/test/bm0.rb

@@ -1,41 +0,0 @@
-
-#
-# benchmarking rufus-lua
-#
-# Thu Mar 12 15:40:26 JST 2009
-#
-
-$:.unshift('lib')
-
-require 'benchmark'
-
-require 'rubygems'
-require 'rufus/lua'
-
-
-Benchmark.benchmark(' ' * 31 + Benchmark::Tms::CAPTION, 31) do |b|
-
-  b.report('ruby') do
-    1_000_000.times { |i| i }
-  end
-
-  s = Rufus::Lua::State.new
-  b.report('lua') do
-    s.eval('for i = 1, 1000000 do end')
-  end
-  s.close
-end
-
-# jmettraux@sanma ~/rufus/rufus-lua (master) $ ruby test/bm0.rb
-#                                      user     system      total        real
-# ruby                             0.220000   0.000000   0.220000 (  0.217909)
-# lua                              0.010000   0.000000   0.010000 (  0.013667)
-# jmettraux@sanma ~/rufus/rufus-lua (master) $ ruby19 test/bm0.rb
-#                                      user     system      total        real
-# ruby                             0.120000   0.010000   0.130000 (  0.123396)
-# lua                              0.010000   0.000000   0.010000 (  0.013869)
-# jmettraux@sanma ~/rufus/rufus-lua (master) $ ruby19 test/bm0.rb
-#                                      user     system      total        real
-# ruby                             0.110000   0.000000   0.110000 (  0.125229)
-# lua                              0.020000   0.000000   0.020000 (  0.012828)
-

data/test/bm_fiber.rb

@@ -1,78 +0,0 @@
-
-#
-# benchmarking rufus-lua
-#
-# Thu Mar 12 15:40:26 JST 2009
-#
-
-$:.unshift('lib')
-
-require 'benchmark'
-
-require 'rubygems'
-require 'rufus/lua'
-
-RUBYFIBS = Fiber.new do
-  n1 = n2 = 1
-  loop do
-    Fiber.yield n1
-    n1, n2 = n2, n1+n2
-  end
-end
-#20.times { print RUBYFIBS.resume, ' ' }
-
-s = %{
-  co = coroutine.create(function ()
-    local n1 = 1; local n2 = 1
-    while true do
-      coroutine.yield(n1)
-      n1, n2 = n2, n1+n2
-    end
-  end)
-  return co
-}
-
-LUA = Rufus::Lua::State.new
-LUAFIBS = LUA.eval(s)
-#20.times { print LUAFIBS.resume, ' ' }
-
-N = 10_000
-Benchmark.benchmark(' ' * 31 + Benchmark::Tms::CAPTION, 31) do |b|
-  b.report('ruby') do
-    N.times { RUBYFIBS.resume }
-  end
-  b.report('lua via ruby') do
-    N.times { LUAFIBS.resume }
-  end
-  b.report('lua') do
-    LUA.eval("for i = 0, #{N} do coroutine.resume(co) end")
-  end
-end
-
-LUA.close
-
-
-# $ ruby19 test/bm_fiber.rb
-#                   user     system      total        real
-# ruby          0.050000   0.010000   0.060000 (  0.054605)
-# lua via ruby  0.180000   0.000000   0.180000 (  0.189010)
-# lua           0.010000   0.000000   0.010000 (  0.005543)
-#
-# $ ruby19 test/bm_fiber.rb
-#                   user     system      total        real
-# ruby          0.050000   0.000000   0.050000 (  0.051531)
-# lua via ruby  0.180000   0.010000   0.190000 (  0.194944)
-# lua           0.010000   0.000000   0.010000 (  0.006325)
-#
-# $ ruby19 test/bm_fiber.rb
-#                   user     system      total        real
-# ruby          0.050000   0.010000   0.060000 (  0.052032)
-# lua via ruby  0.180000   0.000000   0.180000 (  0.195411)
-# lua           0.010000   0.000000   0.010000 (  0.006394)
-#
-# $ ruby19 test/bm_fiber.rb
-#                   user     system      total        real
-# ruby          0.050000   0.010000   0.060000 (  0.054892)
-# lua via ruby  0.180000   0.000000   0.180000 (  0.267880)
-# lua           0.000000   0.000000   0.000000 (  0.005865)
-

data/test/bm_gc_stop.rb

@@ -1,43 +0,0 @@
-
-#
-# benchmarking rufus-lua
-#
-# Tue Mar 17 15:02:27 JST 2009
-#
-
-$:.unshift('lib')
-
-require 'benchmark'
-
-require 'rubygems'
-require 'rufus/lua'
-
-code = %{
-  for i = 1, 10000 do
-    local a = {}
-    for j = 1, 2000 do
-      a[#a] = j
-    end
-  end
-}
-
-Benchmark.benchmark(' ' * 31 + Benchmark::Tms::CAPTION, 31) do |b|
-
-  l = Rufus::Lua::State.new
-
-  b.report('lua (GC on)') do
-    l.eval(code)
-  end
-
-  l.close
-
-  l = Rufus::Lua::State.new
-  l.gc_stop
-
-  b.report('lua (GC off)') do
-    l.eval(code)
-  end
-
-  l.close
-end
-

data/test/gc0.rb

@@ -1,19 +0,0 @@
-#
-# Test garbage collection API from rufus-lua
-#
-
-$:.unshift('lib')
-
-require 'rubygems'
-require 'rufus/lua'
-
-
-puts "Creating a new state..."
-s = Rufus::Lua::State.new
-puts "  #{s.gc_count} KB in use by Lua interpreter"
-puts "  Calling into Lua..."
-puts s.eval("return table.concat({ '    hello', 'from', 'Lua' }, ' ')")
-puts "  #{s.gc_count} KB in use by Lua interpreter"
-puts "Performing forced garbage collection..."
-s.gc_collect!
-puts "  #{s.gc_count} KB in use by Lua interpreter"