rsel 0.1.1 → 0.1.2

data/spec/st_temporal_visibility_spec.rb

@@ -0,0 +1,122 @@
+require 'spec/st_spec_helper'
+
+describe 'temporal visibility' do
+  describe "#see_within_seconds" do
+    before(:each) do
+      @st.visit("/slowtext").should be_true
+    end
+
+    context "passes when" do
+      it "text is already present" do
+        @st.see("Late text page").should be_true
+        @st.see_within_seconds("The text is coming...", 10).should be_true
+      end
+      it "text within an id is already present" do
+        @st.see_within_seconds("The text is coming...", 10, :within => 'oldtext').should be_true
+      end
+      it "text appears in time" do
+        @st.see("The text is coming...").should be_true
+        @st.do_not_see("The text is here!").should be_true
+        @st.see_within_seconds("The text is here!", "10").should be_true
+        @st.see("The text is here!").should be_true
+      end
+      it "text appears in an id in time" do
+        @st.see("The text is coming...").should be_true
+        @st.do_not_see("The text is here!").should be_true
+        @st.see_within_seconds("The text is here!", "10", :within => 'newtext').should be_true
+        @st.see("The text is here!").should be_true
+      end
+      it "text appears within default time" do
+        @st.see("The text is coming...").should be_true
+        @st.do_not_see("The text is here!").should be_true
+        @st.see_within_seconds("The text is here!").should be_true
+        @st.see("The text is here!").should be_true
+      end
+      it "text appears within default time in an id" do
+        @st.see("The text is coming...").should be_true
+        @st.do_not_see("The text is here!").should be_true
+        @st.see_within_seconds("The text is here!", :within => 'newtext').should be_true
+        @st.see("The text is here!").should be_true
+      end
+    end
+
+    context "fails when" do
+      it "text appears too late" do
+        @st.see("The text is coming...").should be_true
+        @st.do_not_see("The text is here!").should be_true
+        @st.see_within_seconds("The text is here!", 1).should be_false
+      end
+      it "text appears too late in an id" do
+        # FIXME: This test occasionally fails for no apparent reason
+        # (the text is found within the timeout)
+        @st.see_within_seconds("The text is here!", 1, :within => 'newtext').should be_false
+      end
+      it "text never appears" do
+        @st.see_within_seconds("Nonexistent", 5).should be_false
+      end
+      it "text never appears in the given id" do
+        @st.see_within_seconds("The text is coming...", 5, :within => 'newtext').should be_false
+      end
+    end
+
+    it "is case-sensitive" do
+      @st.see_within_seconds("The text is here!", 5).should be_true
+      @st.see_within_seconds("The text IS HERE!", 5).should be_false
+    end
+  end
+
+  describe "#do_not_see_within_seconds" do
+    before(:each) do
+      @st.visit("/slowtext").should be_true
+    end
+
+    context "passes when" do
+      it "text is already absent" do
+        @st.see("Late text page").should be_true
+        @st.do_not_see_within_seconds("Some absent text", 10).should be_true
+      end
+      it "text is already absent from the given id" do
+        @st.see("Late text page").should be_true
+        @st.do_not_see_within_seconds("The text is coming...", 10, :within => 'newtext').should be_true
+      end
+      it "text disappears in time" do
+        @st.see_within_seconds("The text is here!", 10).should be_true
+        @st.do_not_see_within_seconds("The text is here!", "10").should be_true
+        @st.do_not_see("The text is here!").should be_true
+      end
+      it "text disappears from the given id in time" do
+        @st.see_within_seconds("The text is here!", 10).should be_true
+        @st.do_not_see_within_seconds("The text is here!", "10", :within => 'newtext').should be_true
+        @st.do_not_see("The text is here!").should be_true
+      end
+      it "text disappears within default time" do
+        @st.see_within_seconds("The text is here!", 10).should be_true
+        @st.do_not_see_within_seconds("The text is here!").should be_true
+        @st.do_not_see("The text is here!").should be_true
+      end
+      it "text disappears within default time from the given id" do
+        @st.see_within_seconds("The text is here!", 10).should be_true
+        @st.do_not_see_within_seconds("The text is here!", :within => 'newtext').should be_true
+        @st.do_not_see("The text is here!").should be_true
+      end
+    end
+
+    context "fails when" do
+      it "text disappears too late" do
+        @st.see_within_seconds("The text is here!", 10).should be_true
+        @st.do_not_see_within_seconds("The text is here!", 1).should be_false
+      end
+      it "text disappears too late from an id" do
+        @st.see_within_seconds("The text is here!", 10).should be_true
+        @st.do_not_see_within_seconds("The text is here!", 1, :within => 'newtext').should be_false
+      end
+      it "text never disappears" do
+        @st.do_not_see_within_seconds("The text is coming...", 5).should be_false
+      end
+      it "text never disappears from an id" do
+        @st.do_not_see_within_seconds("The text is coming...", 3, :within => 'oldtext').should be_false
+      end
+    end
+  end
+
+end

