opal 0.3.41 → 0.3.42

data/spec/language/hash_spec.rb

@@ -1,3 +1,5 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
 describe "Hash literal" do
   it "{} should return an empty hash" do
     {}.size.should == 0
@@ -7,10 +9,10 @@ describe "Hash literal" do
   it "{} should return a new hash populated with the given elements" do
     h = {:a => 'a', 'b' => 3, 44 => 2.3}
     h.size.should == 3
-    h.should == {:a => 'a', 'b' => 3, 44 => 2.3}
+    h.should == {:a => "a", "b" => 3, 44 => 2.3}
   end
 
-  it "treats empty expressions an nils" do
+  it "treats empty expressions as nils" do
     h = {() => ()}
     h.keys.should == [nil]
     h.values.should == [nil]
@@ -21,12 +23,22 @@ describe "Hash literal" do
     h.values.should == [:value]
     h[nil].should == :value
 
-    h = {:keys => ()}
-    h.keys.should == [:keys]
+    h = {:key => ()}
+    h.keys.should == [:key]
     h.values.should == [nil]
     h[:key].should == nil
   end
 
+  pending "freezes string keys on initialization" do
+    key = "foo"
+    h = {key => "bar"}
+    key.reverse!
+    h["foo"].should == "bar"
+    h.keys.first.should == "foo"
+    h.keys.first.frozen?.should == true
+    key.should == "oof"
+  end
+
   it "checks duplicated keys on initialization" do
     h = {:foo => :bar, :foo => :foo}
     h.keys.size.should == 1
@@ -38,4 +50,16 @@ describe "Hash literal" do
     h.size.should == 2
     h.should == {:a => 1, :b => 2}
   end
-end
+  
+  it "recognizes '=' at the end of the key" do
+    eval("{:a==>1}").should   == {:"a=" => 1}
+    eval("{:a= =>1}").should  == {:"a=" => 1}
+    eval("{:a= => 1}").should == {:"a=" => 1}
+  end
+  
+  it "with '==>' in the middle raises SyntaxError" do
+    lambda {eval("{:a ==> 1}")}.should raise_error(SyntaxError)
+  end
+end
+
+# language_version __FILE__, "hash"

data/spec/language/if_spec.rb

@@ -1,3 +1,5 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
 describe "The if expression" do
   it "evaluates body if expression is true" do
     a = []
@@ -7,7 +9,7 @@ describe "The if expression" do
     a.should == [123]
   end
 
-  it "does not evaluate body if expression if false" do
+  it "does not evaluate body if expression is false" do
     a = []
     if false
       a << 123
@@ -113,7 +115,7 @@ describe "The if expression" do
   end
 
   it "considers a non-nil and non-boolean object in expression result as true" do
-    if 'x'
+    if mock('x')
       123
     else
       456
@@ -135,7 +137,7 @@ describe "The if expression" do
     end.should == 456
   end
 
-  it "evaluates subsequent elsif statements and executes body of first matching" do
+  it "evaluates subsequent elsif statements and execute body of first matching" do
     if false
       123
     elsif false
@@ -210,6 +212,83 @@ describe "The if expression" do
 
     if false then 123; else 456; end.should == 456
   end
+
+  describe "with a boolean range ('flip-flop' operator)" do
+    before :each do
+      ScratchPad.record []
+    end
+
+    after :each do
+      ScratchPad.clear
+    end
+
+    pending "mimics an awk conditional with a single-element inclusive-end range" do
+      10.times { |i| ScratchPad << i if (i == 4)..(i == 4) }
+      ScratchPad.recorded.should == [4]
+    end
+
+    pending "mimics an awk conditional with a many-element inclusive-end range" do
+      10.times { |i| ScratchPad << i if (i == 4)..(i == 7) }
+      ScratchPad.recorded.should == [4, 5, 6, 7]
+    end
+
+    pending "mimics a sed conditional with a zero-element exclusive-end range" do
+      10.times { |i| ScratchPad << i if (i == 4)...(i == 4) }
+      ScratchPad.recorded.should == [4, 5, 6, 7, 8, 9]
+    end
+
+    pending "mimics a sed conditional with a many-element exclusive-end range" do
+      10.times { |i| ScratchPad << i if (i == 4)...(i == 5) }
+      ScratchPad.recorded.should == [4, 5]
+    end
+
+    pending "allows combining two flip-flops" do
+      10.times { |i| ScratchPad << i if (i == 4)...(i == 5) or (i == 7)...(i == 8) }
+      ScratchPad.recorded.should == [4, 5, 7, 8]
+    end
+
+    pending "evaluates the first conditions lazily with inclusive-end range" do
+      collector = proc { |i| ScratchPad << i }
+      10.times { |i| i if collector[i]...false }
+      ScratchPad.recorded.should == [0]
+    end
+
+    pending "evaluates the first conditions lazily with exclusive-end range" do
+      collector = proc { |i| ScratchPad << i }
+      10.times { |i| i if collector[i]..false }
+      ScratchPad.recorded.should == [0]
+    end
+
+    pending "evaluates the second conditions lazily with inclusive-end range" do
+      collector = proc { |i| ScratchPad << i }
+      10.times { |i| i if (i == 4)...collector[i] }
+      ScratchPad.recorded.should == [5]
+    end
+
+    pending "evaluates the second conditions lazily with exclusive-end range" do
+      collector = proc { |i| ScratchPad << i }
+      10.times { |i| i if (i == 4)..collector[i] }
+      ScratchPad.recorded.should == [4]
+    end
+
+    pending "scopes state by flip-flop" do
+      store_me = proc { |i| ScratchPad << i if (i == 4)..(i == 7) }
+      store_me[1]
+      store_me[4]
+      proc { store_me[1] }.call
+      store_me[7]
+      store_me[5]
+      ScratchPad.recorded.should == [4, 1, 7]
+    end
+
+    pending "keeps flip-flops from interfering" do
+      a = proc { |i| ScratchPad << i if (i == 4)..(i == 7) }
+      b = proc { |i| ScratchPad << i if (i == 4)..(i == 7) }
+      6.times(&a)
+      6.times(&b)
+      ScratchPad.recorded.should == [4, 5, 4, 5]
+    end
+  end
 end
 
 describe "The postfix if form" do
