opal-browser 0.1.0.beta1

data/opal/browser/window/view.rb

@@ -0,0 +1,18 @@
+module Browser; class Window
+
+class View
+  def initialize(window)
+    @window = window
+    @native = window.to_n
+  end
+
+  def width
+    `#@native.innerWidth`
+  end
+
+  def height
+    `#@native.innerHeight`
+  end
+end
+
+end; end

data/spec/dom/builder_spec.rb

@@ -0,0 +1,69 @@
+require 'spec_helper'
+
+describe Browser::DOM::Builder do
+  it 'builds an element' do
+    DOM {
+      div
+    }.name.should == 'DIV'
+  end
+
+  it 'builds an element with text content' do
+    DOM {
+      div "foo bar"
+    }.text.should == "foo bar"
+
+    DOM {
+      div {
+        "foo bar"
+      }
+    }.text.should == "foo bar"
+  end
+
+  it 'builds an element with attributes' do
+    DOM {
+      div class: :wut
+    }.class_name.should == :wut
+  end
+
+  it 'builds deeper trees' do
+    res = DOM {
+      div {
+        span {
+          "wut"
+        }
+      }
+    }
+
+    res.name.should == 'DIV'
+    res.child.name.should == 'SPAN'
+    res.child.text.should == 'wut'
+  end
+
+  it 'sets classes with methods' do
+    DOM {
+      div.nice.element
+    }.class_names.should == %w[nice element]
+  end
+
+  it 'nests when setting classes' do
+    res = DOM {
+      div.nice.element {
+        span.nicer 'lol'
+      }
+    }
+
+    res.name.should == 'DIV'
+    res.class_names.should == %w[nice element]
+    res.child.name.should == 'SPAN'
+    res.child.class_names.should == %w[nicer]
+  end
+
+  it 'joins class name properly' do
+    res = DOM {
+      i.icon[:legal]
+    }
+
+    res.name.should == 'I'
+    res.class_names.should == %w[icon-legal]
+  end
+end

data/spec/dom/document_spec.rb

@@ -0,0 +1,40 @@
+require 'spec_helper'
+
+describe Browser::DOM::Document do
+  describe '#title' do
+    it 'should get the document title' do
+      $document.title.should be_kind_of(String)
+    end
+  end
+
+  describe '#title=' do
+    it 'should set the document title' do
+      old = $document.title
+      $document.title = 'lol'
+      $document.title.should == 'lol'
+      $document.title = old
+    end
+  end
+
+  describe "#[]" do
+    html <<-HTML
+      <div id="lol"></div>
+    HTML
+
+    it "should get element by id" do
+      $document["lol"].should == `#{$document.to_n}.getElementById('lol')`
+    end
+
+    it "should get element by css" do
+      $document["lol"].should == `#{$document.to_n}.getElementById('lol')`
+    end
+
+    it "should get element by xpath" do
+      $document["//*[@id='lol']"].should == `#{$document.to_n}.getElementById('lol')`
+    end
+
+    it "should return nil if it can't find anything" do
+      $document["doo-dah"].should be_nil
+    end
+  end
+end

data/spec/dom/element_spec.rb

@@ -0,0 +1,46 @@
+require 'spec_helper'
+
+describe Browser::DOM::Element do
+  describe '#id' do
+    html <<-HTML
+      <div id="lol"></div>
+    HTML
+
+    it 'gets the proper id' do
+      $document["lol"].id.should == 'lol'
+    end
+  end
+
+  describe '#class_names' do
+    html <<-HTML
+      <div id="class-names">
+        <div id="class-names-1" class="a b c"></div>
+        <div id="class-names-2" class=""></div>
+      </div>
+    HTML
+
+    it 'gives an empty array when no class is set' do
+      $document["class-names-2"].class_names.should == []
+    end
+
+    it 'gives an array of class names' do
+      $document["class-names-1"].class_names.should == %w[a b c]
+    end
+  end
+
+  describe '#matches?' do
+    html <<-HTML
+      <div id="matches" class="not me">
+        <span class="yes me"></span>
+      </div>
+    HTML
+
+    it 'matches on class and id' do
+      $document[:matches].matches?('#matches.not.me').should be_truthy
+    end
+
+    it 'matches on class and name' do
+      $document[:matches].first_element_child.matches?('span.yes').should be_truthy
+    end
+  end
+end

