script_core 0.2.3 → 0.3.0

data/ext/enterprise_script_service/mruby/test/t/integer.rb

@@ -14,16 +14,6 @@
 
   assert_raise(TypeError){ 0+nil }
   assert_raise(TypeError){ 1+nil }
-
-  c = Mrbtest::FIXNUM_MAX + 1
-  d = Mrbtest::FIXNUM_MAX.__send__(:+, 1)
-
-  skip unless Object.const_defined?(:Float)
-  e = Mrbtest::FIXNUM_MAX + 1.0
-  assert_equal Float, c.class
-  assert_equal Float, d.class
-  assert_float e, c
-  assert_float e, d
 end
 
 assert('Integer#-', '15.2.8.3.2') do
@@ -32,37 +22,17 @@
 
   assert_equal 1, a
   assert_equal 1.0, b if Object.const_defined?(:Float)
-
-  c = Mrbtest::FIXNUM_MIN - 1
-  d = Mrbtest::FIXNUM_MIN.__send__(:-, 1)
-
-  skip unless Object.const_defined?(:Float)
-  e = Mrbtest::FIXNUM_MIN - 1.0
-  assert_equal Float, c.class
-  assert_equal Float, d.class
-  assert_float e, c
-  assert_float e, d
 end
 
 assert('Integer#*', '15.2.8.3.3') do
   a = 1*1
-  b = 1*1.0 if Object.const_defined?(:Float)
-
   assert_equal 1, a
-  assert_equal 1.0, b if Object.const_defined?(:Float)
-
+  if Object.const_defined?(:Float)
+    b = 1*1.0
+    assert_equal 1.0, b
+  end
   assert_raise(TypeError){ 0*nil }
   assert_raise(TypeError){ 1*nil }
-
-  c = Mrbtest::FIXNUM_MAX * 2
-  d = Mrbtest::FIXNUM_MAX.__send__(:*, 2)
-
-  skip unless Object.const_defined?(:Float)
-  e = Mrbtest::FIXNUM_MAX * 2.0
-  assert_equal Float, c.class
-  assert_equal Float, d.class
-  assert_float e, c
-  assert_float e, d
 end
 
 assert('Integer#/', '15.2.8.3.4') do
@@ -73,6 +43,12 @@
   assert_equal 2.0, b
 end
 
+assert('Integer#quo') do
+  a = 6.quo(5)
+
+  assert_equal 1.2, a
+end
+
 assert('Integer#%', '15.2.8.3.5') do
   a = 1%1
   b = 1%1.0
@@ -155,10 +131,6 @@
   assert_equal 23, 46 << -1
 
   skip unless Object.const_defined?(:Float)
-
-  # Overflow to Fixnum
-  assert_float 9223372036854775808.0, 1 << 63
-  assert_float(-13835058055282163712.0, -3 << 62)
 end
 
 assert('Integer#>>', '15.2.8.3.13') do

data/ext/enterprise_script_service/mruby/test/t/kernel.rb

@@ -29,7 +29,7 @@ def bg_try(&b)
   end
 end
 
-# Kernel.eval is provided by the mruby-gem mrbgem. '15.3.1.2.3'
+# Kernel.eval is provided by the mruby-eval mrbgem. '15.3.1.2.3'
 
 assert('Kernel.iterator?', '15.3.1.2.5') do
   assert_false Kernel.iterator?
@@ -59,20 +59,11 @@ def bg_try(&b)
   assert_equal 100, i
 end
 
-assert('Kernel.p', '15.3.1.2.9') do
-  # TODO search for a way to test p to stdio
-  assert_true true
-end
+# Kernel.p is provided by the mruby-print mrbgem. '15.3.1.2.9'
 
-assert('Kernel.print', '15.3.1.2.10') do
-  # TODO search for a way to test print to stdio
-  assert_true true
-end
+# Kernel.print is provided by the mruby-print mrbgem. '15.3.1.2.10'
 
-assert('Kernel.puts', '15.3.1.2.11') do
-  # TODO search for a way to test puts to stdio
-  assert_true true
-end
+# Kernel.puts is provided by the mruby-print mrbgem. '15.3.1.2.11'
 
 assert('Kernel.raise', '15.3.1.2.12') do
   assert_raise RuntimeError do
