opal 1.6.1 → 1.7.0

data/opal/corelib/set.rb

@@ -0,0 +1,252 @@
+# helpers: freeze
+# Portions Copyright (c) 2002-2013 Akinori MUSHA <knu@iDaemons.org>
+class ::Set
+  include ::Enumerable
+
+  def self.[](*ary)
+    new(ary)
+  end
+
+  def initialize(enum = nil, &block)
+    @hash = {}
+
+    return if enum.nil?
+    ::Kernel.raise ::ArgumentError, 'value must be enumerable' unless ::Enumerable === enum
+
+    if block
+      enum.each { |item| add yield(item) }
+    else
+      merge(enum)
+    end
+  end
+
+  def dup
+    result = self.class.new
+    result.merge(self)
+  end
+
+  def -(enum)
+    unless enum.respond_to? :each
+      ::Kernel.raise ::ArgumentError, 'value must be enumerable'
+    end
+
+    dup.subtract(enum)
+  end
+
+  def inspect
+    "#<Set: {#{to_a.join(',')}}>"
+  end
+
+  def ==(other)
+    if equal?(other)
+      true
+    elsif other.instance_of?(self.class)
+      @hash == other.instance_variable_get(:@hash)
+    elsif other.is_a?(::Set) && size == other.size
+      other.all? { |o| @hash.include?(o) }
+    else
+      false
+    end
+  end
+
+  def add(o)
+    @hash[o] = true
+    self
+  end
+
+  def classify(&block)
+    return enum_for(:classify) unless block_given?
+
+    result = ::Hash.new { |h, k| h[k] = self.class.new }
+
+    each { |item| result[yield(item)].add item }
+
+    result
+  end
+
+  def collect!(&block)
+    return enum_for(:collect!) unless block_given?
+    result = self.class.new
+    each { |item| result << yield(item) }
+    replace result
+  end
+
+  def compare_by_identity
+    if @hash.respond_to?(:compare_by_identity)
+      @hash.compare_by_identity
+      self
+    else
+      raise NotImplementedError, "#{self.class.name}\##{__method__} is not implemented"
+    end
+  end
+
+  def compare_by_identity?
+    @hash.respond_to?(:compare_by_identity?) && @hash.compare_by_identity?
+  end
+
+  def delete(o)
+    @hash.delete(o)
+    self
+  end
+
+  def delete?(o)
+    if include?(o)
+      delete(o)
+      self
+    end
+  end
+
+  def delete_if
+    return enum_for(:delete_if) unless block_given?
+    # @hash.delete_if should be faster, but using it breaks the order
+    # of enumeration in subclasses.
+    select { |o| yield o }.each { |o| @hash.delete(o) }
+    self
+  end
+
+  def freeze
+    return self if frozen?
+
+    @hash.freeze
+    `$freeze(self)`
+  end
+
+  def keep_if
+    return enum_for(:keep_if) unless block_given?
+    reject { |o| yield o }.each { |o| @hash.delete(o) }
+    self
+  end
+
+  def reject!(&block)
+    return enum_for(:reject!) unless block_given?
+    before = size
+    delete_if(&block)
+    size == before ? nil : self
+  end
+
+  def select!(&block)
+    return enum_for(:select!) unless block_given?
+    before = size
+    keep_if(&block)
+    size == before ? nil : self
+  end
+
+  def add?(o)
+    if include?(o)
+      nil
+    else
+      add(o)
+    end
+  end
+
+  def each(&block)
+    return enum_for(:each) unless block_given?
+    @hash.each_key(&block)
+    self
+  end
+
+  def empty?
+    @hash.empty?
+  end
+
+  def eql?(other)
+    @hash.eql?(other.instance_eval { @hash })
+  end
+
+  def clear
+    @hash.clear
+    self
+  end
+
+  def include?(o)
+    @hash.include?(o)
+  end
+
+  def merge(enum)
+    enum.each { |item| add item }
+    self
+  end
+
+  def replace(enum)
+    clear
+    merge(enum)
+
+    self
+  end
+
+  def size
+    @hash.size
+  end
+
+  def subtract(enum)
+    enum.each { |item| delete item }
+    self
+  end
+
+  def |(enum)
+    unless enum.respond_to? :each
+      ::Kernel.raise ::ArgumentError, 'value must be enumerable'
+    end
+    dup.merge(enum)
+  end
+
+  %x{
+    function is_set(set) {
+      #{`set`.is_a?(::Set) || ::Kernel.raise(::ArgumentError, 'value must be a set')}
+    }
+  }
+
+  def superset?(set)
+    `is_set(set)`
+    return false if size < set.size
+    set.all? { |o| include?(o) }
+  end
+
+  def proper_superset?(set)
+    `is_set(set)`
+    return false if size <= set.size
+    set.all? { |o| include?(o) }
+  end
+
+  def subset?(set)
+    `is_set(set)`
+    return false if set.size < size
+    all? { |o| set.include?(o) }
+  end
+
+  def proper_subset?(set)
+    `is_set(set)`
+    return false if set.size <= size
+    all? { |o| set.include?(o) }
+  end
+
+  def intersect?(set)
+    `is_set(set)`
+    if size < set.size
+      any? { |o| set.include?(o) }
+    else
+      set.any? { |o| include?(o) }
+    end
+  end
+
+  def disjoint?(set)
+    !intersect?(set)
+  end
+
+  def to_a
+    @hash.keys
+  end
+
+  alias + |
+  alias < proper_subset?
+  alias << add
+  alias <= subset?
+  alias > proper_superset?
+  alias >= superset?
+  alias difference -
+  alias filter! select!
+  alias length size
+  alias map! collect!
+  alias member? include?
+  alias union |
+end

