opal 0.3.41 → 0.3.42

data/spec/filters/array_flatten.rb

@@ -0,0 +1,14 @@
+opal_filter "Array#flatten" do
+  fails "Array#flatten does not call flatten on elements"
+  fails "Array#flatten raises an ArgumentError on recursive arrays"
+  fails "Array#flatten flattens any element which responds to #to_ary, using the return value of said method"
+  fails "Array#flatten returns subclass instance for Array subclasses"
+  fails "Array#flatten with a non-Array object in the Array ignores the return value of #to_ary if it is nil"
+  fails "Array#flatten with a non-Array object in the Array raises a TypeError if the return value of #to_ary is not an Array"
+end
+
+opal_filter "Array#flatten!" do
+  fails "Array#flatten! does not call flatten! on elements"
+  fails "Array#flatten! raises an ArgumentError on recursive arrays"
+  fails "Array#flatten! flattens any elements which responds to #to_ary, using the return value of said method"
+end

data/spec/filters/array_intersection.rb

@@ -0,0 +1,5 @@
+opal_filter "Array#&" do
+  fails "Array#& properly handles recursive arrays"
+  fails "Array#& tries to convert the passed argument to an Array using #to_ary"
+  fails "Array#& determines equivalence between elements in the sense of eql?"
+end

data/spec/filters/array_join.rb

@@ -0,0 +1,6 @@
+opal_filter "Array#join" do
+  fails "Array#join calls #to_str to convert the separator to a String"
+  fails "Array#join does not call #to_str on the separator if the array is empty"
+  fails "Array#join raises a TypeError if the separator cannot be coerced to a String by calling #to_str"
+  fails "Array#join raises a TypeError if passed false as the separator"
+end

data/spec/filters/array_subclasses.rb

@@ -0,0 +1,4 @@
+opal_filter "Array subclasses" do
+  fails "Array.[] returns a new array populated with the given elements"
+  fails "Array[] is a synonym for .[]"
+end

data/spec/filters/block_args.rb

@@ -0,0 +1,3 @@
+opal_filter "Deconstructing block args" do
+  fails "Array#each yields each element to a block that takes multiple arguments"
+end

data/spec/filters/coerce_integer.rb

@@ -0,0 +1,9 @@
+opal_filter "coerce integers" do
+  fails "Array#at raises a TypeError when the passed argument can't be coerced to Integer"
+  fails "Array#delete_at tries to convert the passed argument to an Integer using #to_int"
+  fails "Array#fetch tries to convert the passed argument to an Integer using #to_int"
+  fails "Array#fetch raises a TypeError when the passed argument can't be coerced to Integer"
+  fails "Array#first tries to convert the passed argument to an Integer using #to_int"
+  fails "Array#first raises a TypeError if the passed argument is not numeric"
+  fails "Array#insert tries to convert the passed position argument to an Integer using #to_int"
+end

data/spec/filters/frozen.rb

@@ -0,0 +1,4 @@
+opal_filter "frozen" do
+  fails "Array#frozen? returns true if array is frozen"
+  fails "Array#frozen? returns false for an array being sorted by #sort"
+end

data/spec/filters/mocks.rb

@@ -0,0 +1,3 @@
+opal_filter "mocks" do
+  fails "Array#delete removes elements that are #== to object"
+end

data/spec/filters/should_receive.rb

@@ -0,0 +1,4 @@
+opal_filter "should_receive" do
+  fails "Array#at tries to convert the passed argument to an Integer using #to_int"
+  fails "Array#include? calls == on elements from left to right until success"
+end

data/spec/filters/tainted.rb

@@ -0,0 +1,7 @@
+opal_filter 'tainted' do
+  fails "Array#clear keeps tainted status"
+  fails "Array#compact! keeps tainted status even if all elements are removed"
+  fails "Array#delete_at keeps tainted status"
+  fails "Array#delete_if keeps tainted status"
+  fails "Array#delete keeps tainted status"
+end

data/spec/fixtures/class.rb