@@ -85,7 +76,7 @@ def bg_try(&b)
 end
 
 assert('Kernel#__id__', '15.3.1.3.3') do
-  assert_equal Fixnum, __id__.class
+  assert_equal Integer, __id__.class
 end
 
 assert('Kernel#__send__', '15.3.1.3.4') do
@@ -100,6 +91,10 @@ def bg_try(&b)
   assert_true __send__(:respond_to?, :nil?)
   # test without argument and without block
   assert_equal String, __send__(:to_s).class
+
+  args = [:respond_to?, :nil?]
+  assert_true __send__(*args)
+  assert_equal [:respond_to?, :nil?], args
 end
 
 assert('Kernel#block_given?', '15.3.1.3.6') do
@@ -121,6 +116,13 @@ def bg_try(&b)
       "block"
     end
   end
+
+  def bg_try_in_block
+    -> { block_given? }[]
+  end
+
+  assert_false bg_try_in_block
+  assert_true bg_try_in_block{}
 end
 
 assert('Kernel#class', '15.3.1.3.7') do
@@ -197,17 +199,6 @@ def a.test
   a.set(2)
   c = a.dup
 
-  immutables = [ 1, :foo, true, false, nil ]
-  error_count = 0
-  immutables.each do |i|
-    begin
-      i.dup
-    rescue TypeError
-      error_count += 1
-    end
-  end
-
-  assert_equal immutables.size, error_count
   assert_equal 2, a.get
   assert_equal 1, b.get
   assert_equal 2, c.get

data/ext/enterprise_script_service/mruby/test/t/literals.rb

@@ -162,6 +162,47 @@
 QQ2
       "o")
 