data/spec/st_visibility_spec.rb

@@ -0,0 +1,125 @@
+require 'spec/st_spec_helper'
+
+describe 'visibility' do
+  before(:each) do
+    @st.visit("/").should be_true
+  end
+
+  describe "#see" do
+    context "passes when" do
+      it "text is present" do
+        @st.see("Welcome").should be_true
+        @st.see("This is a Sinatra webapp").should be_true
+      end
+
+      it "sees text within an id" do
+        @st.see("About this site", :within => 'header').should be_true
+      end
+    end
+
+    context "fails when" do
+      it "text is absent" do
+        @st.errors
+        @st.see("Nonexistent").should be_false
+        @st.see("Some bogus text").should be_false
+        @st.errors.should eq('')
+      end
+      it "text is present, but invisible" do
+        @st.errors
+        @st.see("unseen").should be_false
+        @st.errors.should eq('')
+      end
+      it "text is present, but invisible, using studying" do
+        @st.errors
+        @st.begin_study
+        @st.see("unseen").should be_false
+        @st.end_study
+        @st.errors.should eq('')
+      end
+      it "text is present, but not within the scope" do
+        @st.errors
+        @st.see("This is a Sinatra webapp", :within => 'header').should be_false
+        @st.errors.should eq("'This is a Sinatra webapp' not found in 'About this site'")
+      end
+      it "text is present, within scope, but invisible" do
+        @st.errors
+        @st.see("unseen", :within => 'header').should be_false
+        @st.errors.should eq("'unseen' not found in 'About this site'")
+      end
+      it "text is present, studied within scope, but invisible" do
+        @st.errors
+        @st.begin_study
+        @st.see("unseen", :within => 'header').should be_false
+        @st.end_study
+        @st.errors.should eq("'unseen' not found in 'About this site'")
+      end
+      it "scope is not present" do
+        @st.see("This is a Sinatra webapp", :within => 'bogus_id').should be_false
+      end
+    end
+
+    it "is case-sensitive" do
+      @st.see("Sinatra webapp").should be_true
+      @st.see("sinatra Webapp").should be_false
+    end
+  end
+
+  describe "#do_not_see" do
+    context "passes when" do
+      it "text is absent" do
+        @st.do_not_see("Nonexistent").should be_true
+        @st.do_not_see("Some bogus text").should be_true
+      end
+      it "text is present, but invisible" do
+        @st.errors
+        @st.do_not_see("unseen").should be_true
+        @st.errors.should eq('')
+      end
+      it "text is present, but invisible, using studying" do
+        @st.errors
+        @st.begin_study
+        @st.do_not_see("unseen").should be_true
+        @st.end_study
+        @st.errors.should eq('')
+      end
+      it "text is present, but not within the scope" do
+        @st.do_not_see("This is a Sinatra webapp", :within => 'header').should be_true
+      end
+      it "text is present, within scope, but invisible" do
+        @st.errors
+        @st.do_not_see("unseen", :within => 'header').should be_true
+        @st.errors.should eq('')
+      end
+      it "text is present, studied within scope, but invisible" do
+        @st.errors
+        @st.begin_study
+        @st.do_not_see("unseen", :within => 'header').should be_true
+        @st.end_study
+        @st.errors.should eq('')
+      end
+      it "scope is not present" do
+        @st.do_not_see("This is a Sinatra webapp", :within => 'bogus_id').should be_true
+      end
+    end
+
+    context "fails when" do
+      it "text is present" do
+        @st.errors
+        @st.do_not_see("Welcome").should be_false
+        @st.do_not_see("This is a Sinatra webapp").should be_false
+        @st.errors.should eq('')
+      end
+      it "sees text within an id" do
+        @st.errors
+        @st.do_not_see("About this site", :within => 'header').should be_false
+        @st.errors.should eq("'About this site' not expected, but found in 'About this site'")
+      end
+    end
+
+    it "is case-sensitive" do
+      @st.do_not_see("Sinatra webapp").should be_false
+      @st.do_not_see("sinatra Webapp").should be_true
+    end
+  end
+
+end