@@ -0,0 +1,124 @@
+module ClassSpecs
+
+  def self.sclass_with_block
+    class << self
+      yield
+    end
+  end
+
+  def self.sclass_with_return
+    class << self
+      return :inner
+    end
+    return :outer
+  end
+
+  class A; end
+
+  def self.string_class_variables(obj)
+    obj.class_variables.map { |x| x.to_s }
+  end
+
+  def self.string_instance_variables(obj)
+    obj.instance_variables.map { |x| x.to_s }
+  end
+
+  class B
+    @@cvar = :cvar
+    @ivar = :ivar
+
+  end
+
+  class C
+    def self.make_class_variable
+      @@cvar = :cvar
+    end
+
+    def self.make_class_instance_variable
+      @civ = :civ
+    end
+  end
+
+  class D
+    def make_class_variable
+      @@cvar = :cvar
+    end
+  end
+
+  class E
+    def self.cmeth() :cmeth end
+    def meth() :meth end
+
+    class << self
+      def smeth() :smeth end
+    end
+
+    CONSTANT = :constant!
+  end
+
+  class F; end
+  class F
+    def meth() :meth end
+  end
+  class F
+    def another() :another end
+  end
+
+  class G
+    def override() :nothing end
+    def override() :override end
+  end
+
+  class Container
+    class A; end
+    class B; end
+  end
+
+  O = Object.new
+  class << O
+    def smeth
+      :smeth
+    end
+  end
+
+  class H
+    def self.inherited(sub)
+      track_inherited << sub
+    end
+
+    def self.track_inherited
+      @inherited_modules ||= []
+    end
+  end
+
+  class K < H; end
+
+  class I
+    class J < self
+    end
+  end
+
+  class K
+    def example_instance_method
+    end
+    def self.example_class_method
+    end
+  end
+
+  class L; end
+
+  class M < L; end
+end
+
+class Class
+  def example_instance_method_of_class; end
+  def self.example_class_method_of_class; end
+end
+class << Class
+  def example_instance_method_of_singleton_class; end
+  def self.example_class_method_of_singleton_class; end
+end
+class Object
+  def example_instance_method_of_object; end
+  def self.example_class_method_of_object; end
+end

data/spec/grammar/alias_spec.rb

@@ -20,7 +20,7 @@ describe "The alias keyword" do
 
   describe "with gvar and nth ref" do
     it "should return a s(:valias) with two values as arguments" do
-      opal_parse("alias $foo $1").should == [:valias, :$foo, :"$1"]
+      opal_parse("alias $foo $1").should == [:valias, :$foo, :"1"]
     end
   end
 end

data/spec/grammar/def_spec.rb

@@ -58,3 +58,4 @@ describe "The def keyword" do
     end
   end
 end
+

data/spec/grammar/lvar_spec.rb

@@ -24,8 +24,7 @@ describe "An lvar" do
     end
 
     it "should be created by a rest arg" do
-      # FIXME
-      # opal_parse("def a(*b); b; end").should == [:defn, :a, [:args, :"*b"], [:scope, [:block, [:lvar, :b]]]]
+      opal_parse("def a(*b); b; end").should == [:defn, :a, [:args, :"*b"], [:scope, [:block, [:lvar, :b]]]]
     end
 
     it "should be created by a block arg" do

data/spec/grammar/nth_ref_spec.rb

@@ -0,0 +1,13 @@
+require 'spec_helper'
+
+describe "$1..$9" do
+  it "parses as s(:nth_ref)" do
+    opal_parse('$1').first.should == :nth_ref
+  end
+
+  it "references the number 1..9 as first part" do
+    opal_parse('$1').should == [:nth_ref, '1']
+    opal_parse('$9').should == [:nth_ref, '9']
+  end
+end
+

data/spec/grammar/sclass_spec.rb

@@ -1,9 +1,8 @@
 require 'spec_helper'
 
 describe "Singleton classes" do
-  it "returns an empty s(:scope) when given an empty body" do
-    # FXIME
-    # opal_parse('class << A; end')[2].should == [:scope]
+  pending "returns an empty s(:scope) when given an empty body" do
+    opal_parse('class << A; end')[2].should == [:scope]
   end
 
   it "does not place single expressions into an s(:block)" do
@@ -14,9 +13,9 @@ describe "Singleton classes" do
     opal_parse('class << A; 1; 2; end')[2].should == [:scope, [:block, [:lit, 1], [:lit, 2]]]
   end
 
-  it "should accept any expressions for singleton part" do
-    # FIXME
-    # opal_parse('class << A; end').should == [:sclass, [:const, :A], [:scope]]
-    # opal_parse('class << self; end').should == [:sclass, [:self], [:scope]]
+  pending "should accept any expressions for singleton part" do
+    opal_parse('class << A; end').should == [:sclass, [:const, :A], [:scope]]
+    opal_parse('class << self; end').should == [:sclass, [:self], [:scope]]
   end
 end
