opal 0.3.26 → 0.3.27

data/spec/core/array/to_a_spec.rb

@@ -0,0 +1,7 @@
+describe "Array#to_a" do
+  it "returns self" do
+    a = [1, 2, 3]
+    a.to_a.should == [1, 2, 3]
+    a.should equal(a.to_a)
+  end
+end

data/spec/core/array/unshift_spec.rb

@@ -0,0 +1,29 @@
+describe "Array#unshift" do
+  it "prepends object to the original array" do
+    a = [1, 2, 3]
+    a.unshift("a").should equal(a)
+    a.should == ['a', 1, 2, 3]
+    a.unshift().should equal(a)
+    a.should == ['a', 1, 2, 3]
+    a.unshift(5, 4, 3)
+    a.should == [5, 4, 3, 'a', 1, 2, 3]
+
+    # shift all but one element
+    a = [1, 2]
+    a.shift
+    a.unshift(3, 4)
+    a.should == [3, 4, 2]
+
+    # now shift all elements
+    a.shift
+    a.shift
+    a.shift
+    a.unshift(3, 4)
+    a.should == [3, 4]
+  end
+
+  it "quietly ignores unshifting nothing" do
+    [].unshift().should == []
+    [].unshift(*[]).should == []
+  end
+end

data/spec/core/hash/constructor_spec.rb

@@ -0,0 +1,13 @@
+describe "Hash.[]" do
+  describe "passed zero arguments" do
+    it "returns an empty hash" do
+      Hash[].should == {}
+    end
+  end
+
+  it "creates a Hash; values can be provided as the argument list" do
+    Hash[:a, 1, :b, 2].should == { :a => 1, :b => 2 }
+    Hash[].should == {}
+    Hash[:a, 1, :b, {:c => 2}].should == {:a => 1, :b => {:c => 2}}
+  end
+end

data/spec/core/hash/default_proc_spec.rb

@@ -0,0 +1,20 @@
+describe "Hash#default_proc" do
+  it "returns the block passed to Hash.new" do
+    h = Hash.new { |i| 'Paris' }
+    p = h.default_proc
+    p.call(1).should == 'Paris'
+  end
+
+  it "returns nil if no block was passed to proc" do
+    {}.default_proc.should == nil
+  end
+end
+
+describe "Hash#default_proc=" do
+  it "replaces the block passed to Hash.new" do
+    h = Hash.new { |i| 'Paris' }
+    h.default_proc = Proc.new { 'Montreal' }
+    p = h.default_proc
+    p.call(1).should == 'Montreal'
+  end
+end

data/spec/core/hash/default_spec.rb

@@ -6,4 +6,12 @@ describe "Hash#default" do
     Hash.new.default.should == nil
     Hash.new.default(4).should == nil
   end
+end
+
+describe "Hash#default=" do
+  it "sets the default value" do
+    h = {}
+    h.default = 99
+    h.default.should == 99
+  end
 end

data/spec/core/hash/delete_spec.rb

@@ -0,0 +1,11 @@
+describe "Hash#delete" do
+  it "removes the entry and returns the deleted value" do
+    h = {a: 5, b: 2}
+    h.delete(:b).should == 2
+    h.should == {a: 5}
+  end
+
+  it "returns nil if the key is not found" do
+    {}.delete(:a).should == nil
+  end
+end

data/spec/core/hash/dup_spec.rb

@@ -0,0 +1,10 @@
+describe "Hash#dup" do
+  it "copies instance variable but not the objects they refer to" do
+    hash = {'key' => 'value'}
+
+    clone = hash.dup
+
+    clone.should == hash
+    clone.object_id.should_not == hash.object_id
+  end
+end

data/spec/core/hash/reject_spec.rb

@@ -0,0 +1,18 @@
+describe "Hash#reject" do
+  it "returns a new hash removing keys for which the block yields true" do
+    h = {1=>false, 2=>true, 3=>false, 4=>true}
+    h.reject { |k,v| v }.keys.should == [1,3]
+  end
+
+  it "is equivalent to hsh.dup.delete_if" do
+    h = {:a => 'a', :b => 'b', :c => 'd'}
+    h.reject { |k,v| k == 'd' }.should == (h.dup.delete_if { |k, v| k == 'd' })
+
+    all_args_reject = []
+    all_args_delete_if = []
+    h = {1 => 2, 3 => 4}
+    h.reject { |*args| all_args_reject << args }
+    h.delete_if { |*args| all_args_delete_if << args }
+    all_args_reject.should == all_args_delete_if
+  end
+end

data/spec/core/hash/to_a_spec.rb

@@ -0,0 +1,13 @@
+describe "Hash#to_a" do
+  it "returns a list of [key, value] pairs with same order as each()" do
+    h = {:a => 1, 1 => :a, 3 => :b, :b => 5}
+    pairs = []
+
+    h.each_pair do |key, value|
+      pairs << [key, value]
+    end
+
+    h.to_a.should be_kind_of(Array)
+    h.to_a.should == pairs
+  end
+end