data/spec/dom/event_spec.rb

@@ -0,0 +1,127 @@
+require 'spec_helper'
+
+describe Browser::DOM::Event do
+  html <<-HTML
+    <div id="event-spec">
+      u wot m8
+    </div>
+  HTML
+
+  describe "#on" do
+    it "properly registers an event" do
+      count = 0
+      elem  = $document["event-spec"]
+
+      elem.on :click do |event|
+        count += 1
+      end
+
+      count.should == 0
+      elem.trigger :click
+      count.should == 1
+      elem.trigger :click
+      count.should == 2
+      elem.trigger 'mouse:down'
+      count.should == 2
+    end
+
+    it "listens for custom events" do
+      count = 0
+      elem  = $document["event-spec"]
+
+      elem.on :huehue do
+        count += 1
+      end
+
+      count.should == 0
+      elem.trigger :huehue
+      count.should == 1
+      elem.trigger :huehue
+      count.should == 2
+    end
+
+    async "passes an event to the handler" do
+      elem = $document["event-spec"]
+
+      elem.on :click do |event|
+        run_async {
+          event.should be_kind_of Browser::DOM::Event
+        }
+      end
+
+      elem.trigger :click
+    end
+
+    async "passes additional arguments to the handler" do
+      elem = $document["event-spec"]
+
+      elem.on :bazinga do |event, foo, bar, baz|
+        run_async {
+          foo.should == 1
+          bar.should == 2
+          baz.should == 3
+        }
+      end
+
+      elem.trigger :bazinga, 1, 2, 3
+    end
+
+    async "works with deferred elements" do
+      elem = $document["event-spec"]
+
+      elem.on :bazinga, 'span.nami' do
+        run_async {
+          true.should be_truthy
+        }
+      end
+
+      elem.add_child DOM { span.nami }
+
+      after 0.01 do
+        elem.first_element_child.trigger :bazinga
+      end
+    end
+  end
+
+  describe "#off" do
+    it "removes all the handlers that were added" do
+      count = 0
+      elem  = $document["event-spec"]
+
+      elem.on :click do
+        count += 1
+      end
+
+      elem.on :click do
+        count += 1
+      end
+
+      elem.trigger :click
+      count.should == 2
+
+      elem.off :click
+      elem.trigger :click
+      count.should == 2
+    end
+
+    it "removes only the passed handler" do
+      count = 0
+      elem  = $document["event-spec"]
+
+      cb = elem.on :click do
+        count += 1
+      end
+
+      elem.on :click do
+        count += 1
+      end
+
+      elem.trigger :click
+      count.should == 2
+
+      cb.off
+      elem.trigger :click
+      count.should == 3
+    end
+  end
+end

data/spec/dom/mutation_observer_spec.rb

@@ -0,0 +1,37 @@
+require 'spec_helper'
+
+describe Browser::DOM::MutationObserver do
+  html <<-HTML
+    <div id="mutate">
+      <span></span>
+    </div>
+  HTML
+
+  async 'notifies additions' do
+    obs = Browser::DOM::MutationObserver.new {|mutations|
+      run_async {
+        mutations.first.added.first.name.should == 'DIV'
+      }
+
+      obs.disconnect
+    }
+
+    obs.observe $document[:mutate]
+
+    $document[:mutate].add_child $document.create_element('div')
+  end
+
+  async 'notifies removals' do
+    obs = Browser::DOM::MutationObserver.new {|mutations|
+      run_async {
+        mutations.first.removed.first.name.should == 'SPAN'
+      }
+
+      obs.disconnect
+    }
+
+    obs.observe $document[:mutate]
+
+    $document[:mutate].first_element_child.remove
+  end
+end

data/spec/dom/node_spec.rb