data/opal/corelib/string.rb

@@ -1333,6 +1333,7 @@ class ::String < `String`
 
   def to_proc
     method_name = `self.valueOf()`
+    jsid = `Opal.jsid(method_name)`
 
     proc = ::Kernel.proc do |*args, &block|
       %x{
@@ -1344,7 +1345,7 @@ class ::String < `String`
 
         if (recv == null) recv = nil;
 
-        var body = recv['$' + #{method_name}];
+        var body = recv[jsid];
 
         if (!body) {
           body = recv.$method_missing;

data/opal/corelib/time.rb

@@ -207,7 +207,7 @@ class ::Time < `Date`
       var args, result;
 
       if (arguments.length === 10) {
-        args  = $slice.call(arguments);
+        args  = $slice(arguments);
         year  = args[5];
         month = args[4];
         day   = args[3];
@@ -238,7 +238,7 @@ class ::Time < `Date`
       var args, result;
 
       if (arguments.length === 10) {
-        args  = $slice.call(arguments);
+        args  = $slice(arguments);
         year  = args[5];
         month = args[4];
         day   = args[3];

data/opal/opal.rb

@@ -10,6 +10,7 @@
 ::Object.autoload :Rational, 'corelib/rational'
 ::Object.require 'corelib/time'
 ::Object.autoload :Struct, 'corelib/struct'
+::Object.autoload :Set, 'corelib/set'
 ::Object.autoload :Dir, 'corelib/dir'
 ::Object.autoload :File, 'corelib/file'
 

data/opal.gemspec

@@ -49,4 +49,5 @@ Gem::Specification.new do |spec|
   spec.add_development_dependency 'rubocop-performance', '~> 1.1.0'
   spec.add_development_dependency 'rack', '~> 2.2'
   spec.add_development_dependency 'webrick'
+  spec.add_development_dependency 'benchmark_driver', '0.15.17' # version taken from test/cruby/common.mk
 end

data/spec/filters/bugs/array.rb

@@ -1,25 +1,34 @@
 # NOTE: run bin/format-filters after changing this file
 opal_filter "Array" do
   fails "Array#== compares with an equivalent Array-like object using #to_ary" # Expected false to be true
-  fails "Array#== returns true for [NaN] == [NaN] because Array#== first checks with #equal? and NaN.equal?(NaN) is true" # Expected [NaN] to equal [NaN]
+  fails "Array#== returns true for [NaN] == [NaN] because Array#== first checks with #equal? and NaN.equal?(NaN) is true" # Expected [NaN] == [NaN] to be truthy but was false
   fails "Array#[] can be sliced with Enumerator::ArithmeticSequence has endless range with start outside of array's bounds" # Expected [] == nil to be truthy but was false
   fails "Array#[] can be sliced with Enumerator::ArithmeticSequence has range with bounds outside of array" # Expected RangeError but no exception was raised ([0, 2, 4] was returned)
   fails "Array#[] raises TypeError if to_int returns non-integer" # Expected TypeError but no exception was raised ([1, 2, 3, 4] was returned)
   fails "Array#[] raises a RangeError if passed a range with a bound that is too large" # Expected RangeError but no exception was raised (nil was returned)
   fails "Array#[] raises a type error if a range is passed with a length" # Expected TypeError but no exception was raised ([2, 3] was returned)
   fails "Array#drop raises a TypeError when the passed argument isn't an integer and #to_int returns non-Integer" # Expected TypeError but no exception was raised ([1, 2] was returned)
-  fails "Array#each does not yield elements deleted from the end of the array" # Expected [2, 3, nil] to equal [2, 3]
-  fails "Array#each yields elements added to the end of the array by the block" # Expected [2] to equal [2, 0, 0]
-  fails "Array#fill with (filler, range) works with endless ranges" # Opal::SyntaxError: undefined method `type' for nil
-  fails "Array#filter returns a new array of elements for which block is true" # NoMethodError: undefined method `filter' for [1, 3, 4, 5, 6, 9]
-  fails "Array#flatten does not call #to_ary on elements beyond the given level"
-  fails "Array#flatten performs respond_to? and method_missing-aware checks when coercing elements to array"
-  fails "Array#flatten with a non-Array object in the Array calls #method_missing if defined"
+  fails "Array#each does not yield elements deleted from the end of the array" # Expected [2, 3, nil] == [2, 3] to be truthy but was false
+  fails "Array#each yields each element to the block even if the array is changed during iteration" # Expected [1, 2, 3, 4, 5] == [1, 2, 3, 4, 5, 7, 9] to be truthy but was false
+  fails "Array#each yields elements added to the end of the array by the block" # Expected [2] == [2, 0, 0] to be truthy but was false
+  fails "Array#each yields elements based on an internal index" # NoMethodError: undefined method `even?' for nil
+  fails "Array#each yields only elements that are still in the array" # NoMethodError: undefined method `even?' for nil
+  fails "Array#each yields the same element multiple times if inserting while iterating" # Expected [1, 1] == [1, 1, 2] to be truthy but was false
+  fails "Array#fill with (filler, index, length) raises a TypeError when the length is not numeric" # Expected TypeError (/no implicit conversion of Symbol into Integer/) but got: TypeError (no implicit conversion of String into Integer)
+  fails "Array#fill with (filler, range) works with endless ranges" # Expected [1, 2, 3, 4] == [1, 2, 3, "x"] to be truthy but was false
+  fails "Array#filter returns a new array of elements for which block is true" # Expected [1] == [1, 4, 6] to be truthy but was false
+  fails "Array#flatten does not call #to_ary on elements beyond the given level" # Mock '1' expected to receive to_ary("any_args") exactly 0 times but received it 1 times
+  fails "Array#flatten performs respond_to? and method_missing-aware checks when coercing elements to array" # NoMethodError: undefined method `respond_to?' for #<BasicObject:0x2698>
+  fails "Array#flatten with a non-Array object in the Array calls #method_missing if defined" # Expected [#<MockObject:0x2730 @name="Array#flatten", @null=nil>] == [1, 2, 3] to be truthy but was false
   fails "Array#inspect does not call #to_str on the object returned from #to_s when it is not a String" # Exception: Cannot convert object to primitive value
-  fails "Array#partition returns in the left array values for which the block evaluates to true"
-  fails "Array#rassoc calls elem == obj on the second element of each contained array"
-  fails "Array#rassoc does not check the last element in each contained but specifically the second" # Expected [1, "foobar", #<MockObject:0x4ef6e>] to equal [2, #<MockObject:0x4ef6e>, 1]
-  fails "Array#select returns a new array of elements for which block is true"
+  fails "Array#pack with format 'u' calls #to_str to convert an Object to a String" # Mock 'pack u string' expected to receive to_str("any_args") exactly 1 times but received it 0 times
+  fails "Array#pack with format 'u' will not implicitly convert a number to a string" # Expected TypeError but got: RuntimeError (Unsupported pack directive "u" (no chunk reader defined))
+  fails "Array#partition returns in the left array values for which the block evaluates to true" # Expected [[0], [1, 2, 3, 4, 5]] == [[0, 1, 2], [3, 4, 5]] to be truthy but was false
+  fails "Array#rassoc calls elem == obj on the second element of each contained array" # Expected [1, "foobar"] == [2, #<MockObject:0x4a6b4 @name="foobar", @null=nil>] to be truthy but was false
+  fails "Array#rassoc does not check the last element in each contained but specifically the second" # Expected [1, "foobar", #<MockObject:0x4a37e @name="foobar", @null=nil>] == [2, #<MockObject:0x4a37e @name="foobar", @null=nil>, 1] to be truthy but was false
+  fails "Array#sample returns nil for an empty array when called without n and a Random is given" # ArgumentError: invalid argument - 0
+  fails "Array#sample samples evenly" # Expected 15.82 <= 13.277 to be truthy but was false
+  fails "Array#select returns a new array of elements for which block is true" # Expected [1] == [1, 4, 6] to be truthy but was false
   fails "Array#slice can be sliced with Enumerator::ArithmeticSequence has endless range with start outside of array's bounds" # Expected [] == nil to be truthy but was false
   fails "Array#slice can be sliced with Enumerator::ArithmeticSequence has range with bounds outside of array" # Expected RangeError but no exception was raised ([0, 2, 4] was returned)
   fails "Array#slice raises TypeError if to_int returns non-integer" # Expected TypeError but no exception was raised ([1, 2, 3, 4] was returned)
@@ -28,5 +37,5 @@ opal_filter "Array" do
   fails "Array#to_h with block does not coerce returned pair to Array with #to_a" # Expected TypeError (/wrong element type MockObject at 0/) but got: TypeError (wrong element type NilClass at 0 (expected array))
   fails "Array#to_h with block raises TypeError if block returns something other than Array" # Expected TypeError (/wrong element type String at 0/) but got: TypeError (wrong element type NilClass at 0 (expected array))
   fails "Array#to_s does not call #to_str on the object returned from #to_s when it is not a String" # Exception: Cannot convert object to primitive value
-  fails "Array#uniq! properly handles recursive arrays"
+  fails "Array#uniq! properly handles recursive arrays" # Expected [1, "two", 3, [...], [...], [...]] == [1, "two", 3, [1, "two", 3, [...], [...], [...]]] to be truthy but was false
 end

data/spec/filters/bugs/base64.rb

@@ -1,10 +1,10 @@
 # NOTE: run bin/format-filters after changing this file
 opal_filter "Base64" do
-  fails "Base64#decode64 returns a binary encoded string" # Expected #<Encoding:UTF-8> == #<Encoding:ASCII-8BIT (dummy)> to be truthy but was false
-  fails "Base64#decode64 returns the Base64-decoded version of the given string with wrong padding" # Expected "]M\u0095¹\u0090\u0081É\u0095¥¹\u0099½É\u008D\u0095µ\u0095¹ÑÌ" == "]M\u0095¹\u0090\u0081ɕ¥¹\u0099½ɍ\u0095µ\u0095¹ÑÌ" to be truthy but was false
-  fails "Base64#encode64 returns a US_ASCII encoded string" # Expected #<Encoding:UTF-8> == #<Encoding:ASCII-8BIT (dummy)> to be truthy but was false
+  fails "Base64#decode64 returns a binary encoded string" # Expected #<Encoding:UTF-8> == #<Encoding:ASCII-8BIT> to be truthy but was false
+  fails "Base64#decode64 returns the Base64-decoded version of the given string with wrong padding" # Expected "]M\u0095¹\u0090\u0081É\u0095¥¹\u0099½É\u008D\u0095µ\u0095¹ÑÌ" == "]M\x95¹\x90\x81ɕ¥¹\x99½ɍ\x95µ\x95¹ÑÌ" to be truthy but was false
+  fails "Base64#encode64 returns a US_ASCII encoded string" # Expected #<Encoding:UTF-8> == #<Encoding:US-ASCII> to be truthy but was false
   fails "Base64#strict_decode64 raises ArgumentError when the given string contains an invalid character" # Expected ArgumentError but no exception was raised ("Ü" was returned)
   fails "Base64#strict_decode64 raises ArgumentError when the given string has wrong padding" # Expected ArgumentError but no exception was raised ("\u0001M\u0095¹\u0090\u0081É\u0095¥¹\u0099½É\u008D\u0095µ\u0095¹ÑÌ" was returned)
-  fails "Base64#strict_decode64 returns a binary encoded string" # Expected #<Encoding:UTF-8> == #<Encoding:ASCII-8BIT (dummy)> to be truthy but was false
-  fails "Base64#strict_encode64 returns a US_ASCII encoded string" # Expected #<Encoding:UTF-8> == #<Encoding:ASCII-8BIT (dummy)> to be truthy but was false
+  fails "Base64#strict_decode64 returns a binary encoded string" # Expected #<Encoding:UTF-8> == #<Encoding:ASCII-8BIT> to be truthy but was false
+  fails "Base64#strict_encode64 returns a US_ASCII encoded string" # Expected #<Encoding:UTF-8> == #<Encoding:US-ASCII> to be truthy but was false  
 end

data/spec/filters/bugs/basicobject.rb

@@ -1,13 +1,21 @@
 # NOTE: run bin/format-filters after changing this file
 opal_filter "BasicObject" do
-  fails "BasicObject raises NoMethodError for nonexistent methods after #method_missing is removed"
-  fails "BasicObject#initialize does not accept arguments"
-  fails "BasicObject#instance_eval evaluates string with given filename and linenumber"
-  fails "BasicObject#instance_eval evaluates string with given filename and negative linenumber" # Expected ["RuntimeError"] to equal ["b_file", "-98"]
-  fails "BasicObject#instance_eval has access to the caller's local variables" # Expected nil to equal "value"
-  fails "BasicObject#instance_exec raises a LocalJumpError unless given a block"
-  fails "BasicObject#method_missing for an instance sets the receiver of the raised NoMethodError"
+  fails "BasicObject raises NoMethodError for nonexistent methods after #method_missing is removed" # NoMethodError: undefined method `tmp' for #<MSpecEnv:0xb5dc8>
+  fails "BasicObject#initialize does not accept arguments" # NoMethodError: undefined method `class' for #<BasicObject:0x99f0>
+  fails "BasicObject#instance_eval converts filename argument with #to_str method" # Expected "<internal" == "file.rb" to be truthy but was false
+  fails "BasicObject#instance_eval converts lineno argument with #to_int method" # Expected "corelib/kernel.rb>" == "15" to be truthy but was false
+  fails "BasicObject#instance_eval converts string argument with #to_str method" # NoMethodError: undefined method `encoding' for #<Object:0x72810>
+  fails "BasicObject#instance_eval evaluates string with given filename and linenumber" # Expected ["<internal", "corelib/kernel.rb>"] == ["a_file", "10"] to be truthy but was false
+  fails "BasicObject#instance_eval evaluates string with given filename and negative linenumber" # Expected ["<internal", "corelib/kernel.rb>"] == ["b_file", "-98"] to be truthy but was false
+  fails "BasicObject#instance_eval has access to the caller's local variables" # Expected nil == "value" to be truthy but was false
+  fails "BasicObject#instance_eval raises ArgumentError if returned value is not Integer" # Expected TypeError (/can't convert Object to Integer/) but got: RuntimeError ()
+  fails "BasicObject#instance_eval raises ArgumentError if returned value is not String" # Expected TypeError (/can't convert Object to String/) but got: NoMethodError (undefined method `encoding' for #<Object:0x72a4a>)
+  fails "BasicObject#instance_eval raises an ArgumentError when a block and normal arguments are given" # Expected ArgumentError (wrong number of arguments (given 2, expected 0)) but got: ArgumentError (wrong number of arguments (2 for 0))
+  fails "BasicObject#instance_eval raises an ArgumentError when more than 3 arguments are given" # Expected ArgumentError (wrong number of arguments (given 4, expected 1..3)) but got: ArgumentError (wrong number of arguments (0 for 1..3))
+  fails "BasicObject#instance_eval raises an ArgumentError when no arguments and no block are given" # Expected ArgumentError (wrong number of arguments (given 0, expected 1..3)) but got: ArgumentError (wrong number of arguments (0 for 1..3))
+  fails "BasicObject#instance_exec raises a LocalJumpError unless given a block" # Expected LocalJumpError but got: ArgumentError (no block given)
+  fails "BasicObject#method_missing for an instance sets the receiver of the raised NoMethodError" # No behavior expectation was found in the example
   fails "BasicObject#singleton_method_added when singleton_method_added is undefined calls #method_missing" # Expected [] == [["singleton_method_added", "foo"],  ["singleton_method_added", "bar"],  ["singleton_method_added", "baz"]] to be truthy but was false
   fails "BasicObject#singleton_method_added when singleton_method_added is undefined raises NoMethodError for a metaclass" # Expected NoMethodError (/undefined method `singleton_method_added' for/) but no exception was raised ("foo" was returned)
-  fails "BasicObject#singleton_method_added when singleton_method_added is undefined raises NoMethodError for a singleton instance" # Expected NoMethodError (/undefined method `singleton_method_added' for #<Object:/) but no exception was raised ("foo" was returned)
+  fails "BasicObject#singleton_method_added when singleton_method_added is undefined raises NoMethodError for a singleton instance" # Expected NoMethodError (/undefined method `singleton_method_added' for #<Object:/) but no exception was raised ("foo" was returned)  
 end