opal-cj 0.7.0.beta1

data/spec/opal/compiler/irb_spec.rb

@@ -0,0 +1,44 @@
+require 'spec_helper'
+require 'native'
+
+describe Opal::Compiler do
+  describe "irb parser option" do
+    it "creates Opal.irb_vars if it does not exist" do
+      $global["Opal"].irb_vars = nil
+      eval_js compile("nil", :irb => true)
+
+      ($global["Opal"].irb_vars == nil).should be_false
+    end
+
+    it "does not create Opal.irb_vars if :irb option not passed" do
+      $global["Opal"].irb_vars = nil
+      eval_js compile("nil")
+
+      ($global["Opal"].irb_vars == nil).should be_true
+    end
+
+    it "sets each s(:lasgn) in the top level onto irb_vars" do
+      eval_js compile("foo = 42", :irb => true)
+      $global["Opal"].irb_vars.foo.should == 42
+    end
+
+    it "gets each s(:lvar) in the top level from irb_vars" do
+      eval_js compile("foo = 3.142; bar = foo", :irb => true)
+      $global["Opal"].irb_vars.bar.should == 3.142
+    end
+
+    it "persists local vars between parses" do
+      eval_js compile("foo = 'hello world'", :irb => true)
+      eval_js compile("bar = foo.upcase", :irb => true)
+      $global["Opal"].irb_vars.bar.should == "HELLO WORLD"
+    end
+
+    it "can still call top level methods" do
+      eval_js(compile("to_s", :irb => true)).should == "main"
+    end
+
+    def compile *args
+      Opal::Compiler.new(*args).compile
+    end
+  end
+end

data/spec/opal/core/array/select_spec.rb

@@ -0,0 +1,14 @@
+describe "Array#select" do
+  it "passes an array item into a single default-block parameter" do
+    [["ABC", "DEF"]].select do |x|
+      x.should == ["ABC", "DEF"]
+    end
+  end
+
+  it "splits an array item into a list of default block parameters" do
+    [["ABC", "DEF"]].select do |x,y|
+      x.should == "ABC"
+      y.should == "DEF"
+    end
+  end
+end

data/spec/opal/core/array/set_range_to_array_spec.rb

@@ -0,0 +1,7 @@
+describe "Array#[]=" do
+  it 'expands the array when assigning another array to a range' do
+    a = ['a']
+    a[3..4] = ['b', 'c']
+    a.should == ['a', nil, nil, 'b', 'c']
+  end
+end

data/spec/opal/core/date_spec.rb

