opal 0.0.1 → 0.1.0

data/opals/foundation/spec/system/observable/remove_observer_spec.rb

@@ -0,0 +1,60 @@
+
+describe "Observable#remove_observer" do
+  
+  it "should be possible to remove a single observer for a key" do
+    a = KVOTestSimple.new
+    b = KVOTestSimple.new
+    
+    a_saw_observer = false
+    
+    first_observer = a.observe(:first_name) do |info|
+      a_saw_observer = true
+    end
+    
+    second_a_saw_observer = false
+    
+    a.observe(:first_name) do |info|
+      second_a_saw_observer = true
+    end
+    
+    a.remove_observer first_observer, :first_name
+    a.set_attribute :first_name, "something"
+    a.first_name.should == "setting_something"
+    
+    a_saw_observer.should == false
+    second_a_saw_observer.should == true
+    
+  end
+  
+  
+  it "should not post any notifications to any observer when all removed" do
+    c = KVOTestSimple.new
+    
+    d_saw = e_saw = f_saw = false
+    
+    d = c.observe :first_name do |info|
+      d_saw = true
+    end
+    
+    e = c.observe :first_name do |info|
+      e_saw = true
+    end
+    
+    f = c.observe :first_name do |info|
+      f_saw = true
+    end
+    
+    c.remove_observer d, :first_name
+    c.remove_observer e, :first_name
+    c.remove_observer f, :first_name
+    
+    c.set_attribute :first_name, "something"
+    c.first_name.should == "setting_something"
+    
+    d_saw.should == false
+    e_saw.should == false
+    f_saw.should == false
+
+  end
+  
+end

data/opals/opal/Opalfile

@@ -0,0 +1,14 @@
+mode :all do
+  config :opal,
+  
+    :required => [:runtime]
+
+end
+
+mode :spec do
+  config :opal,
+    
+    :lib_directories  => ['spec'],
+    :bin_file         => :spec
+  
+end

data/opals/opal/spec/core/array/append_spec.rb

@@ -0,0 +1,30 @@
+
+describe "Array#<<" do
+  it "pushed the object onto the end of the array" do
+    ([1, 2] << "c" << "d" << [3, 4]).should == [1, 2, "c", "d", [3, 4]]
+  end
+  
+  it "returns self to allow chaining" do
+    a = []
+    b = a
+    (a << 1).should == b
+    (a << 2 << 3).should == b
+  end
+  
+  it "correctly resizes the Array" do
+    a = []
+    a.size.should == 0
+    a << :foo
+    a.size.should == 1
+    a << :bar << :baz
+    a.size.should == 3
+    
+    a = [1, 2, 3]
+    a.shift
+    a.shift
+    a.shift
+    a << :foo
+    a.should == [:foo]
+    
+  end
+end

data/opals/opal/spec/core/array/assoc_spec.rb

@@ -0,0 +1,29 @@
+
+describe "Array#assoc" do
+  it "returns the first array whose 1st item is == obj or nil" do
+    s1 = ["colors", "red", "blue", "green"]
+    s2 = [:letters, "a", "b", "c"]
+    s3 = [4]
+    s4 = ["colors", "cyan", "yellow", "magenda"]
+    s5 = [:letters, "a", "i", "u"]
+    s_nil = [nil, nil]
+    a = [s1, s2, s3, s4, s5, s_nil]
+    a.assoc(s1.first).should == s1
+    a.assoc(s2.first).should == s2
+    a.assoc(s3.first).should == s3
+    a.assoc(s4.first).should == s1
+    a.assoc(s5.first).should == s2
+    a.assoc(s_nil.first).should == s_nil
+    a.assoc(4).should == s3
+    a.assoc("key not in array").should == nil
+  end
+  
+  it "ignores any non-Array elements" do
+    [1, 2, 3].assoc(2).should == nil
+    s1 = [4]
+    s2 = [5, 4, 3]
+    a = ["foo", [], s1, s2, nil, []]
+    a.assoc(s1.first).should == s1
+    a.assoc(s2.first).should == s2
+  end
+end

data/opals/opal/spec/core/array/at_spec.rb

