tenderlove-rkelly 0.0.0.20080909095845

data/test/ecma_script_test_case.rb

@@ -0,0 +1,21 @@
+require File.dirname(__FILE__) + "/helper"
+
+class ECMAScriptTestCase < Test::Unit::TestCase
+  include RKelly::JS
+
+  undef :default_test
+
+  def setup
+    @runtime = RKelly::Runtime.new
+    @runtime.define_function(:assert_equal) do |*args|
+      assert_equal(*args)
+    end
+    @runtime.define_function(:assert_in_delta) do |*args|
+      assert_in_delta(*args)
+    end
+  end
+
+  def js_assert_equal(expected, actual)
+    @runtime.execute("assert_equal(#{expected}, #{actual});")
+  end
+end

data/test/execute_test_case.rb

@@ -0,0 +1,16 @@
+require File.dirname(__FILE__) + "/helper"
+
+class ExecuteTestCase < Test::Unit::TestCase
+  include RKelly::Nodes
+
+  undef :default_test
+
+  def assert_execute(expected, code)
+    scope_chain = @runtime.execute(code)
+    expected.each do |name, value|
+      assert scope_chain.has_property?(name)
+      assert_equal value, scope_chain[name].value
+    end
+  end
+end
+

data/test/execution_contexts/test_10_1_3-1.rb