@@ -0,0 +1,122 @@
+require 'spec_helper'
+require 'date'
+
+# rubyspec does not have specs for these listed methods
+describe Date do
+  describe ".parse" do
+    it "parses a date string into a Date instance" do
+      Date.parse('2013-10-4').should == Date.new(2013, 10, 4)
+      Date.parse('2013-06-02').should == Date.new(2013, 6, 2)
+    end
+  end
+
+  describe "#<" do
+    it "is true when self is before other" do
+      (Date.new(2013, 2, 4) < Date.new(2013, 2, 5)).should == true
+      (Date.new(2013, 2, 4) < Date.new(2014, 7, 6)).should == true
+    end
+
+    it "is false when self is not before other" do
+      (Date.new(2013, 2, 4) < Date.new(2013, 2, 4)).should == false
+      (Date.new(2014, 2, 4) < Date.new(2013, 7, 6)).should == false
+    end
+  end
+
+  describe '#<=' do
+    it "is true when self is before or the same day as other" do
+      (Date.new(2013, 4, 5) <= Date.new(2013, 4, 5)).should == true
+      (Date.new(2013, 4, 5) <= Date.new(2013, 4, 9)).should == true
+    end
+
+    it "is false when self is after other" do
+      (Date.new(2013, 4, 5) <= Date.new(2013, 4, 2)).should == false
+      (Date.new(2013, 4, 5) <= Date.new(2013, 2, 5)).should == false
+    end
+  end
+
+  describe "#==" do
+    it "returns true if self is equal to other date" do
+      (Date.new(2013, 9, 13) == Date.new(2013, 9, 13)).should == true
+    end
+
+    it "returns false if self is not equal to other date" do
+      (Date.new(2013, 10, 2) == Date.new(2013, 10, 11)).should == false
+    end
+  end
+
+  describe "#clone" do
+    it "creates a copy of the current date" do
+      orig = Date.new(2013, 10, 15)
+      copy = orig.clone
+
+      orig.should == copy
+      orig.object_id.should_not == copy.object_id
+    end
+  end
+
+  describe "#day" do
+    it "returns the day of the date" do
+      Date.new(2013, 2, 10).day.should == 10
+      Date.new(2013, 2, 1).day.should == 1
+    end
+  end
+
+  describe "#month" do
+    it "returns the month of the date" do
+      Date.new(2013, 1, 23).month.should == 1
+      Date.new(2013, 12, 2).month.should == 12
+    end
+  end
+
+  describe "#next" do
+    it "returns the next date from self" do
+      Date.new(2013, 4, 6).next.should == Date.new(2013, 4, 7)
+      Date.new(2013, 6, 30).next.should == Date.new(2013, 7, 1)
+      Date.new(2013, 12, 31).next.should == Date.new(2014, 1, 1)
+    end
+  end
+
+  describe "#next_month" do
+    it "returns the date with the next calendar month to self" do
+      Date.new(2013, 2, 5).next_month.should == Date.new(2013, 3, 5)
+      Date.new(2013, 5, 31).next_month.should == Date.new(2013, 6, 30)
+      Date.new(2013, 12, 5).next_month.should == Date.new(2014, 1, 5)
+    end
+  end
+
+  describe "#prev" do
+    it "returns the previous date from self" do
+      Date.new(2013, 3, 5).prev.should == Date.new(2013, 3, 4)
+      Date.new(2013, 6, 1).prev.should == Date.new(2013, 5, 31)
+      Date.new(2014, 1, 1).prev.should == Date.new(2013, 12, 31)
+    end
+  end
+
+  describe "#prev_month" do
+    it "returns the date with the previous calendar month" do
+      Date.new(2013, 2, 9).prev_month.should == Date.new(2013, 1, 9)
+      Date.new(2013, 7, 31).prev_month.should == Date.new(2013, 6, 30)
+      Date.new(2013, 1, 3).prev_month.should == Date.new(2012, 12, 3)
+    end
+  end
+
+  describe "#to_s" do
+    it "returns an ISO 8601 representation" do
+      Date.new(2013, 10, 15).to_s.should == "2013-10-15"
+      Date.new(2013, 4, 9).to_s.should == "2013-04-09"
+    end
+  end
+
+  describe "#wday" do
+    it "returns the day of the week" do
+      Date.new(2001, 2, 3).wday.should == 6
+      Date.new(2001, 2, 4).wday.should == 0
+    end
+  end
+
+  describe "#year" do
+    it "returns the year as an integer" do
+      Date.new(2013, 2, 9).year.should == 2013
+    end
+  end
+end

data/spec/opal/core/enumerable/all_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#all?" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].all? { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/any_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#any?" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].any? { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/collect_break_spec.rb

@@ -0,0 +1,13 @@
+describe "Enumerable#collect" do
+  class Test
+    include Enumerable
+
+    def each(&block)
+      [1, 2, 3].each(&block)
+    end
+  end
+
+  it "breaks out with the proper value" do
+    Test.new.collect { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/count_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#count" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].count { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/detect_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#detect" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].detect { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/drop_while_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#drop_while" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].drop_while { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/each_slice_break.rb

@@ -0,0 +1,6 @@
+describe "Enumerable#each_slice" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].each_slice(1) { break 42 }.should == 42
+    [1, 2, 3].each_slice(2) { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/each_with_index_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#each_with_index" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].each_with_index { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/each_with_object_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#each_with_object" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].each_with_object(23) { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/find_all_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#find_all" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].find_all { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/find_index_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#find_index" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].find_index { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/grep_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#grep" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].grep(1) { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/max_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#max" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].max { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/max_by_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#max_by" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].max_by { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/min_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#min" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].min { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/min_by_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#min_by" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].min_by { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/none_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#none?" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].none? { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/one_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#one?" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].one? { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/reduce_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#reduce" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].reduce { break 42 }.should == 42
+  end
+end

data/spec/opal/core/enumerable/take_while_break_spec.rb

@@ -0,0 +1,5 @@
+describe "Enumerable#take_while" do
+  it "breaks out with the proper value" do
+    [1, 2, 3].take_while { break 42 }.should == 42
+  end
+end

data/spec/opal/core/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