@@ -0,0 +1,154 @@
+require 'spec_helper'
+
+describe Browser::DOM::Node do
+  describe "#==" do
+    html '<div id="lol"></div>'
+
+    it 'should work when the other argument is the native counterpart' do
+      $document["lol"].should == `document.getElementById("lol")`
+    end
+
+    it 'should work when the other argument is the same DOM::Node' do
+      el = $document["lol"]
+      el.should == el
+    end
+
+    it 'should work when the other argument is another DOM::Node' do
+      $document["lol"].should == $document["lol"]
+    end
+  end
+
+  describe "#document?" do
+    it "should be true for document" do
+      $document.document?.should be_truthy
+    end
+  end
+
+  describe "#element?" do
+    html '<div id="lol"></div>'
+
+    it "should be true for <div id='lol'>" do
+      $document["#lol"].element?.should be_truthy
+    end
+  end
+
+  describe "#text?" do
+    html '<div id="omg">lol</div>'
+
+    it "should be true for the first child of <div id='lol'>" do
+      $document["#omg"].child.text?.should be_truthy
+    end
+  end
+
+  describe "#ancestors" do
+    html <<-HTML
+      <div><span><strong><em id="incest"></em></strong></span></div>
+    HTML
+
+    it 'should get all ancestors' do
+      ancestors = $document["incest"].ancestors
+
+      ancestors[0].name.should == 'STRONG'
+      ancestors[1].name.should == 'SPAN'
+      ancestors[2].name.should == 'DIV'
+    end
+
+    it 'should get only the selected ancestors' do
+      $document["incest"].ancestors('strong').length.should == 1
+    end
+  end
+
+  describe '#child' do
+    html <<-HTML
+      <div id="test-1"><div id="test-2"></div></div>
+    HTML
+
+    it 'gets the first child properly' do
+      $document["test-1"].child.id.should == "test-2"
+    end
+
+    it 'returns nil if there is no child' do
+      $document["test-2"].child.should be_nil
+    end
+  end
+
+  describe '#next' do
+    html <<-HTML
+      <div id="spec-1"></div>
+      <div id="spec-2"></div>
+      <div id="spec-3"></div>
+    HTML
+
+    it 'should return the next sibling' do
+      $document["spec-1"].next.text?.should be_truthy
+      $document["spec-1"].next.next.id.should == 'spec-2'
+    end
+
+    it 'should return nil when there is no next sibling' do
+      $document["spec-3"].next.text?.should be_truthy
+      $document["spec-3"].next.next.should be_nil
+    end
+  end
+
+  describe '#next_element' do
+    html <<-HTML
+      <div id="spec-1"></div>
+      <div id="spec-2"></div>
+      <div id="spec-3"></div>
+    HTML
+
+    it 'should return the next element sibling' do
+      $document["spec-1"].next_element.id.should == 'spec-2'
+      $document["spec-2"].next_element.id.should == 'spec-3'
+    end
+
+    it 'should return nil when there is no next element sibling' do
+      $document["spec-3"].next_element.should be_nil
+    end
+  end
+
+  describe '#previous' do
+    html <<-HTML
+      <div id="spec-1"></div>
+      <div id="spec-2"></div>
+      <div id="spec-3"></div>
+    HTML
+
+    it 'should return the previous sibling' do
+      $document["spec-2"].previous.text?.should be_truthy
+      $document["spec-2"].previous.previous.id.should == 'spec-1'
+    end
+
+    it 'should return nil when there is no previous sibling' do
+      $document["spec-1"].previous.text?.should be_truthy
+      $document["spec-1"].previous.previous.should be_nil
+    end
+  end
+
+  describe '#previous_element' do
+    html <<-HTML
+      <div id="spec-1"></div>
+      <div id="spec-2"></div>
+      <div id="spec-3"></div>
+    HTML
+
+    it 'should return the previous element sibling' do
+      $document["spec-2"].previous_element.id.should == 'spec-1'
+      $document["spec-3"].previous_element.id.should == 'spec-2'
+    end
+
+    it 'should return nil when there is no previous element sibling' do
+      $document["spec-1"].previous_element.should be_nil
+    end
+  end
+
+  describe '#inner_text' do
+    html <<-HTML
+      <div id="inner"><span>I like trains.</span> <span>And turtles.</span></div>
+    HTML
+
+    it 'should get the whole text for elements' do
+      $document["inner"].inner_text.should == "I like trains. And turtles."
+    end
+  end
+end