+

data/spec/grammar/str_spec.rb

@@ -55,7 +55,7 @@ describe "Strings" do
       opal_parse('%Q{#@@foo}').should == [:dstr, "", [:evstr, [:cvar, :@@foo]]]
     end
 
-    it "should match '{' and '}' pairs used to start string before ending match" do
+    pending "should match '{' and '}' pairs used to start string before ending match" do
       opal_parse('%Q{{}}').should == [:str, "{}"]
       opal_parse('%Q{foo{bar}baz}').should == [:str, "foo{bar}baz"]
       opal_parse('%Q{{foo}bar}').should == [:str, "{foo}bar"]
@@ -65,7 +65,7 @@ describe "Strings" do
       opal_parse('%Q{a{b{c}#{foo}d}e}').should == [:dstr, "a{b{c}", [:evstr, [:call, nil, :foo, [:arglist]]], [:str, "d}e"]]
     end
 
-    it "should match '(' and ')' pairs used to start string before ending match" do
+    pending "should match '(' and ')' pairs used to start string before ending match" do
       opal_parse('%Q(())').should == [:str, "()"]
       opal_parse('%Q(foo(bar)baz)').should == [:str, "foo(bar)baz"]
       opal_parse('%Q((foo)bar)').should == [:str, "(foo)bar"]
@@ -75,7 +75,7 @@ describe "Strings" do
       opal_parse('%Q(a(b(c)#{foo}d)e)').should == [:dstr, "a(b(c)", [:evstr, [:call, nil, :foo, [:arglist]]], [:str, "d)e"]]
     end
 
-    it "should match '[' and ']' pairs used to start string before ending match" do
+    pending "should match '[' and ']' pairs used to start string before ending match" do
       opal_parse('%Q[[]]').should == [:str, "[]"]
       opal_parse('%Q[foo[bar]baz]').should == [:str, "foo[bar]baz"]
       opal_parse('%Q[[foo]bar]').should == [:str, "[foo]bar"]
@@ -92,7 +92,7 @@ describe "Strings" do
     it "parses other Qstrings within interpolations" do
       opal_parse('%Q{#{ %Q{} }}').should == [:dstr, "", [:evstr, [:str, ""]]]
     end
-  end if false # FIXME
+  end
 
   describe "from character shortcuts" do
     it "produces a string sexp" do

data/spec/grammar/string_spec.rb

@@ -0,0 +1,8 @@
+require "spec_helper"
+
+describe "Strings" do
+  it "parses %[] strings" do
+    opal_parse('%[]').should == [:str, '']
+    opal_parse('%[foo]').should == [:str, 'foo']
+  end
+end

data/spec/grammar/xstr_spec.rb

@@ -65,7 +65,7 @@ describe "x-strings" do
       opal_parse('%x{#@@foo}').should == [:dxstr, "", [:evstr, [:cvar, :@@foo]]]
     end
 
-    it "should match '{' and '}' pairs used to start string before ending match" do
+    pending "should match '{' and '}' pairs used to start string before ending match" do
       opal_parse('%x{{}}').should == [:xstr, "{}"]
       opal_parse('%x{foo{bar}baz}').should == [:xstr, "foo{bar}baz"]
       opal_parse('%x{{foo}bar}').should == [:xstr, "{foo}bar"]
@@ -75,7 +75,7 @@ describe "x-strings" do
       opal_parse('%x{a{b{c}#{foo}d}e}').should == [:dxstr, "a{b{c}", [:evstr, [:call, nil, :foo, [:arglist]]], [:str, "d}e"]]
     end
 
-    it "should match '(' and ')' pairs used to start string before ending match" do
+    pending "should match '(' and ')' pairs used to start string before ending match" do
       opal_parse('%x(())').should == [:xstr, "()"]
       opal_parse('%x(foo(bar)baz)').should == [:xstr, "foo(bar)baz"]
       opal_parse('%x((foo)bar)').should == [:xstr, "(foo)bar"]
@@ -85,7 +85,7 @@ describe "x-strings" do
       opal_parse('%x(a(b(c)#{foo}d)e)').should == [:dxstr, "a(b(c)", [:evstr, [:call, nil, :foo, [:arglist]]], [:str, "d)e"]]
     end
 