data/spec/core/kernel/Array_spec.rb

@@ -0,0 +1,10 @@
+describe "Kernel#Array" do
+  it "returns an Array containing the argument if it responds to neither #to_ary nor #to_a" do
+    obj = mock('obj')
+    Array(obj).should == [obj]
+  end
+
+  it "returns an empty Array when passed nil" do
+    Array(nil).should == []
+  end
+end

data/spec/core/kernel/class_spec.rb

@@ -0,0 +1,6 @@
+describe "Kernel#class" do
+  it "returns the class of the receiver" do
+    Object.new.class.should == Object
+    [].class.should == Array
+  end
+end

data/spec/core/kernel/equal_spec.rb

@@ -0,0 +1,12 @@
+describe "Kernel#equal?" do
+  it "returns true only if obj and other are the same object" do
+    o1 = Object.new
+    o2 = Object.new
+    o1.equal?(o1).should == true
+    o2.equal?(o2).should == true
+    o1.equal?(o2).should == false
+    nil.equal?(nil).should == true
+    o1.equal?(nil).should == false
+    nil.equal?(o2).should == false
+  end
+end

data/spec/core/kernel/extend_spec.rb

@@ -0,0 +1,21 @@
+module KernelExtendSpecs
+  module Mod
+    def foo; 3.142; end
+  end
+
+  class A
+    extend Mod
+  end
+end
+
+describe "Kernel#extend" do
+  it "extends the class/module with the module" do
+    KernelExtendSpecs::A.foo.should == 3.142
+  end
+
+  it "extends the object with the module" do
+    obj = Object.new
+    obj.extend KernelExtendSpecs::Mod
+    obj.foo.should == 3.142
+  end
+end

data/spec/core/kernel/instance_eval_spec.rb

@@ -0,0 +1,28 @@
+describe "Kernel#instance_eval" do
+  before :each do
+    ScratchPad.clear
+  end
+
+  it "yields the object to the block" do
+    "hola".instance_eval { |o| ScratchPad.record o }
+    ScratchPad.recorded.should == "hola"
+  end
+
+  it "returns the result of the block" do
+    "hola".instance_eval { :result }.should == :result
+  end
+
+  it "binds self to the receiver" do
+    s = "hola"
+    (s == s.instance_eval { self }).should be_true
+  end
+
+  it "executes in the context of the receiver" do
+    "Ruby-fu".instance_eval { size }.should == 7
+  end
+
+  it "has access to receiver's instance variables" do
+    @foo_bar = 42
+    instance_eval { @foo_bar }.should == 42
+  end
+end

data/spec/core/kernel/instance_variable_get_spec.rb

@@ -0,0 +1,14 @@
+describe "Kernel#instance_variable_get" do
+  before(:each) do
+    @obj = Object.new
+    @obj.instance_variable_set("@test", :test)
+  end
+
+  it "returns nil when the referred instance variable does not exist" do
+    @obj.instance_variable_get(:@does_not_exist).should be_nil
+  end
+
+  it "returns the value of the passed instance variable" do
+    @obj.instance_variable_get(:@test).should == :test
+  end
+end

data/spec/core/kernel/instance_variable_set_spec.rb

@@ -0,0 +1,10 @@
+describe "Kernel#instance_variable_get" do
+  before(:each) do
+    @obj = Object.new
+  end
+
+  it "sets the value of the referenced variable" do
+    @obj.instance_variable_set(:@test, 42)
+    @obj.instance_variable_get(:@test).should == 42
+  end
+end

data/spec/core/kernel/match_spec.rb

@@ -0,0 +1,5 @@
+describe "Kernel#=~" do
+  it "should return false" do
+    (Object.new =~ 'abc').should be_false
+  end
+end

data/spec/core/module/alias_method_spec.rb

@@ -0,0 +1,10 @@
+class AliasMethodSpec
+  def foo; 'foo'; end
+  alias_method :bar, :foo
+end
+
+describe "Module#alias_method" do
+  it "makes a copy of the method" do
+    AliasMethodSpec.new.bar.should == 'foo'
+  end
+end

data/spec/core/module/ancestors_spec.rb

@@ -0,0 +1,11 @@
+module ModuleAncestorsSpec
+  class A; end
+  class B < A; end
+end
+
+describe "Module#ancestors" do
+  it "returns a list of modules in self (including self)" do
+    ModuleAncestorsSpec::B.ancestors.include?(ModuleAncestorsSpec::B).should == true
+    ModuleAncestorsSpec::B.ancestors.include?(ModuleAncestorsSpec::A).should == true
+  end
+end

data/spec/core/module/append_features_spec.rb