@@ -0,0 +1,37 @@
+
+describe "Array#at" do
+  it "returns the (n+1)'th element for the passed index n" do
+    a = [1, 2, 3, 4, 5, 6]
+    a.at(0).should == 1
+    a.at(1).should == 2
+    a.at(5).should == 6
+  end
+  
+  it "returns nil if the given index is greater than or equal to the array's length" do
+    a = [1, 2, 3, 4, 5, 6]
+    a.at(6).should == nil
+    a.at(7).should == nil
+  end
+  
+  it "returns the (-n)'th element from the last, for the given negative index n" do
+    a = [1, 2, 3, 4, 5, 6]
+    a.at(-1).should == 6
+    a.at(-2).should == 5
+    a.at(-6).should == 1
+  end
+  
+  it "returns nil if the given index is less than -len, where len is the length of the array" do
+    a = [1, 2, 3, 4, 5, 6]
+    a.at(-7).should == nil
+    a.at(-8).should == nil
+  end
+  
+  it "does not extend the array unless the given index is out of range" do
+    a = [1, 2, 3, 4, 5, 6]
+    a.length.should == 6
+    a.at(100)
+    a.length.should == 6
+    a.at(-100)
+    a.length.should == 6
+  end
+end

data/opals/opal/spec/core/array/clear_spec.rb

@@ -0,0 +1,22 @@
+
+describe "Array#clear" do
+  it "removes all elements" do
+    a = [1, 2, 3, 4]
+    a.clear
+    # a.clear.should == a
+    a.should == []
+  end
+  
+  it "returns self" do
+    a = [1]
+    oid = a.object_id
+    a.clear.object_id.should == oid
+  end
+  
+  it "leaves the Array empty" do
+    a = [1]
+    a.clear
+    a.empty?.should == true
+    a.size.should == 0
+  end
+end

data/opals/opal/spec/core/array/collect_bang_spec.rb

@@ -0,0 +1,27 @@
+
+describe "Array#collect!" do
+  it "replaces each element with the value returned by block" do
+    a = [7, 9, 3, 5]
+    a.collect! { |i| i - 1 }
+    a.should == [6, 8, 2, 4]
+  end
+  
+  it "returns self" do
+    a = [1, 2, 3, 4, 5]
+    b = a.collect! { |i| i + 1 }
+    a.object_id.should == b.object_id
+  end
+  
+  it "returns the evaluated value of block but its contents is partially modified, if it broke in the block" do
+    a = ['a', 'b', 'c', 'd']
+    b = a.collect! do |i|
+      if i == 'c'
+        break 0
+      else
+        i + '!'
+      end
+    end
+    b.should == 0
+    a.should == ['a!', 'b!', 'c', 'd']
+  end
+end

data/opals/opal/spec/core/array/collect_spec.rb

@@ -0,0 +1,27 @@
+
+describe "Array#collect" do
+  it "returns a copy of array with each element replaced by the value returned by block" do
+    a = ['a', 'b', 'c', 'd']
+    b = a.collect { |i| i + '!'}
+    b.should == ['a!', 'b!', 'c!', 'd!']
+    # a.object_id.should_not == a.object_id
+  end
+  
+  it "does not change self" do
+    a = ['a', 'b', 'c', 'd']
+    b = a.collect { |i| i + '!' }
+    a.should == ['a', 'b', 'c', 'd']
+  end
+  
+  it "returns the evaluated value of the block if it broke in the block" do
+    a = ['a', 'b', 'c', 'd']
+    b = a.collect do |i|
+      if i == 'c'
+        break 0
+      else
+        i + '!'
+      end
+    end
+    b.should == 0
+  end  
+end

data/opals/opal/spec/core/array/compact_spec.rb

@@ -0,0 +1,15 @@
+
+describe "Array#compact" do
+  it "returns a copy of array with all nil elements removed" do
+    a = [1, 2, 4]
+    a.compact.should == [1, 2, 4]
+    a = [1, nil, 2, 4]
+    a.compact.should == [1, 2, 4]
+    a = [1, 2, 4, nil]
+    a.compact.should == [1, 2, 4]
+    a = [nil, 1, 2, 4]
+    a.compact.should == [1, 2, 4]
+  end
+  
+  # it "does not return self"
+end

data/opals/opal/spec/core/array/concat_spec.rb

@@ -0,0 +1,15 @@
+
+describe "Array#concat" do
+  it "appends the elements in the other array" do
+    ary = [1, 2, 3]
+    ary.concat([9, 10, 11])
+    ary.should == [1, 2, 3, 9, 10, 11]
+    ary.concat []
+    ary.should == [1, 2, 3, 9, 10, 11]
+  end
+  
+  it "does not loop endlessly when argument is self" do
+    ary = ["x", "y"]
+    ary.concat(ary).should == ["x", "y", "x", "y"]
+  end
+end

data/opals/opal/spec/core/array/constructor_spec.rb