@@ -0,0 +1,32 @@
+require File.dirname(__FILE__) + "/../helper"
+
+class ExecutionContext_10_1_3_1_Test < Test::Unit::TestCase
+  def setup
+    @runtime = RKelly::Runtime.new
+    @runtime.define_function(:assert_equal) do |*args|
+      assert_equal(*args)
+    end
+  end
+
+  def test_myfun3_void_0
+    scope_chain = @runtime.execute("
+                     function myfun3(a, b, a) {
+                      return a;
+                     }
+                     var x = myfun3(2,4);
+                     ")
+    assert scope_chain.has_property?('x')
+    #assert_equal :undefined, scope_chain['x'].value
+  end
+
+  def test_myfun3
+    scope_chain = @runtime.execute("
+                     function myfun3(a, b, a) {
+                      return a;
+                     }
+                     var x = myfun3(2,4,8);
+                     ")
+    assert scope_chain.has_property?('x')
+    assert_equal 8, scope_chain['x'].value
+  end
+end

data/test/expressions/test_11_3_1.rb

@@ -0,0 +1,64 @@
+require File.dirname(__FILE__) + "/../helper"
+
+class Expressions_11_3_1_Test < ECMAScriptTestCase
+  def test_uninitialized
+    @runtime.execute("var MYVAR; assert_equal(NaN, MYVAR++); assert_equal(NaN, MYVAR);")
+  end
+
+  @@tests = [
+    :undefined          => [ '(void 0)', 'NaN', 'NaN'],
+    :null               => [ 'null',  '0', '1'],
+    :true               => [ 'true',  '1', '2'],
+    :false              => [ 'false', '0', '1'],
+    :positive_infinity  => [ 'Number.POSITIVE_INFINITY',
+                              'Number.POSITIVE_INFINITY',
+                              'Number.POSITIVE_INFINITY'],
+    :negative_infinity  => [ 'Number.NEGATIVE_INFINITY',
+                              'Number.NEGATIVE_INFINITY',
+                              'Number.NEGATIVE_INFINITY'],
+    :nan                => [ 'Number.NaN', 'Number.NaN', 'Number.NaN'],
+    :zero               => [ '0', '0', '1'],
+    :boolean_false      => ['new Boolean(false)', '0', '1'],
+    :boolean_true       => ['new Boolean(true)', '1', '2'],
+    :string_string      => ["'string'", 'Number.NaN', 'Number.NaN'],
+    :number_s           => ["'12345'", '12345', '12346'],
+    :negative_s         => ["'-12345'", '-12345', '-12344'],
+    :hex_s              => ["'0Xf'", '15', '16'],
+    :num_0_s            => ["'077'", '77', '78'],
+    :empty_s            => ["''", '0', '1'],
+    :obj_string_string  => ['new String("string")', 'Number.NaN', 'Number.NaN'],
+    :obj_string_num     => ['new String("12345")', '12345', '12346'],
+    :obj_negative       => ['new String("-12345")', '-12345', '-12344'],
+    :obj_hex            => ['new String("0Xf")', '15', '16'],
+    :obj_0_s            => ['new String("077")', '77', '78'],
+    :obj_empty          => ['new String("")', '0', '1'],
+  ]
+
+  def test_positive_float
+    @runtime.execute("
+                     var MYVAR=0.2345;
+                     assert_equal(0.2345, MYVAR++);
+                     assert_in_delta(1.2345, MYVAR, 0.00001);
+                     ")
+  end
+
+  def test_negative_float
+    @runtime.execute("
+                     var MYVAR=-0.2345;
+                     assert_equal(-0.2345, MYVAR++);
+                     assert_in_delta(0.7655, MYVAR, 0.00001);
+                     ")
+  end
+
+  @@tests.each do |testing|
+    testing.each do |name, values|
+      define_method(:"test_#{name}") do
+        @runtime.execute("
+                         var MYVAR=#{values[0]};
+                         assert_equal(#{values[1]}, MYVAR++);
+                         assert_equal(#{values[2]}, MYVAR);
+                         ")
+      end
+    end
+  end
+end

data/test/expressions/test_11_3_2.rb

@@ -0,0 +1,64 @@
+require File.dirname(__FILE__) + "/../helper"
+
+class Expressions_11_3_2_Test < ECMAScriptTestCase
+  def test_uninitialized
+    @runtime.execute("var MYVAR; assert_equal(NaN, MYVAR--); assert_equal(NaN, MYVAR);")
+  end
+
+  @@tests = [
+    :undefined          => [ '(void 0)', 'NaN', 'NaN'],
+    :null               => [ 'null',  '0', '-1'],
+    :true               => [ 'true',  '1', '0'],
+    :false              => [ 'false', '0', '-1'],
+    :positive_infinity  => [ 'Number.POSITIVE_INFINITY',
+                              'Number.POSITIVE_INFINITY',
+                              'Number.POSITIVE_INFINITY'],
+    :negative_infinity  => [ 'Number.NEGATIVE_INFINITY',
+                              'Number.NEGATIVE_INFINITY',
+                              'Number.NEGATIVE_INFINITY'],
+    :nan                => [ 'Number.NaN', 'Number.NaN', 'Number.NaN'],
+    :zero               => [ '0', '0', '-1'],
+    :boolean_false      => ['new Boolean(false)', '0', '-1'],
+    :boolean_true       => ['new Boolean(true)', '1', '0'],
+    :string_string      => ["'string'", 'Number.NaN', 'Number.NaN'],
+    :number_s           => ["'12345'", '12345', '12344'],
+    :negative_s         => ["'-12345'", '-12345', '-12346'],
+    :hex_s              => ["'0Xf'", '15', '14'],
+    :num_0_s            => ["'077'", '77', '76'],
+    :empty_s            => ["''", '0', '-1'],
+    :obj_string_string  => ['new String("string")', 'Number.NaN', 'Number.NaN'],
+    :obj_string_num     => ['new String("12345")', '12345', '12344'],
+    :obj_negative       => ['new String("-12345")', '-12345', '-12346'],
+    :obj_hex            => ['new String("0Xf")', '15', '14'],
+    :obj_0_s            => ['new String("077")', '77', '76'],
+    :obj_empty          => ['new String("")', '0', '-1'],
+  ]
+
+  def test_positive_float
+    @runtime.execute("
+                     var MYVAR=0.2345;
+                     assert_equal(0.2345, MYVAR--);
+                     assert_in_delta(-0.7655, MYVAR, 0.00001);
+                     ")
+  end
+
+  def test_negative_float
+    @runtime.execute("
+                     var MYVAR=-0.2345;
+                     assert_equal(-0.2345, MYVAR--);
+                     assert_in_delta(-1.2345, MYVAR, 0.00001);
+                     ")
+  end
+
+  @@tests.each do |testing|
+    testing.each do |name, values|
+      define_method(:"test_#{name}") do
+        @runtime.execute("
+                         var MYVAR=#{values[0]};
+                         assert_equal(#{values[1]}, MYVAR--);
+                         assert_equal(#{values[2]}, MYVAR);
+                         ")
+      end
+    end
+  end
+end

data/test/expressions/test_11_4_2.rb

@@ -0,0 +1,13 @@
+require File.dirname(__FILE__) + "/../helper"
+
+class Expressions_11_4_2_Test < Test::Unit::TestCase
+  def setup
+    @runtime = RKelly::Runtime.new
+  end
+
+  def test_void_1
+    scope_chain = @runtime.execute("var x = void(10);")
+    assert scope_chain.has_property?('x')
+    assert_equal :undefined, scope_chain['x'].value
+  end
+end

data/test/expressions/test_11_4_3.rb

@@ -0,0 +1,52 @@
+require File.dirname(__FILE__) + "/../helper"
+
+class Typeof_11_4_3_Test < ExecuteTestCase
+  def setup
+    @runtime = RKelly::Runtime.new
+  end
+
+  def test_typeof_null
+    assert_execute({ 'x' => 'object' },
+      "var x = typeof(null);")
+  end
+
+  def test_typeof_void_0
+    assert_execute({ 'x' => 'undefined' },
+      "var x = typeof(void(0));")
+  end
+
+  def test_typeof_true
+    assert_execute({ 'x' => 'boolean' },
+      "var x = typeof(true);")
+  end
+
+  def test_typeof_false
+    assert_execute({ 'x' => 'boolean' },
+      "var x = typeof(false);")
+  end
+
+  def test_typeof_nan
+    assert_execute({ 'x' => 'number' },
+      "var x = typeof(NaN);")
+  end
+
+  def test_typeof_zero
+    assert_execute({ 'x' => 'number' }, "var x = typeof(0);")
+  end
+
+  def test_typeof_one
+    assert_execute({ 'x' => 'number' }, "var x = typeof(1);")
+  end
+
+  def test_typeof_minus_one
+    assert_execute({ 'x' => 'number' }, "var x = typeof(-1);")
+  end
+
+  def test_typeof_plus_one
+    assert_execute({ 'x' => 'number' }, "var x = typeof(+1);")
+  end
+
+  def test_typeof_zero_string
+    assert_execute({ 'x' => 'string' }, "var x = typeof('0');")
+  end
+end

data/test/expressions/test_11_4_4.rb

@@ -0,0 +1,68 @@
+require File.dirname(__FILE__) + "/../helper"
+
+class Expressions_11_4_4_Test < ECMAScriptTestCase
+  def test_uninitialized
+    @runtime.execute("
+                     var MYVAR;
+                     assert_equal(NaN, ++MYVAR);
+                     assert_equal(NaN, MYVAR);
+                     ")
+  end
+
+  @@tests = [
+    :undefined          => ['(void 0)', 'NaN'],
+    :null               => ['null', '1'],
+    :true               => ['true', '2'],
+    :false              => ['false', '1'],
+    :positive_infinity  => ['Number.POSITIVE_INFINITY',
+                            'Number.POSITIVE_INFINITY'],
+    :negative_infinity  => ['Number.NEGATIVE_INFINITY',
+                            'Number.NEGATIVE_INFINITY'],
+    :nan                => ['Number.NaN', 'Number.NaN'],
+    :zero               => ['0', '1'],
+    #:pos_float          => ['0.2345', '1.2345'],
+    #:neg_float          => ['-0.2345', '0.7655'],
+    :boolean_false      => ['new Boolean(false)', '1'],
+    :boolean_true       => ['new Boolean(true)', '2'],
+    :string_string      => ["'string'", 'Number.NaN'],
+    :number_s           => ["'12345'", '12346'],
+    :negative_s         => ["'-12345'", '-12344'],
+    :hex_s              => ["'0Xf'", '16'],
+    :num_0_s            => ["'077'", '78'],
+    :empty_s            => ["''", '1'],
+    :obj_string_string  => ['new String("string")', 'Number.NaN'],
+    :obj_string_num     => ['new String("12345")', '12346'],
+    :obj_negative       => ['new String("-12345")', '-12344'],
+    :obj_hex            => ['new String("0Xf")', '16'],
+    :obj_0_s            => ['new String("077")', '78'],
+    :obj_empty          => ['new String("")', '1'],
+  ]
+
+  def test_positive_float
+    @runtime.execute("
+                     var MYVAR=0.2345;
+                     assert_in_delta(1.2345, ++MYVAR, 0.00001);
+                     assert_in_delta(1.2345, MYVAR, 0.00001);
+                     ")
+  end
+
+  def test_negative_float
+    @runtime.execute("
+                     var MYVAR=-0.2345;
+                     assert_in_delta(0.7655, ++MYVAR, 0.00001);
+                     assert_in_delta(0.7655, MYVAR, 0.00001);
+                     ")
+  end
+
+  @@tests.each do |testing|
+    testing.each do |name, values|
+      define_method(:"test_#{name}") do
+        @runtime.execute("
+                         var MYVAR=#{values[0]};
+                         assert_equal(#{values[1]}, ++MYVAR);
+                         assert_equal(#{values[1]}, MYVAR);
+                         ")
+      end
+    end
+  end
+end

data/test/expressions/test_11_4_5.rb

@@ -0,0 +1,69 @@
+require File.dirname(__FILE__) + "/../helper"
+
+class Expressions_11_4_5_Test < ECMAScriptTestCase
+  def test_uninitialized
+    @runtime.execute("
+                     var MYVAR;
+                     assert_equal(NaN, --MYVAR);
+                     assert_equal(NaN, MYVAR);
+                     ")
+  end
+
+  @@tests = [
+    :undefined          => ['(void 0)', 'NaN'],
+    :null               => ['null', '-1'],
+    :true               => ['true', '0'],
+    :false              => ['false', '-1'],
+    :positive_infinity  => ['Number.POSITIVE_INFINITY',
+                            'Number.POSITIVE_INFINITY'],
+    :negative_infinity  => ['Number.NEGATIVE_INFINITY',
+                            'Number.NEGATIVE_INFINITY'],
+    :nan                => ['Number.NaN', 'Number.NaN'],
+    :zero               => ['0', '-1'],
+    #:pos_float          => ['0.2345', '1.2345'],
+    #:neg_float          => ['-0.2345', '0.7655'],
+    :boolean_false      => ['new Boolean(false)', '-1'],
+    :boolean_true       => ['new Boolean(true)', '0'],
+    :string_string      => ["'string'", 'Number.NaN'],
+    :number_s           => ["'12345'", '12344'],
+    :negative_s         => ["'-12345'", '-12346'],
+    :hex_s              => ["'0Xf'", '14'],
+    :num_0_s            => ["'077'", '76'],
+    :empty_s            => ["''", '-1'],
+    :obj_string_string  => ['new String("string")', 'Number.NaN'],
+    :obj_string_num     => ['new String("12345")', '12344'],
+    :obj_negative       => ['new String("-12345")', '-12346'],
+    :obj_hex            => ['new String("0Xf")', '14'],
+    :obj_0_s            => ['new String("077")', '76'],
+    :obj_empty          => ['new String("")', '-1'],
+  ]
+
+  def test_positive_float
+    @runtime.execute("
+                     var MYVAR=0.2345;
+                     assert_in_delta(-0.7655, --MYVAR, 0.00001);
+                     assert_in_delta(-0.7655, MYVAR, 0.00001);
+                     ")
+  end
+
+  def test_negative_float
+    @runtime.execute("
+                     var MYVAR=-0.2345;
+                     assert_in_delta(-1.2345, --MYVAR, 0.00001);
+                     assert_in_delta(-1.2345, MYVAR, 0.00001);
+                     ")
+  end
+
+  @@tests.each do |testing|
+    testing.each do |name, values|
+      define_method(:"test_#{name}") do
+        @runtime.execute("
+                         var MYVAR=#{values[0]};
+                         assert_equal(#{values[1]}, --MYVAR);
+                         assert_equal(#{values[1]}, MYVAR);
+                         ")
+      end
+    end
+  end
+end
+

data/test/expressions/test_11_4_6.rb

@@ -0,0 +1,88 @@
+require File.dirname(__FILE__) + "/../helper"
+
+class Expressions_11_4_6_Test < ECMAScriptTestCase
+  @@tests = {
+    :empty_string   => ["''", 0],
+    :space_string   => ["' '", 0],
+    :tab_string     => ["'\t'", 0],
+    :newline_string => ["'\n'", 0],
+    :cr_string      => ["'\r'", 0],
+    :f_string       => ["'\f'", 0],
+    :char_code_09   => ['String.fromCharCode(0x0009)', 0],
+    :char_code_20   => ['String.fromCharCode(0x0020)', 0],
+    :char_code_0C   => ['String.fromCharCode(0x000C)', 0],
+    :char_code_0B   => ['String.fromCharCode(0x000B)', 0],
+    :char_code_0A   => ['String.fromCharCode(0x000A)', 0],
+    :lh_space_add   => ["'   ' + 999", 999],
+    :lh_newline_add => ["'\n' + 999", 999],
+    :lh_cr_add      => ["'\r' + 999", 999],
+    :lh_tab_add     => ["'\t' + 999", 999],
+    :lh_tab_f       => ["'\f' + 999", 999],
+    :rh_space_add   => ["999 + '   '", 999],
+    :rh_newline_add => ["999 + '\n'", 999],
+    :rh_cr_add      => ["999 + '\r'", 999],
+    :rh_tab_add     => ["999 + '\t'", 999],
+    :rh_tab_f       => ["999 + '\f'", 999],
+    :bs_space_add   => ["'   ' + 999 + '   '", 999],
+    :bs_newline_add => ["'\n' + 999 + '\n'", 999],
+    :bs_cr_add      => ["'\r' + 999 + '\r'", 999],
+    :bs_tab_add     => ["'\t' + 999 + '\t'", 999],
+    :bs_tab_f       => ["'\f' + 999 + '\f'", 999],
+    :cl_09          => ["String.fromCharCode(0x0009) + 99", 99],
+    :cl_20          => ["String.fromCharCode(0x0020) + 99", 99],
+    :cl_0C          => ["String.fromCharCode(0x000C) + 99", 99],
+    :cl_0B          => ["String.fromCharCode(0x000B) + 99", 99],
+    :cl_0A          => ["String.fromCharCode(0x000A) + 99", 99],
+    :cr_09          => ["99 + String.fromCharCode(0x0009)", 99],
+    :cr_20          => ["99 + String.fromCharCode(0x0020)", 99],
+    :cr_0C          => ["99 + String.fromCharCode(0x000C)", 99],
+    :cr_0B          => ["99 + String.fromCharCode(0x000B)", 99],
+    :cr_0A          => ["99 + String.fromCharCode(0x000A)", 99],
+    :bs_09          => ["String.fromCharCode(0x0009) + 99 + String.fromCharCode(0x0009)", 99],
+    :bs_20          => ["String.fromCharCode(0x0020) + 99 + String.fromCharCode(0x0020)", 99],
+    :bs_0C          => ["String.fromCharCode(0x000C) + 99 + String.fromCharCode(0x000C)", 99],
+    :bs_0B          => ["String.fromCharCode(0x000B) + 99 + String.fromCharCode(0x000B)", 99],
+    :bs_0A          => ["String.fromCharCode(0x000A) + 99 + String.fromCharCode(0x000A)", 99],
+    :infinity       => ["'Infinity'", 'Number.POSITIVE_INFINITY'],
+    :neg_infinity   => ["'-Infinity'", 'Number.NEGATIVE_INFINITY'],
+    :pos_infinity   => ["'+Infinity'", 'Number.POSITIVE_INFINITY'],
+  }
+  @@sign_tests = [
+    [3.14159, 3.14159],
+    ['3.', 3],
+    ['3.e1', 30],
+    ['3.e+1', 30],
+    ['3.e-1', 0.30],
+    ['.00001', 0.00001],
+    ['.01e2', 1],
+    ['.01e+2', 1],
+    ['.01e-2', 0.0001],
+    ['1234e5', 123400000],
+    ['1234e+5', 123400000],
+    ['1234e-5', 0.01234],
+  ]
+  0.upto(9) { |x| @@sign_tests << [x, x] }
+  0.upto(15) { |x|
+    @@sign_tests << [sprintf("%#x", x), x]
+    @@sign_tests << [sprintf("%#x", x).gsub(/x/, 'X'), x]
+    if sprintf("%#x", x) =~ /[a-f]/
+      @@sign_tests << [sprintf("%#x", x).gsub(/([a-f])/) { |m| m.upcase }, x]
+      @@sign_tests << [sprintf("%#x", x).upcase, x]
+    end
+  }
+  @@sign_tests.each { |actual, expected|
+    define_method(:"test_num_#{actual.to_s.gsub(/[\.+]/, '_')}") do
+      @runtime.execute("
+                       assert_equal(#{expected},  +('#{actual}'));
+                       assert_equal(#{expected},  +('+#{actual}'));
+                       assert_equal(-#{expected}, +('-#{actual}'));
+                       ")
+    end
+  }
+
+  @@tests.each do |name,(actual, expected)|
+    define_method(:"test_#{name}") do
+      @runtime.execute("assert_equal(#{expected}, +(#{actual}));")
+    end
+  end
+end