@@ -219,7 +298,7 @@ describe "The postfix if form" do
     a.should == [123]
   end
 
-  it "does not evaluate statement if expression if false" do
+  it "does not evaluate statement if expression is false" do
     a = []
     a << 123 if false
     a.should == []
@@ -229,7 +308,7 @@ describe "The postfix if form" do
     (123 if true).should == 123
   end
 
-  it "returns nil if value is false" do
+  it "returns nil if expression is false" do
     (123 if false).should == nil
   end
 
@@ -238,7 +317,7 @@ describe "The postfix if form" do
   end
 
   it "considers a non-nil object as true" do
-    (123 if 'x').should == 123
+    (123 if mock('x')).should == 123
   end
 
   it "evaluates then-body in containing scope" do
@@ -249,12 +328,12 @@ describe "The postfix if form" do
     b.should == 124
   end
 
-  it "evaluates else-body if containing scope" do
+  it "evaluates else-body in containing scope" do
     a = 123
     if false
       b = a+1
     else
-      b= a+2
+      b = a+2
     end
     b.should == 125
   end
@@ -272,4 +351,6 @@ describe "The postfix if form" do
     end
     b.should == 126
   end
-end
+end
+
+# language_version __FILE__, "if"

data/spec/language/literal_lambda_spec.rb

@@ -1,47 +1 @@
-describe "->(){}" do
-  it "can be specified as a literal" do
-    lambda { ->(){} }.call
-  end
-
-  it "returns a Proc object" do
-    ->(){}.should be_kind_of(Proc)
-  end
-
-  it "returns a lambda" do
-    ->(){}.lambda?.should be_true
-  end
-
-  it "can be assigned to a variable" do
-    var = ->(){}
-    var.lambda?.should be_true
-  end
-
-  it "understands a do/end block in place of {}" do
-    lambda do
-      ->() do
-      end
-    end.call
-  end
-
-  it "can be interpolated into a String" do
-    "1+2=#{->{ 1 + 2 }.call}".should == "1+2=3"
-  end
-
-  it "can be used as a Hash key" do
-    h = {}
-    h[->(){ 1 + 2 }.call] = :value
-    h.key?(3).should be_true
-  end
-
-  it "can be used in method parameter lists" do
-    def glark7654(a=-> { :foo })
-      a.call
-    end
-    glark7654.should == :foo
-  end
-
-  it "accepts an paramter list between the paranthesis" do
-    lambda { ->(a) {} }.call
-    lambda { ->(a,b) {} }.call
-  end
-end
+# language_version __FILE__, "literal_lambda"

data/spec/language/loop_spec.rb

@@ -1,3 +1,5 @@
+require File.expand_path('../../spec_helper', __FILE__)
+
 describe "The loop expression" do
   it "repeats the given block until a break is called" do
     outer_loop = 0
@@ -8,7 +10,7 @@ describe "The loop expression" do
     outer_loop.should == 10
   end
 
-  it "executes code in its own scope" do
+  pending "executes code in its own scope" do
     loop do
       inner_loop = 123
       break
@@ -27,4 +29,39 @@ describe "The loop expression" do
       break
     end.should == nil
   end
-end
+
+  it "skips to end of body with next" do
+    a = []
+    i = 0
+    loop do
+      break if (i+=1) >= 5
+      next if i == 3
+      a << i
+    end
+    a.should == [1, 2, 4]
+  end
+
+  pending "restarts the current iteration with redo" do
+    a = []
+    loop do
+      a << 1
+      redo if a.size < 2
+      a << 2
+      break if a.size == 3
+    end
+    a.should == [1, 1, 2]
+  end
+
+  pending "uses a spaghetti nightmare of redo, next and break" do
+    a = []
+    loop do
+      a << 1
+      redo if a.size == 1
+      a << 2
+      next if a.size == 3
+      a << 3
+      break if a.size > 6
+    end
+    a.should == [1, 1, 2, 1, 2, 3, 1, 2, 3]
+  end
+end