-    it "should match '[' and ']' pairs used to start string before ending match" do
+    pending "should match '[' and ']' pairs used to start string before ending match" do
       opal_parse('%x[[]]').should == [:xstr, "[]"]
       opal_parse('%x[foo[bar]baz]').should == [:xstr, "foo[bar]baz"]
       opal_parse('%x[[foo]bar]').should == [:xstr, "[foo]bar"]
@@ -113,4 +113,4 @@ describe "x-strings" do
       }.should raise_error(Exception)
     end
   end
-end if false # FIXME
+end

data/spec/language/alias_spec.rb

@@ -1,6 +1,8 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
 class AliasObject
-  attr_accessor :foo
-  attr_reader :baz
+  attr :foo
+  attr_reader :bar
   attr_accessor :baz
 
   def prep; @foo = 3; @bar = 4; end
@@ -20,4 +22,139 @@ describe "The alias keyword" do
     end
     @obj.__value.should == 5
   end
-end
+
+  it "adds the new method to the list of methods" do
+    original_methods = @obj.methods
+    @meta.class_eval do
+      alias __value value
+    end
+    (@obj.methods - original_methods).map {|m| m.to_s }.should == ["__value"]
+  end
+
+  pending "adds the new method to the list of public methods" do
+    original_methods = @obj.public_methods
+    @meta.class_eval do
+      alias __value value
+    end
+    (@obj.public_methods - original_methods).map {|m| m.to_s }.should == ["__value"]
+  end
+
+  it "overwrites an existing method with the target name" do
+    @meta.class_eval do
+      alias false_value value
+    end
+    @obj.false_value.should == 5
+  end
+
+  it "is reversible" do
+    @meta.class_eval do
+      alias __value value
+      alias value false_value
+    end
+    @obj.value.should == 6
+
+    @meta.class_eval do
+      alias value __value
+    end
+    @obj.value.should == 5
+  end
+
+  pending "operates on the object's metaclass when used in instance_eval" do
+    @obj.instance_eval do
+      alias __value value
+    end
+
+    @obj.__value.should == 5
+    lambda { AliasObject.new.__value }.should raise_error(NoMethodError)
+  end
+
+  pending "operates on methods defined via attr, attr_reader, and attr_accessor" do
+    @obj.prep
+    @obj.instance_eval do
+      alias afoo foo
+      alias abar bar
+      alias abaz baz
+    end
+
+    @obj.afoo.should == 3
+    @obj.abar.should == 4
+    @obj.baz = 5
+    @obj.abaz.should == 5
+  end
+
+  pending "operates on methods with splat arguments" do
+    class AliasObject2;end
+    AliasObject2.class_eval do
+      def test(*args)
+        4
+      end
+      def test_with_check(*args)
+        test_without_check(*args)
+      end
+      alias test_without_check test
+      alias test test_with_check
+    end
+    AliasObject2.new.test(1,2,3,4,5).should == 4
+  end
+
+  it "operates on methods with splat arguments on eigenclasses" do
+    @meta.class_eval do
+      def test(*args)
+        4
+      end
+      def test_with_check(*args)
+        test_without_check(*args)
+      end
+      alias test_without_check test
+      alias test test_with_check
+    end
+    @obj.test(1,2,3,4,5).should == 4
+  end
+
+  pending "operates on methods with splat arguments defined in a superclass" do
+    class AliasObject3;end
+    class Sub3 < AliasObject3;end
+    AliasObject3.class_eval do
+      def test(*args)
+        4
+      end
+      def test_with_check(*args)
+        test_without_check(*args)
+      end
+    end
+    Sub3.class_eval do
+      alias test_without_check test
+      alias test test_with_check
+    end
+    Sub3.new.test(1,2,3,4,5).should == 4
+  end
+
+  pending "operates on methods with splat arguments defined in a superclass using text block for class eval" do
+    class Sub < AliasObject;end
+    AliasObject.class_eval <<-code
+      def test(*args)
+        4
+      end
+      def test_with_check(*args)
+        test_without_check(*args)
+      end
+      alias test_without_check test
+      alias test test_with_check
+    code
+    Sub.new.test("testing").should == 4
+  end
+
+  pending "is not allowed against Fixnum or String instances" do
+    lambda do
+      1.instance_eval do
+        alias :foo :to_s
+      end
+    end.should raise_error(TypeError)
+
+    lambda do
+      :blah.instance_eval do
+        alias :foo :to_s
+      end
+    end.should raise_error(TypeError)
+  end
+end