data/spec/st_waiting_spec.rb

@@ -0,0 +1,37 @@
+require 'spec/st_spec_helper'
+
+describe 'waiting' do
+  before(:each) do
+    @st.visit("/").should be_true
+  end
+
+  describe "#page_loads_in_seconds_or_less" do
+    context "passes when" do
+      it "page is already loaded" do
+        @st.click_link("About this site").should be_true
+        sleep 1
+        @st.page_loads_in_seconds_or_less(10).should be_true
+      end
+      it "page loads before the timeout" do
+        @st.click_link("Slow page").should be_true
+        @st.page_loads_in_seconds_or_less(10).should be_true
+        @st.see("This page takes a few seconds to load").should be_true
+      end
+    end
+
+    context "fails when" do
+      it "slow page does not load before the timeout" do
+        @st.click_link("Slow page").should be_true
+        @st.page_loads_in_seconds_or_less(1).should be_false
+      end
+    end
+  end
+
+  describe "#pause_seconds" do
+    it "returns true" do
+      @st.pause_seconds(0).should == true
+      @st.pause_seconds(1).should == true
+    end
+  end
+end
+

data/spec/study_html_spec.rb

@@ -0,0 +1,310 @@
+require 'spec/spec_helper'
+
+require 'rsel/support'
+require 'rsel/study_html'
+
+describe Rsel::StudyHtml do
+  before(:all) do
+    @study = Rsel::StudyHtml.new
+  end
+
+  describe "#initialize" do
+    it "succeeds when reading html" do
+      @study = Rsel::StudyHtml.new(IO.read('test/views/form.erb'))
+      @study.clean?.should be_true
+      @study.keeping_clean?.should be_false
+      @study.get_node('xpath=/html/head/title').inner_text.should eq('Rsel Test Forms')
+    end
+
+    it "fails when reading non-html" do
+      lambda do
+        @study = Rsel::StudyHtml.new(42)
+      end.should raise_error
+
+      @study.clean?.should be_false
+      @study.keeping_clean?.should be_false
+      @study.get_node('xpath=/html/head/title').should eq(nil)
+    end
+  end
+  
+  describe "#study" do
+    it "succeeds when reading html" do
+      @study.study(IO.read('test/views/form.erb'), true)
+      @study.clean?.should be_true
+      @study.keeping_clean?.should be_true
+      @study.get_node('xpath=/html/head/title').inner_text.should eq('Rsel Test Forms')
+    end
+
+    it "fails when reading non-html" do
+      lambda do
+        @study.study(42, true)
+      end.should raise_error
+
+      @study.clean?.should be_false
+      @study.keeping_clean?.should be_false
+      @study.get_node('xpath=/html/head/title').should eq(nil)
+    end
+  end
+
+  describe "#dirty" do
+    before(:all) do
+      @study.study(IO.read('test/views/form.erb'))
+    end
+    
+    it "dirties a page" do
+      @study.clean?.should be_true
+      @study.dirty
+      @study.clean?.should be_false
+    end
+  end
+  describe "#undo_last_dirty" do
+    before(:all) do
+      @study.study(IO.read('test/views/form.erb'))
+    end
+    
+    it "undirties a page dirtied once" do
+      @study.clean?.should be_true
+      @study.dirty
+      @study.clean?.should be_false
+      @study.undo_last_dirty
+      @study.clean?.should be_true
+    end
+
+    it "does not undirty a page dirtied twice" do
+      @study.clean?.should be_true
+      @study.dirty
+      @study.dirty
+      @study.clean?.should be_false
+      @study.undo_last_dirty
+      @study.clean?.should be_false
+    end
+
+    it "does not undirty a page whose load failed" do
+      lambda do
+        @study.study(42)
+      end.should raise_error
+
+      @study.undo_last_dirty
+      @study.clean?.should be_false
+    end
+  end
+
+  describe "#undo_all_dirties" do
+    before(:all) do
+      @study.study(IO.read('test/views/form.erb'))
+    end
+    
+    it "undirties a page dirtied once" do
+      @study.clean?.should be_true
+      @study.dirty
+      @study.clean?.should be_false
+      @study.undo_all_dirties
+      @study.clean?.should be_true
+    end
+
+    it "undirties a page dirtied twice" do
+      @study.clean?.should be_true
+      @study.dirty
+      @study.dirty
+      @study.clean?.should be_false
+      @study.undo_all_dirties.should be_true
+      @study.clean?.should be_true
+    end
+
+    it "does not undirty a page whose load failed" do
+      lambda do
+        @study.study(42)
+      end.should raise_error
+
+      @study.undo_all_dirties.should be_false
+      @study.clean?.should be_false
+    end
+  end
+  
+  describe "#keep_clean" do
+    it "prevents dirty from working when used in study" do
+      @study.study(IO.read('test/views/form.erb'), true)
+      @study.clean?.should be_true
+      @study.dirty
+      @study.clean?.should be_true
+    end
+    it "prevents dirty from working when used after study" do
+      @study.study(IO.read('test/views/form.erb'))
+      @study.clean?.should be_true
+      @study.dirty
+      @study.clean?.should be_false
+      @study.keep_clean(true)
+      @study.clean?.should be_true
+      @study.dirty
+      @study.clean?.should be_true
+    end
+    it "stops working when turned off" do
+      @study.study(IO.read('test/views/form.erb'), true)
+      @study.keeping_clean?.should be_true
+      @study.keep_clean(false)
+      @study.keeping_clean?.should be_false
+      @study.clean?.should be_false
+      @study.undo_all_dirties.should be_true
+      @study.clean?.should be_true
+    end
+  end
+  
+  describe "#begin_section" do
+    it "studies a new page" do
+      lambda do
+        @study = Rsel::StudyHtml.new(42)
+      end.should raise_error
+
+      @study.dirty
+      @study.begin_section {IO.read('test/views/form.erb')}
+      @study.get_node('xpath=/html/head/title').inner_text.should eq('Rsel Test Forms')
+      @study.end_section
+      @study.get_node('xpath=/html/head/title').should eq(nil)
+    end
+    it "continues with an old, studied page" do
+      @study.study(IO.read('test/views/form.erb'))
+      @study.begin_section {42}
+      @study.get_node('xpath=/html/head/title').inner_text.should eq('Rsel Test Forms')
+      @study.end_section
+      @study.clean?.should be_false
+    end
+    it "maintains studying after a new section" do
+      @study.study(IO.read('test/views/form.erb'), true)
+      @study.begin_section {42}
+      @study.get_node('xpath=/html/head/title').inner_text.should eq('Rsel Test Forms')
+      @study.end_section
+      @study.clean?.should be_true
+      @study.get_node('xpath=/html/head/title').inner_text.should eq('Rsel Test Forms')
+    end
+  end
+  
+  describe "#end_section" do
+    it "works like keep_clean(false) if it runs out of stack parameters" do
+      @study.study(IO.read('test/views/form.erb'), true)
+      @study.keeping_clean?.should be_true
+      @study.end_section
+      @study.keeping_clean?.should be_false
+      @study.clean?.should be_false
+      @study.undo_all_dirties.should be_true
+      @study.clean?.should be_true
+    end
+  end
+
+  describe "#simplify_locator" do
+    before(:all) do
+      @study.study(IO.read('test/views/form.erb'))
+    end
+
+    context "does not simplify" do
+      it "an id" do
+        @study.simplify_locator('id=first_name').should eq('id=first_name')
+      end
+      it "a name" do
+        @study.simplify_locator('name=second_duplicate').should eq('name=second_duplicate')
+      end
+      it "a link" do
+        @study.simplify_locator('link=second duplicate').should eq('link=second duplicate')
+      end
+      it "a dom path" do
+        @study.simplify_locator('dom=document.links[42]').should eq('dom=document.links[42]')
+        @study.simplify_locator('document.links[42]').should eq('document.links[42]')
+      end
+      it "an element only accessible by xpath or css from css" do
+        @study.simplify_locator('#spouse_form button').should eq('#spouse_form button')
+      end
+      it "an element only accessible by xpath or css from xpath if ordered not to" do
+        @study.simplify_locator('//button[@value=\'submit_spouse_form\']', false).should eq('xpath=//button[@value=\'submit_spouse_form\']')
+      end
+    end
+
+    context "simplifies" do
+      it "a control to an id" do
+        my_xpath = @study.loc('First name', 'field')
+        @study.simplify_locator(my_xpath).should eq('id=first_name')
+      end
+      it "a css path to an id" do
+        @study.simplify_locator('css=#first_name').should eq('id=first_name')
+      end
+      it "an xpath to a name" do
+        my_xpath = @study.loc('duplicate', 'field', :within => 'other_form')
+        @study.simplify_locator(my_xpath).should eq('name=second_duplicate')
+      end
+      it "a css path to a name" do
+        @study.simplify_locator('css=#other_form #duplicate').should eq('name=second_duplicate')
+      end
+      it "an xpath to a link" do
+        my_xpath = @study.loc('Home', 'link')
+        @study.simplify_locator(my_xpath).should eq('link=Home')
+      end
+      it "a css path to a link" do
+        @study.simplify_locator('css=a').should eq('link=Home')
+      end
+      it "an element only accessible by xpath or css from an xpath" do
+        my_xpath = @study.loc('Submit spouse form', 'button')
+        @study.simplify_locator(my_xpath).should eq('xpath=/html/body/div[2]/form/p[4]/button')
+        @study.simplify_locator('//button[@value=\'submit_spouse_form\']').should eq('xpath=/html/body/div[2]/form/p[4]/button')
+      end
+      # TODO: Simplify an xpath to a css.
+    end
+  end
+  describe "#get_node" do
+    before(:all) do
+      @study.study(IO.read('test/views/form.erb'), true)
+    end
+
+    context "passes when" do
+      it "finds an id" do
+        @study.get_node('id=person_height').inner_text.should include('Average')
+      end
+      it "finds a name" do
+        @study.get_node('name=underwear briefs')['value'].should eq('briefs')
+      end
+      it "finds a link" do
+        @study.get_node('link=Home')['href'].should eq('/')
+      end
+      it "finds an element by css" do
+        @study.get_node('css=#other_form #duplicate')['name'].should eq('second_duplicate')
+      end
+      it "finds an element by xpath" do
+        my_xpath = @study.loc('duplicate', 'field', :within => 'other_form')
+        @study.get_node(my_xpath)['name'].should eq('second_duplicate')
+      end
+      it "finds an element by implied xpath" do
+        @study.get_node("//*[@name='underwear']")['value'].should eq('boxers')
+      end
+      it "finds an element by default" do
+        @study.get_node("underwear")['value'].should eq('boxers')
+      end
+    end
+
+    context "fails when" do
+      it "does not find an id" do
+        @study.get_node('id=impersonated').should eq(nil)
+      end
+      it "does not find a name" do
+        @study.get_node('name=impersonated').should eq(nil)
+      end
+      it "does not find a link" do
+        @study.get_node('link=impersonated').should eq(nil)
+      end
+      it "does not find an element by css" do
+        @study.get_node('css=#impersonated').should eq(nil)
+      end
+      it "does not find an element by xpath" do
+        @study.get_node('xpath=//impersonated').should eq(nil)
+      end
+      it "does not find an element by implied xpath" do
+        @study.get_node('//impersonated').should eq(nil)
+      end
+      it "does not find an element by default" do
+        @study.get_node('impersonated').should eq(nil)
+      end
+      it "is given a dom path" do
+        @study.get_node('dom=document.links[0]').should eq(nil)
+      end
+      it "is given an implied dom path" do
+        @study.get_node('document.links[0]').should eq(nil)
+      end
+    end
+  end
+end