opal 0.10.6 → 0.11.0.rc1

data/opal/corelib/string.rb

@@ -566,7 +566,7 @@ class String < `String`
 
   def inspect
     %x{
-      var escapable = /[\\\"\x00-\x1f\x7f-\x9f\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g,
+      var escapable = /[\\\"\x00-\x1f\u007F-\u009F\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g,
           meta = {
             '\u0007': '\\a',
             '\u001b': '\\e',
@@ -627,6 +627,10 @@ class String < `String`
     `self.replace(/^\s*/, '')`
   end
 
+  def ascii_only?
+    `self.match(/[ -~\n]*/)[0] === self`
+  end
+
   def match(pattern, pos = undefined, &block)
     if String === pattern || pattern.respond_to?(:to_str)
       pattern = Regexp.new(pattern.to_str)
@@ -957,7 +961,7 @@ class String < `String`
           string = self.toString(),
           index = 0,
           match,
-          i;
+          i, ii;
 
       if (pattern.$$is_regexp) {
         pattern = new RegExp(pattern.source, 'gm' + (pattern.ignoreCase ? 'i' : ''));
@@ -992,7 +996,7 @@ class String < `String`
 
       if (limit < 0) {
         if (match !== null && match[0] === '' && pattern.source.indexOf('(?=') === -1) {
-          for (i = 0; i < match.length; i++) {
+          for (i = 0, ii = match.length; i < ii; i++) {
             result.push('');
           }
         }
@@ -1218,13 +1222,17 @@ class String < `String`
   end
 
   def to_proc
-    # Give name to self in case this proc is passed to instance_eval
-    sym = self
+    sym = `self.valueOf()`
 
     proc do |*args, &block|
-      raise ArgumentError, "no receiver given" if args.empty?
-      obj = args.shift
-      obj.__send__(sym, *args, &block)
+      %x{
+        if (args.length === 0) {
+          #{raise ArgumentError, "no receiver given"}
+        }
+        var obj = args.shift();
+        if (obj == null) obj = nil;
+        return Opal.send(obj, sym, args, block);
+      }
     end
   end
 
@@ -1692,6 +1700,29 @@ class String < `String`
   def self._load(*args)
     self.new(*args)
   end
+
+  def unpack(pattern)
+    %x{
+      function stringToBytes(string) {
+        var i,
+            singleByte,
+            l = string.length,
+            result = [];
+
+        for (i = 0; i < l; i++) {
+          singleByte = string.charCodeAt(i);
+          result.push(singleByte);
+        }
+        return result;
+      }
+    }
+    case pattern
+    when "U*", "C*"
+      `stringToBytes(self);`
+    else
+      raise NotImplementedError
+    end
+  end
 end
 
 Symbol = String

data/opal/corelib/string/encoding.rb

@@ -93,8 +93,8 @@ Encoding.register "UTF-8", aliases: ["CP65001"], ascii: true do
     }
   end
 
-  def bytesize
-    bytes.length
+  def bytesize(string)
+    string.bytes.length
   end
 end
 
@@ -110,8 +110,42 @@ Encoding.register "UTF-16LE" do
     }
   end
 
-  def bytesize
-    bytes.length
+  def bytesize(string)
+    string.bytes.length
+  end
+end
+
+Encoding.register "UTF-16BE" do
+  def each_byte(string, &block)
+    %x{
+      for (var i = 0, length = string.length; i < length; i++) {
+        var code = string.charCodeAt(i);
+
+        #{yield `code >> 8`};
+        #{yield `code & 0xff`};
+      }
+    }
+  end
+
+  def bytesize(string)
+    string.bytes.length
+  end
+end
+
+Encoding.register "UTF-32LE" do
+  def each_byte(string, &block)
+    %x{
+      for (var i = 0, length = string.length; i < length; i++) {
+        var code = string.charCodeAt(i);
+
+        #{yield `code & 0xff`};
+        #{yield `code >> 8`};
+      }
+    }
+  end
+
+  def bytesize(string)
+    string.bytes.length
   end
 end
 
@@ -124,8 +158,8 @@ Encoding.register "ASCII-8BIT", aliases: ["BINARY"], ascii: true do
     }
   end
 
-  def bytesize
-    bytes.length
+  def bytesize(string)
+    string.bytes.length
   end
 end
 
@@ -157,7 +191,12 @@ class String
   end
 
   def force_encoding(encoding)
-    encoding = Opal.coerce_to!(encoding, String, :to_str)
+    %x{
+      if (encoding === self.encoding) {
+        return self;
+      }
+    }
+    encoding = Opal.coerce_to!(encoding, String, :to_s)
     encoding = Encoding.find(encoding)
 
     return self if encoding == @encoding
@@ -174,4 +213,9 @@ class String
   def getbyte(idx)
     @encoding.getbyte(self, idx)
   end
+
+  # stub
+  def valid_encoding?
+    true
+  end
 end

data/opal/corelib/struct.rb

@@ -261,6 +261,26 @@ class Struct
     }
   end
 
+  def dig(key, *keys)
+    if `key.$$is_string && self.$$data.hasOwnProperty(key)`
+      item = `self.$$data[key] || nil`
+    else
+      item = nil
+    end
+
+    %x{
+      if (item === nil || keys.length === 0) {
+        return item;
+      }
+    }
+
+    unless item.respond_to?(:dig)
+      raise TypeError, "#{item.class} does not have #dig method"
+    end
+
+    item.dig(*keys)
+  end
+
   def self._load(args)
     attributes = args.values_at(*members)
     self.new(*attributes)

data/opal/corelib/time.rb

@@ -279,7 +279,7 @@ class Time < `Date`
   end
 
   def ==(other)
-    `#{to_f} === #{other.to_f}`
+    Time === other && (`#{to_f} === #{other.to_f}`)
   end
 
   def asctime
@@ -391,7 +391,7 @@ class Time < `Date`
         result = string.match(/[A-Z]{3,4}/)[0];
       }
       else {
-        result = string.match(/\((.+)\)(?:\s|$)/)[1]
+        result = string.match(/\([^)]+\)/)[0].match(/[A-Z]/g).join('');
       }
 
       if (result == "GMT" && /(GMT\W*\d{4})/.test(string)) {
@@ -694,7 +694,7 @@ class Time < `Date`
     `#{wday} == 2`
   end
 
-  alias tv_sec sec
+  alias tv_sec to_i
 
   alias tv_usec usec
 

data/opal/corelib/variables.rb

@@ -1,5 +1,5 @@
 # regexp matches
-$& = $~ = $` = $' = nil
+%x{$gvars['&'] = $gvars['~'] = $gvars['`'] = $gvars["'"] = nil}
 
 # requires
 $LOADED_FEATURES = $" = `Opal.loaded_features`

data/opal/opal.rb

@@ -13,5 +13,6 @@ require 'corelib/main'
 require 'corelib/dir'
 require 'corelib/file'
 require 'corelib/process'
+require 'corelib/random'
 
 require 'corelib/unsupported'

data/spec/filters/bugs/array.rb

@@ -1,12 +1,16 @@
 opal_filter "Array" do
+  fails "Array#delete_if updates the receiver after all blocks"
+  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#join raises a NoMethodError if an element does not respond to #to_str, #to_ary, or #to_s"
+  fails "Array#keep_if updates the receiver after all blocks"
   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 speficically the second"
+  fails "Array#reject! updates the receiver after all blocks"
   fails "Array#select returns a new array of elements for which block is true"
+  fails "Array#select! updates the receiver after all blocks"
   fails "Array#uniq! properly handles recursive arrays"
   fails "Array#zip fills nil when the given enumereator is shorter than self"
-  fails "Array.[] can unpack 2 or more nested referenced array"
 end

data/spec/filters/bugs/basicobject.rb

@@ -1,16 +1,13 @@
 opal_filter "BasicObject" do
-  fails "BasicObject does not define built-in constants (according to const_defined?)"
-  fails "BasicObject does not define built-in constants (according to defined?)"
-  fails "BasicObject raises NameError when referencing built-in constants"
   fails "BasicObject raises NoMethodError for nonexistent methods after #method_missing is removed"
   fails "BasicObject#initialize does not accept arguments"
   fails "BasicObject#instance_eval raises a TypeError when defining methods on an immediate"
   fails "BasicObject#instance_eval raises a TypeError when defining methods on numerics"
-  fails "BasicObject#instance_eval sets class variables in the receiver"
   fails "BasicObject#instance_eval evaluates string with given filename and linenumber"
   fails "BasicObject#instance_exec binds the block's binding self to the receiver"
   fails "BasicObject#instance_exec raises a LocalJumpError unless given a block"
   fails "BasicObject#instance_exec raises a TypeError when defining methods on an immediate"
   fails "BasicObject#instance_exec raises a TypeError when defining methods on numerics"
-  fails "BasicObject#instance_exec sets class variables in the receiver"
+  fails "BasicObject#method_missing for an instance sets the receiver of the raised NoMethodError"
+  fails "BasicObject#method_missing for an instance sets the receiver of the raised NoMethodError"
 end

data/spec/filters/bugs/bigdecimal.rb

@@ -1,8 +1,6 @@
 opal_filter "BigDecimal" do
-  fails "BigDecimal#% raises TypeError if the argument cannot be coerced to BigDecimal"
   fails "BigDecimal#% returns NaN if NaN is involved"
   fails "BigDecimal#% returns NaN if the dividend is Infinity"
-  fails "BigDecimal#% returns a [Float value] when the argument is Float"
   fails "BigDecimal#% returns self modulo other"
   fails "BigDecimal#% returns the dividend if the divisor is Infinity"
   fails "BigDecimal#** 0 to power of 0 is 1"
@@ -21,16 +19,13 @@ opal_filter "BigDecimal" do
   fails "BigDecimal#<=> returns 1 if a > b" #fails only with mock object
   fails "BigDecimal#> properly handles infinity values" #fails only with mock object
   fails "BigDecimal#>= properly handles infinity values" #fails only with mock object
-  fails "BigDecimal#ceil returns n digits right of the decimal point if given n > 0"
   fails "BigDecimal#ceil returns the smallest integer greater or equal to self, if n is unspecified"
   fails "BigDecimal#ceil sets n digits left of the decimal point to 0, if given n < 0"
   fails "BigDecimal#coerce returns [other, self] both as BigDecimal"
   fails "BigDecimal#div returns a / b with optional precision" #fails the case of > 20 decimal places for to_s('F')
   fails "BigDecimal#div with precision set to 0 returns a / b" #fails a single assertion: @one.send(@method, BigDecimal('-2E5555'), *@object).should == BigDecimal('-0.5E-5555')
-  fails "BigDecimal#divmod Can be reversed with * and +"
   fails "BigDecimal#divmod array contains quotient and modulus as BigDecimal"
-  fails "BigDecimal#divmod divides value, returns an array"
-  fails "BigDecimal#divmod raises TypeError if the argument cannot be coerced to BigDecimal"
+  fails "BigDecimal#divmod can be reversed with * and +" # Expected 0 to equal -1
   fails "BigDecimal#divmod returns an array of Infinity and NaN if the dividend is Infinity"
   fails "BigDecimal#divmod returns an array of two NaNs if NaN is involved"
   fails "BigDecimal#divmod returns an array of zero and the dividend if the divisor is Infinity"
@@ -57,18 +52,10 @@ opal_filter "BigDecimal" do
   fails "BigDecimal#inspect looks like this"
   fails "BigDecimal#inspect returns String starting with #"
   fails "BigDecimal#inspect value after first comma is value as string"
-  fails "BigDecimal#mod_part_of_divmod raises TypeError if the argument cannot be coerced to BigDecimal"
   fails "BigDecimal#mod_part_of_divmod returns NaN if NaN is involved"
   fails "BigDecimal#mod_part_of_divmod returns NaN if the dividend is Infinity"
-  fails "BigDecimal#mod_part_of_divmod returns a [Float value] when the argument is Float"
   fails "BigDecimal#mod_part_of_divmod returns self modulo other"
   fails "BigDecimal#mod_part_of_divmod returns the dividend if the divisor is Infinity"
-  fails "BigDecimal#modulo raises TypeError if the argument cannot be coerced to BigDecimal"
-  fails "BigDecimal#modulo returns NaN if NaN is involved"
-  fails "BigDecimal#modulo returns NaN if the dividend is Infinity"
-  fails "BigDecimal#modulo returns a [Float value] when the argument is Float"
-  fails "BigDecimal#modulo returns self modulo other"
-  fails "BigDecimal#modulo returns the dividend if the divisor is Infinity"
   fails "BigDecimal#power 0 to power of 0 is 1"
   fails "BigDecimal#power 0 to powers < 0 is Infinity"
   fails "BigDecimal#power other powers of 0 are 0"
@@ -100,13 +87,13 @@ opal_filter "BigDecimal" do
   fails "BigDecimal#round uses default rounding method unless given"
   fails "BigDecimal#sign returns negative value if BigDecimal less than 0"
   fails "BigDecimal#sign returns positive value if BigDecimal greater than 0"
-  fails "BigDecimal#split First value: -1 for numbers < 0"
-  fails "BigDecimal#split First value: 0 if BigDecimal is NaN"
-  fails "BigDecimal#split First value: 1 for numbers > 0"
-  fails "BigDecimal#split Fourth value: The exponent"
-  fails "BigDecimal#split Second value: a string with the significant digits"
-  fails "BigDecimal#split Third value: the base (currently always ten)"
+  fails "BigDecimal#split first value: -1 for numbers < 0" # NoMethodError: undefined method `split' for 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196442881097566593014782083152134043
+  fails "BigDecimal#split first value: 0 if BigDecimal is NaN" # NoMethodError: undefined method `split' for 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196442881097566593014782083152134043
+  fails "BigDecimal#split first value: 1 for numbers > 0" # NoMethodError: undefined method `split' for 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196442881097566593014782083152134043
+  fails "BigDecimal#split fourth value: the exponent" # NoMethodError: undefined method `split' for 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196442881097566593014782083152134043
+  fails "BigDecimal#split second value: a string with the significant digits" # NoMethodError: undefined method `split' for 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196442881097566593014782083152134043
   fails "BigDecimal#split splits BigDecimal in an array with four values"
+  fails "BigDecimal#split third value: the base (currently always ten)" # NoMethodError: undefined method `split' for 3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196442881097566593014782083152134043
   fails "BigDecimal#sqrt raises ArgumentError if 2 arguments are given"
   fails "BigDecimal#sqrt raises ArgumentError if a negative number is given"
   fails "BigDecimal#sqrt raises ArgumentError when no argument is given"
@@ -147,12 +134,11 @@ opal_filter "BigDecimal" do
   fails "BigDecimal.mode raise an exception if the flag is true"
   fails "BigDecimal.mode returns Infinity when too big"
   fails "BigDecimal.mode returns the appropriate value and continue the computation if the flag is false"
-  fails "BigDecimal.new Number of significant digits >= given precision"
+  fails "BigDecimal.new accepts significant digits >= given precision" # NoMethodError: undefined method `precs' for 3.1415923
   fails "BigDecimal.new allows for [eEdD] as exponent separator"
   fails "BigDecimal.new allows for underscores in all parts"
   fails "BigDecimal.new creates a new object of class BigDecimal"
   fails "BigDecimal.new determines precision from initial value"
-  fails "BigDecimal.new ignores leading whitespace"
   fails "BigDecimal.new ignores trailing garbage"
   fails "BigDecimal.new raises ArgumentError when Float is used without precision"
   fails "BigDecimal.new treats invalid strings as 0.0"

data/spec/filters/bugs/class.rb

@@ -3,8 +3,9 @@ opal_filter "Class" do
   fails "Class#dup duplicates both the class and the singleton class"
   fails "Class#dup retains an included module in the ancestor chain for the singleton class"
   fails "Class#dup retains the correct ancestor chain for the singleton class"
-  fails "Class#initialize raises a TypeError when called on already initialized classes"
   fails "Class#initialize raises a TypeError when called on BasicObject"
+  fails "Class#initialize raises a TypeError when called on already initialized classes"
   fails "Class#initialize when given the Class raises a TypeError"
+  fails "Class#new uses the internal allocator and does not call #allocate" # RuntimeError: allocate should not be called
   fails "Class.new raises a TypeError if passed a metaclass"
 end

data/spec/filters/bugs/comparable.rb

@@ -0,0 +1,5 @@
+opal_filter "Comparable" do
+  fails "Comparable#== when #<=> raises an exception if it is a StandardError lets it go through"
+  fails "Comparable#== when #<=> raises an exception if it is a subclass of StandardError lets it go through"
+  fails "Comparable#== when #<=> returns nor nil neither an Integer raises an ArgumentError"
+end

data/spec/filters/bugs/date.rb

@@ -5,8 +5,8 @@ opal_filter "Date" do
   fails "Date#civil creates a Date for different calendar reform dates"
   fails "Date#civil doesn't create dates for invalid arguments"
   fails "Date#commercial creates a Date for Julian Day Number day 0 by default"
-  fails "Date#commercial Creates a Date for the correct day given the year, week and day number"
-  fails "Date#commercial Creates a Date for the monday in the year and week given"
+  fails "Date#commercial creates a Date for the correct day given the year, week and day number" # NoMethodError: undefined method `commercial' for Date
+  fails "Date#commercial creates a Date for the monday in the year and week given" # NoMethodError: undefined method `commercial' for Date
   fails "Date#commercial creates only Date objects for valid weeks"
   fails "Date#cwyear determines the commercial year"
   fails "Date#day_fraction determines the day fraction"
@@ -47,9 +47,9 @@ opal_filter "Date" do
   fails "Date#strptime parses a commercial week"
   fails "Date#strptime parses a commercial year with leading zeroes"
   fails "Date#strptime parses a commercial year with only two digits"
+  fails "Date#strptime parses a date given MM/DD/YY"
   fails "Date#strptime parses a date given as YYYY-MM-DD"
   fails "Date#strptime parses a date given in full notation"
-  fails "Date#strptime parses a date given MM/DD/YY"
   fails "Date#strptime parses a date with slashes"
   fails "Date#strptime parses a full date"
   fails "Date#strptime parses a full day name"

data/spec/filters/bugs/enumerable.rb

@@ -1,6 +1,9 @@
 opal_filter "Enumerable" do
+  fails "Enumerable#chunk_while on a single-element array ignores the block and returns an enumerator that yields [element]" # Expected [] to equal [[1]]
   fails "Enumerable#first returns a gathered array from yield parameters"
   fails "Enumerable#grep with a block calls the block with gathered array when yielded with multiple arguments"
+  fails "Enumerable#grep_v with block calls the block with gathered array when yielded with multiple arguments"
+  fails "Enumerable#grep_v without block compares pattern with gathered array when yielded with multiple arguments"
   fails "Enumerable#max_by when called with an argument n when n is nil returns the maximum element"
   fails "Enumerable#max_by when called with an argument n with a block on a enumerable of length x where x < n returns an array containing the maximum n elements of length n"
   fails "Enumerable#max_by when called with an argument n with a block returns an array containing the maximum n elements based on the block's value"
@@ -23,17 +26,8 @@ opal_filter "Enumerable" do
   fails "Enumerable#minmax_by returns the object that appears first in #each in case of a tie"
   fails "Enumerable#minmax_by uses min/max.<=>(current) to determine order"
   fails "Enumerable#reverse_each gathers whole arrays as elements when each yields multiple"
-  fails "Enumerable#slice_after raises an ArgumentError when given an incorrect number of arguments"
-  fails "Enumerable#slice_after when given a block and an argument raises an ArgumentError"
-  fails "Enumerable#slice_after when given a block and no argument calls the block to determine when to yield"
-  fails "Enumerable#slice_after when given an argument and no block calls === on the argument to determine when to yield"
-  fails "Enumerable#slice_after when given an argument and no block doesn't yield an empty array if the filter matches the first entry or the last entry"
-  fails "Enumerable#slice_after when given an argument and no block uses standard boolean as a test"
-  fails "Enumerable#slice_when when given a block calls the block for length of the receiver enumerable minus one times"
-  fails "Enumerable#slice_when when given a block returns an enumerator"
-  fails "Enumerable#slice_when when given a block splits chunks between adjacent elements i and j where the block returns true"
-  fails "Enumerable#slice_when when not given a block raises an ArgumentError"
   fails "Enumerable#slice_when when an iterator method yields more than one value processes all yielded values"
+  fails "Enumerable#slice_when when given a block doesn't yield an empty array on a small enumerable" # Expected [] to equal [[42]]
   fails "Enumerable#sort_by returns an array of elements when a block is supplied and #map returns an enumerable"
   fails "Enumerable#take_while calls the block with initial args when yielded with multiple arguments"
   fails "Enumerable#to_h calls #to_ary on contents"
@@ -46,5 +40,4 @@ opal_filter "Enumerable" do
   fails "Enumerable#zip converts arguments to enums using #to_enum"
   fails "Enumerable#zip gathers whole arrays as elements when each yields multiple"
   fails "Enumerable#zip passes each element of the result array to a block and return nil if a block is given"
-  fails "when an iterator method yields more than one value processes all yielded values"
 end

data/spec/filters/bugs/enumerator.rb

@@ -8,15 +8,13 @@ opal_filter "Enumerator" do
   fails "Enumerator#feed returns nil"
   fails "Enumerator#feed sets the future return value of yield if called before advancing the iterator"
   fails "Enumerator#feed sets the return value of Yielder#yield"
-  fails "Enumerator#initialize is a private method"
-  fails "Enumerator#initialize on frozen instance raises a RuntimeError"
   fails "Enumerator#initialize returns self when given a block"
   fails "Enumerator#initialize returns self when given an object"
   fails "Enumerator#initialize sets size to nil if size is not given"
   fails "Enumerator#initialize sets size to nil if the given size is nil"
+  fails "Enumerator#initialize sets size to the given size if the given size is Float::INFINITY"
   fails "Enumerator#initialize sets size to the given size if the given size is a Fixnum"
   fails "Enumerator#initialize sets size to the given size if the given size is a Proc"
-  fails "Enumerator#initialize sets size to the given size if the given size is Float::INFINITY"
   fails "Enumerator#next_values advances the position of the current element"
   fails "Enumerator#next_values advances the position of the enumerator each time when called multiple times"
   fails "Enumerator#next_values raises StopIteration if called on a finished enumerator"
@@ -38,5 +36,5 @@ opal_filter "Enumerator" do
   fails "Enumerator#peek_values works in concert with #rewind"
   fails "Enumerator#size returns returning value from size.call if set size is a Proc"
   fails "Enumerator#size returns the result from size.call if the size respond to call"
-  fails "Enumerator#to_enum exposes multi-arg yields as an array"
+  fails "Enumerator#to_enum exposes multi-arg yields as an array" # NoMethodError: undefined method `next' for #<Enumerator: #<Object:0x53e80>:each>
 end