@@ -0,0 +1,14 @@
+
+describe "Array.[]" do
+  it "returns a new array populated with the given elements" do
+    obj = Object.new
+    Array.[](5, true, nil, 'a', "Ruby", obj).should == [5, true, nil, 'a', "Ruby", obj]
+  end
+end
+
+describe "Array[]" do
+  it "is a synonym for .[]" do
+    obj = Object.new
+    Array[5, true, nil, 'a', "Ruby", obj].should == [5, true, nil, 'a', "Ruby", obj]
+  end
+end

data/opals/opal/spec/core/array/each_spec.rb

@@ -0,0 +1,9 @@
+
+describe "Array#each" do
+  it "yields each element to the block" do
+    a = []
+    x = [1, 2, 3]
+    x.each { |item| a << item }.should == x
+    a.should == [1, 2, 3]
+  end
+end

data/opals/opal/spec/core/array/element_reference_spec.rb

@@ -0,0 +1,4 @@
+
+describe "Array#[]" do
+  
+end

data/opals/opal/spec/core/array/first_spec.rb

@@ -0,0 +1,35 @@
+
+describe "Array#first" do
+  it "returns the first element" do
+    %W{a b c}.first.should == 'a'
+    [nil].first.should == nil
+  end
+  
+  it "returns nil if self is empty" do
+    [].first.should == nil
+  end
+  
+  it "returns the first count elements if given a count" do
+    [true, false, true, nil, false].first(2).should == [true, false]
+  end
+  
+  it "returns an empty array when passed count on an empty array" do
+    [].first(0).should == []
+    [].first(1).should == []
+    [].first(2).should == []
+  end
+  
+  it "returns an empty array when passed count == 0" do
+    [1, 2, 3, 4, 5].first(0).should == []
+  end
+  
+  it "returns an array containing the first element when passed count == 1" do
+    [1, 2, 3, 4, 5].first(1).should == [1]
+  end
+  
+  it "raises an argument error when count is negative"
+  
+  it "returns the entire array when count > length" do
+    [1, 2, 3, 4, 5, 6, 7, 8, 9].first(10).should == [1, 2, 3, 4, 5, 6, 7, 8, 9]
+  end
+end

data/opals/opal/spec/core/array/include_spec.rb

@@ -0,0 +1,9 @@
+
+describe "Array#include?" do
+  it "returns true if object is present, false otherwise" do
+    [1, 2, "a", "b"].include?("c").should == false
+    [1, 2, "a", "b"].include?("a").should == true
+  end
+  
+  it "determines presence by using element == obj"
+end

data/opals/opal/spec/core/array/map_spec.rb

@@ -0,0 +1,31 @@
+
+describe "Array#map" do
+  it "returns a copy of array with each element replaced by the value returned by block" do
+    a = ['a', 'b', 'c', 'd']
+    b = a.map { |i| i + '!' }
+    b.should == ['a!', 'b!', 'c!', 'd!']
+    # b.object_id.should_not == a.object_id
+  end
+  
+  it "does not return subclass instance"
+  
+  it "does not change self" do
+    a = ['a', 'b', 'c', 'd']
+    b = a.map { |i| i + '!' }
+    a.should == ['a', 'b', 'c', 'd']
+  end
+  
+  it "returns the evaluated value of the block if it broke in the block" do
+    a = ['a', 'b', 'c', 'd']
+    b = a.map { |i| 
+      if i == 'c'
+        break 0
+      else
+        i + '!'
+      end
+    }
+    b.should == 0
+  end
+  
+  it "returns an enumerator when no block given"
+end

data/opals/opal/spec/core/builtin_constants/builtin_constants_spec.rb

@@ -0,0 +1,7 @@
+
+describe "RUBY_VERSION" do
+  
+  it "is a String" do
+    # RUBY_VERSION.class.should == String
+  end
+end

data/opals/opal/spec/core/false/and_spec.rb

@@ -0,0 +1,10 @@
+
+describe "FalseClass#&" do
+  it "returns false" do
+    (false & false).should == false
+    (false & true).should == false
+    (false & nil).should == false
+    (false & "").should == false
+    (false & 'x').should == false
+  end
+end

data/opals/opal/spec/core/false/inspect_spec.rb

@@ -0,0 +1,6 @@
+
+describe "FalseClass#inspect" do
+  it "returns the string 'false'" do
+    false.inspect.should == "false"
+  end
+end

data/opals/opal/spec/core/false/or_spec.rb

@@ -0,0 +1,10 @@
+
+describe "FalseClass#|" do
+  it "returns false if other is nil or false, otherwise true" do
+    (false | false).should == false
+    (false | true).should == true
+    (false | nil).should == false
+    (false | "").should == true
+    (false | 'x').should == true
+  end
+end