data/spec/language/metaclass_spec.rb

@@ -1,13 +1,159 @@
+require File.expand_path('../../spec_helper', __FILE__)
+require File.expand_path('../../fixtures/class', __FILE__)
+require File.expand_path('../fixtures/metaclass', __FILE__)
+
 describe "self in a metaclass body (class << obj)" do
-  it "is Boolean for true" do
-    class << true; self; end.should == Boolean
+  it "is TrueClass for true" do
+    class << true; self; end.should == TrueClass
   end
 
-  it "is Boolean for false" do
-    class << false; self; end.should == Boolean
+  it "is FalseClass for false" do
+    class << false; self; end.should == FalseClass
   end
 
   it "is NilClass for nil" do
     class << nil; self; end.should == NilClass
   end
-end
+
+  pending "raises a TypeError for numbers" do
+    lambda { class << 1; self; end }.should raise_error(TypeError)
+  end
+
+  pending "raises a TypeError for symbols" do
+    lambda { class << :symbol; self; end }.should raise_error(TypeError)
+  end
+
+  it "is a singleton Class instance" do
+    cls = class << mock('x'); self; end
+    cls.is_a?(Class).should == true
+    cls.should_not equal(Object)
+  end
+end
+
+describe "A constant on a metaclass" do
+  before(:each) do
+    @object = Object.new
+    class << @object
+      CONST = self
+    end
+  end
+
+  pending "can be accessed after the metaclass body is reopened" do
+    class << @object
+      CONST.should == self
+    end
+  end
+
+  pending "can be accessed via self::CONST" do
+    class << @object
+      self::CONST.should == self
+    end
+  end
+
+  pending "can be accessed via const_get" do
+    class << @object
+      const_get(:CONST).should == self
+    end
+  end
+
+  pending "is not defined on the object's class" do
+    @object.class.const_defined?(:CONST).should be_false
+  end
+
+  pending "is not defined in the metaclass opener's scope" do
+    class << @object
+      CONST
+    end
+    lambda { CONST }.should raise_error(NameError)
+  end
+
+  pending "cannot be accessed via object::CONST" do
+    lambda do
+      @object::CONST
+    end.should raise_error(TypeError)
+  end
+
+  pending "raises a NameError for anonymous_module::CONST" do
+    @object = Class.new
+    class << @object
+      CONST = 100
+    end
+
+    lambda do
+      @object::CONST
+    end.should raise_error(NameError)
+  end
+
+  ruby_version_is ""..."1.9" do
+    it "appears in the metaclass constant list" do
+      constants = class << @object; constants; end
+      constants.should include("CONST")
+    end
+
+    it "does not appear in the object's class constant list" do
+      @object.class.constants.should_not include("CONST")
+    end
+  end
+
+  ruby_version_is "1.9" do
+    pending "appears in the metaclass constant list" do
+      constants = class << @object; constants; end
+      constants.should include(:CONST)
+    end
+
+  pending "does not appear in the object's class constant list" do
+      @object.class.constants.should_not include(:CONST)
+    end
+  end
+
+  pending "is not preserved when the object is duped" do
+    @object = @object.dup
+
+    lambda do
+      class << @object; CONST; end
+    end.should raise_error(NameError)
+  end
+
+  pending "is preserved when the object is cloned" do
+    @object = @object.clone
+
+    class << @object
+      CONST.should_not be_nil
+    end
+  end
+end
+
+describe "calling methods on the metaclass" do
+
+  it "calls a method on the metaclass" do
+    MetaClassSpecs::A.cheese.should == 'edam'
+    MetaClassSpecs::B.cheese.should == 'stilton'
+  end
+
+  it "calls a method on the instance's metaclass" do
+    b = MetaClassSpecs::B.new
+    b_meta = MetaClassSpecs.metaclass_of b
+    b_meta.send(:define_method, :cheese) {'cheshire'}
+    b.cheese.should == 'cheshire'
+  end
+
+  pending "calls a method in deeper chains of metaclasses" do
+    b = MetaClassSpecs::B.new
+    b_meta = MetaClassSpecs.metaclass_of b
+    b_meta_meta = MetaClassSpecs.metaclass_of b_meta
+    b_meta_meta.send(:define_method, :cheese) {'gouda'}
+    b_meta.cheese.should == 'gouda'
+
+    b_meta_meta_meta = MetaClassSpecs.metaclass_of b_meta_meta
+    b_meta_meta_meta.send(:define_method, :cheese) {'wensleydale'}
+    b_meta_meta.cheese.should == 'wensleydale'
+  end
+
+  ruby_version_is "1.9" do
+    it "calls a method defined on the metaclass of the metaclass" do
+      d_meta = MetaClassSpecs::D.singleton_class
+      d_meta.ham.should == 'iberico'
+    end
+  end
+
+end