+  r = <<~RRR
+    rrr
+      rrr
+  RRR
+  s = <<~"SSS"
+    sss
+      sss
+  SSS
+  t = <<~'TTT'
+    ttt
+      ttt
+  TTT
+  u = [<<~UUU1   , <<~"UUU2"   , <<~'UUU3' ]
+    u#{1}u
+  UUU1
+    u#{2}u
+  UUU2
+    u#{3}u
+  UUU3
+  v1 = <<~VVV
+
+    vvv
+    #{"vvv"}
+  VVV
+  v2 = <<~VVV
+\tvvv
+  vvv
+  VVV
+  v3 = <<~VVV
+    v v v
+      vvv
+  VVV
+  v4 = <<~VVV
+    vvv \
+    vvv
+  VVV
+  v5 = <<~VVV
+      vvv \
+    vvv
+  VVV
+
   w = %W( 1 #{<<WWW} 3
 www
 WWW
@@ -197,6 +238,15 @@
   assert_equal [1, "nn1\n", 3, 4], n
   assert_equal "a $ q\n $ c $ d", q1
   assert_equal "l $ mqq\nn $ o", q2
+  assert_equal "rrr\n  rrr\n", r
+  assert_equal "sss\n  sss\n", s
+  assert_equal "ttt\n  ttt\n", t
+  assert_equal ["u1u\n", "u2u\n", "u\#{3}u\n"], u
+  assert_equal "\nvvv\nvvv\n", v1
+  assert_equal "\tvvv\n  vvv\n", v2
+  assert_equal "v v v\n  vvv\n", v3
+  assert_equal "vvv vvv\n", v4
+  assert_equal "  vvv vvv\n", v5
   assert_equal ["1", "www\n", "3", "4", "5"], w
   assert_equal [1, "foo 222 333\n 444\n5\n bar\n6\n", 9], x
   assert_equal "", z

data/ext/enterprise_script_service/mruby/test/t/module.rb

@@ -593,7 +593,7 @@ class << self
   #        to_f / other
   #      end
   #    end
-  #    Fixnum.send(:prepend, M)
+  #    Integer.send(:prepend, M)
   #    assert_equal(0.5, 1 / 2, "#{bug7983}")
   #  }
   #  assert_equal(0, 1 / 2)
@@ -674,7 +674,7 @@ class << self
     c1 = labeled_class("C1")
     c2 = labeled_class("C2", c1) {prepend m}
     c1.class_eval {prepend m}
-    assert_equal([m, c2, m, c1], c2.ancestors[0, 4], "should accesisble prepended module in superclass")
+    assert_equal([m, c2, m, c1], c2.ancestors[0, 4], "should accessible prepended module in superclass")
   end
 
   # requires #assert_separately

data/ext/enterprise_script_service/mruby/test/t/numeric.rb

@@ -36,7 +36,7 @@ def assert_step(exp, receiver, args, inf: false)
   n = Class.new(Numeric){ def /(x); 15.1;end }.new
 
   assert_equal(2, 10/5)
-  assert_equal(0.0625, 1/16)
+  assert_equal(0, 1/16)
   assert_equal(15.1, n/10)
   assert_raise(TypeError){ 1/n }
   assert_raise(TypeError){ 1/nil }

data/ext/enterprise_script_service/mruby/test/t/range.rb

@@ -8,19 +8,39 @@
 assert('Range#==', '15.2.14.4.1') do
   assert_true (1..10) == (1..10)
   assert_false (1..10) == (1..100)
+  assert_false (1..10) == (1..)
+  assert_false (1..10) == (..10)
+
+  assert_true (1..) == (1..nil)
+  assert_true (1..) == (1..)
+  assert_false (1..) == (1...)
+
+  assert_true (..1) == (nil..1)
+  assert_true (..1) == (..1)
+  assert_false (..1) == (...1)
+
   skip unless Object.const_defined?(:Float)
   assert_true (1..10) == Range.new(1.0, 10.0)
+
 end
 
 assert('Range#===', '15.2.14.4.2') do
   a = (1..10)
+  b = (1..)
+  c = (..10)
 
   assert_true a === 5
   assert_false a === 20
+  assert_true b === 20
+  assert_false b === 0
+  assert_false c === 20
+  assert_true c === 0
 end
 
 assert('Range#begin', '15.2.14.4.3') do
   assert_equal 1, (1..10).begin
+  assert_equal 1, (1..).begin
+  assert_nil (..1).begin
 end
 
 assert('Range#each', '15.2.14.4.4') do
@@ -28,27 +48,45 @@
   b = 0
   a.each {|i| b += i}
   assert_equal 6, b
+  c = []
+  (1..).each { |i| c << i; break if c.size == 10 }
+  assert_equal [1, 2, 3, 4, 5, 6, 7, 8 ,9, 10], c
 end
 
 assert('Range#end', '15.2.14.4.5') do
   assert_equal 10, (1..10).end
+  assert_nil (1..).end
+  assert_equal 10, (..10).end
 end
 
 assert('Range#exclude_end?', '15.2.14.4.6') do
   assert_true (1...10).exclude_end?
   assert_false (1..10).exclude_end?
+  assert_true (1...).exclude_end?
+  assert_false (1..).exclude_end?
+  assert_true (...1).exclude_end?
+  assert_false (..1).exclude_end?
 end
 
 assert('Range#first', '15.2.14.4.7') do
   assert_equal 1, (1..10).first
+  assert_equal 1, (1..).first
 end
 
 assert('Range#include?', '15.2.14.4.8') do
   assert_true (1..10).include?(10)
   assert_false (1..10).include?(11)
+  assert_true (1..).include?(10)
+  assert_false (1..).include?(0)
+  assert_true (..10).include?(10)
+  assert_true (..10).include?(0)
 
   assert_true (1...10).include?(9)
   assert_false (1...10).include?(10)
+  assert_true (1...).include?(10)
+  assert_false (1...).include?(0)
+  assert_false (...10).include?(10)
+  assert_true (...10).include?(0)
 end
 
 assert('Range#initialize', '15.2.14.4.9') do
@@ -61,17 +99,29 @@
   assert_false b.exclude_end?
 
   assert_raise(NameError) { (0..1).__send__(:initialize, 1, 3) }
+
+  c = Range.new(1, nil, true)
+  d = Range.new(1, nil, false)
+
+  assert_equal (1...nil), c
+  assert_true c.exclude_end?
+  assert_equal (1..nil), d
+  assert_false d.exclude_end?
 end
 
 assert('Range#last', '15.2.14.4.10') do
   assert_equal 10, (1..10).last
+  assert_nil (1..).last
 end
 
 assert('Range#member?', '15.2.14.4.11') do
   a = (1..10)
+  b = (1..)
 
   assert_true a.member?(5)
   assert_false a.member?(20)
+  assert_true b.member?(20)
+  assert_false b.member?(0)
 end
 
 assert('Range#to_s', '15.2.14.4.12') do
@@ -79,6 +129,10 @@
   assert_equal "0...1", (0...1).to_s
   assert_equal "a..b", ("a".."b").to_s
   assert_equal "a...b", ("a"..."b").to_s
+  assert_equal "0..", (0..).to_s
+  assert_equal "0...", (0...).to_s
+  assert_equal "a..", ("a"..).to_s
+  assert_equal "a...", ("a"...).to_s
 end
 
 assert('Range#inspect', '15.2.14.4.13') do
@@ -86,19 +140,36 @@
   assert_equal "0...1", (0...1).inspect
   assert_equal "\"a\"..\"b\"", ("a".."b").inspect
   assert_equal "\"a\"...\"b\"", ("a"..."b").inspect
+  assert_equal "0..", (0..).inspect
+  assert_equal "0...", (0...).inspect
+  assert_equal "\"a\"..", ("a"..).inspect
+  assert_equal "\"a\"...", ("a"...).inspect
 end
 
 assert('Range#eql?', '15.2.14.4.14') do
   assert_true (1..10).eql? (1..10)
   assert_false (1..10).eql? (1..100)
-  assert_false (1..10).eql? (Range.new(1.0, 10.0))
   assert_false (1..10).eql? "1..10"
+  assert_true (1..).eql? (1..)
+  assert_false (1..).eql? (2..)
+  assert_false (1..).eql? "1.."
+  skip unless Object.const_defined?(:Float)
+  assert_false (1..10).eql? (Range.new(1.0, 10.0))
+  assert_false (1..).eql? (Range.new(1.0, nil))
 end
 
 assert('Range#initialize_copy', '15.2.14.4.15') do
   assert_raise(NameError) { (0..1).__send__(:initialize_copy, 1..3) }
 end
 
+assert('Range#hash', '15.3.1.3.15') do
+  assert_kind_of(Integer, (1..10).hash)
+  assert_equal (1..10).hash, (1..10).hash
+  assert_not_equal (1..10).hash, (1...10).hash
+  assert_equal (1..).hash, (1..).hash
+  assert_not_equal (1..).hash, (1...).hash
+end
+
 assert('Range#dup') do
   r = (1..3).dup
   assert_equal 1, r.begin
@@ -109,4 +180,15 @@
   assert_equal "a", r.begin
   assert_equal "z", r.end
   assert_true r.exclude_end?
+
+  r = (1..).dup
+  assert_equal 1, r.begin
+  assert_nil r.end
+  assert_false r.exclude_end?
+end
+
+assert('Range#to_a') do
+  assert_equal([1, 2, 3, 4, 5], (1..5).to_a)
+  assert_equal([1, 2, 3, 4], (1...5).to_a)
+  assert_raise(RangeError) { (1..).to_a }
 end

data/ext/enterprise_script_service/mruby/test/t/string.rb

@@ -90,6 +90,7 @@
   h1 = 'abc'[3..4]
   i1 = 'abc'[4..5]
   j1 = 'abcdefghijklmnopqrstuvwxyz'[1..3]
+  k1 = 'abcdefghijklmnopqrstuvwxyz'[-3..]
   a2 = 'abc'[1...0]
   b2 = 'abc'[1...1]
   c2 = 'abc'[1...2]
@@ -100,6 +101,7 @@
   h2 = 'abc'[3...4]
   i2 = 'abc'[4...5]
   j2 = 'abcdefghijklmnopqrstuvwxyz'[1...3]
+  k2 = 'abcdefghijklmnopqrstuvwxyz'[-3...]
 
   assert_equal '', a1
   assert_equal 'b', b1
@@ -111,6 +113,7 @@
   assert_equal '', h1
   assert_nil i2
   assert_equal 'bcd', j1
+  assert_equal 'xyz', k1
   assert_equal '', a2
   assert_equal '', b2
   assert_equal 'b', c2
@@ -121,6 +124,7 @@
   assert_equal '', h2
   assert_nil i2
   assert_equal 'bc', j2
+  assert_equal 'xyz', k2
 end
 
 assert('String#[]=') do