@@ -0,0 +1,14 @@
+module AppendFeaturesSpec
+  class Klass; end
+
+  def self.append_features(mod)
+    ScratchPad.record mod
+  end
+end
+
+describe "Module#append_features" do
+  it "gets called when self is included in another module/class" do
+    AppendFeaturesSpec::Klass.include AppendFeaturesSpec
+    ScratchPad.recorded.should == AppendFeaturesSpec::Klass
+  end
+end

data/spec/core/proc/call_spec.rb

@@ -0,0 +1,21 @@
+describe "Proc#call" do
+  it "invokes self" do
+    Proc.new { "test!" }.call.should == "test!"
+    lambda { "test!" }.call.should == "test!"
+    proc { "test!" }.call.should == "test!"
+  end
+
+  it "sets self's parameters to the given values" do
+    Proc.new { |a, b| a + b }.call(1, 2).should == 3
+    Proc.new { |*args| args }.call(1, 2, 3, 4).should == [1, 2, 3, 4]
+    Proc.new { |_, *args| args }.call(1, 2, 3).should == [2, 3]
+
+    lambda { |a, b| a + b }.call(1, 2).should == 3
+    lambda { |*args| args }.call(1, 2, 3, 4).should == [1, 2, 3, 4]
+    lambda { |_, *args| args }.call(1, 2, 3).should == [2, 3]
+
+    proc { |a, b| a + b }.call(1, 2).should == 3
+    proc { |*args| args }.call(1, 2, 3, 4).should == [1, 2, 3, 4]
+    proc { |_, *args| args }.call(1, 2, 3).should == [2, 3]
+  end
+end

data/spec/core/proc/proc_tricks_spec.rb

@@ -4,4 +4,4 @@ describe 'Proc' do
       Proc.new {}.lambda?.should == false
     end
   end
-end
+end

data/spec/language/alias_spec.rb

@@ -1,5 +1,5 @@
 class AliasObject
-  attr :foo
+  attr_accessor :foo
   attr_reader :baz
   attr_accessor :baz
 

data/spec/opal/class/instance_methods_spec.rb

@@ -0,0 +1,13 @@
+class InstanceMethodsSpec
+  def foo; end
+  def bar; end
+  def baz; end
+end
+
+describe Class do
+  describe '#instance_methods' do
+    it 'returns an array of the instance method names for this class' do
+      InstanceMethodsSpec.instance_methods.should == [:foo, :bar, :baz]
+    end
+  end
+end

data/spec/opal/kernel/attribute_spec.rb

@@ -0,0 +1,57 @@
+class AttributeSpec
+  attr_accessor :foo, :bar
+  attr_reader :first_name, :baz
+
+  def initialize
+    @foo = 'adam'
+    @bar = 42
+    @baz = 3.142
+    @buz = 'omg'
+  end
+
+  def baz?
+    'should not return this one'
+  end
+
+  def buz?
+    @buz
+  end
+end
+
+describe Kernel do
+  before do
+    @obj = AttributeSpec.new
+  end
+
+  describe "#attribute_get" do
+    it "returns attribute values for simple keys" do
+      @obj.attribute_get(:foo).should == 'adam'
+      @obj.attribute_get(:bar).should == 42
+    end
+
+    it "checks for boolean (foo?) accessors after normal getters" do
+      @obj.attribute_get(:baz).should == 3.142
+      @obj.attribute_get(:buz).should == 'omg'
+    end
+
+    it "returns nil for unknown attributes" do
+      @obj.attribute_get(:fullname).should be_nil
+      @obj.attribute_get(:pingpong).should be_nil
+    end
+  end
+  
+  describe "#attribute_set" do
+    it "uses the setter for the given attribute" do
+      @obj.attribute_set(:foo, 42)
+      @obj.foo.should == 42
+
+      @obj.attribute_set(:foo, 3.142)
+      @obj.foo.should == 3.142
+    end
+
+    it "returns nil when setting an attribute with no setter method" do
+      @obj.attribute_set(:baz, 'this should not be set')
+      @obj.baz.should == 3.142
+    end
+  end
+end

data/spec/spec_helper.rb

@@ -3,7 +3,7 @@ require 'opal'
 module Kernel
   def opal_eval(str)
     code = Opal::Parser.new.parse str
-    `eval('(' + code + ')()')`
+    `eval(code)`
   end
 
   def opal_parse(str, file='(string)')

data/spec/test_case.html

@@ -0,0 +1,13 @@
+<!doctype html>
+<html>
+<head>
+  <title>Opal Test Case</title>
+  <script type="text/javascript" src="../../opal.js"></script>
+  <script type="text/javascript" src="../../opal-parser.js"></script>
+  <script type="text/javascript" src="../../opal-spec.js"></script>
+  <script type="text/javascript" src="specs.js"></script>
+  <script type="text/javascript" src="../runner.js"></script>
+</head>
+<body>
+</body>
+</html>