watir 1.4.1 → 1.5.2

data/unittests/core_tests.rb

@@ -1,9 +1,13 @@
+# these are the tests that run reliably and invisibly
+
 TOPDIR = File.join(File.dirname(__FILE__), '..')
 $LOAD_PATH.unshift TOPDIR
 
+require 'watir'
+
+$HIDE_IE = true
+
 require 'unittests/setup.rb'
 
 Dir.chdir TOPDIR
 $core_tests.each {|x| require x}
-
-

data/unittests/css_test.rb

@@ -1,60 +1,60 @@
 # feature tests for css
-# revision: $Revision: 1.14.4.1 $
+# revision: $Revision: 962 $
 
 $LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
 require 'unittests/setup'
 
 class TC_CSS < Test::Unit::TestCase
-    include Watir
-
-    def divTester( message )
-
-       divs = $ie.getIE.document.getElementsByTagName("DIV")
-       puts "Found #{divs.length} div tags"
-       divs.each do |d|
-           puts "Checking div #{d.id}"
-           puts "div #{d.invoke("id") } class is #{d.invoke("className")  	}"
-       end
-    end
-
-    def isMessageDisplayed(message)
-
-       s = false
-       divs = $ie.getIE.document.getElementsByTagName("DIV")
-       #puts "Found #{divs.length} div tags"
-       divs.each do |d|
-           #puts "----Checking div #{d.id} innertext is ( #{d.innerText}  )"
-          
-           if d.innerText.to_s.downcase.match( /#{message}/i )
-
-               #puts "div #{d.invoke("id") } class is #{d.invoke("className")  	}"
-               if d.invoke("className").to_s.downcase.match(/show/i)
-                   #puts "message is shown!!!"
-                   s = true
-               end
-
-           end
-       end
-
-       #puts "Not Shown " if s== false
-       return s
-    end
-
-    def gotoCSSPage()
-        $ie.goto($htmlRoot + "cssTest.html")
+  include Watir
+  
+  def divTester( message )
+    
+    divs = $ie.getIE.document.getElementsByTagName("DIV")
+    puts "Found #{divs.length} div tags"
+    divs.each do |d|
+      puts "Checking div #{d.id}"
+      puts "div #{d.invoke("id") } class is #{d.invoke("className")  	}"
     end
-
-    def test_SuccessMessage
-        gotoCSSPage()
-        $ie.button( :caption , "Success").click
-
-        #isMessageDisplayed( "Success" )
-        #divTester( "Success" )
-        assert( isMessageDisplayed("Success") )
-
-        $ie.button( :caption , "Failure").click
-
-        assert_false(isMessageDisplayed("Success") )
+  end
+  
+  def isMessageDisplayed(message)
+    
+    s = false
+    divs = $ie.getIE.document.getElementsByTagName("DIV")
+    #puts "Found #{divs.length} div tags"
+    divs.each do |d|
+      #puts "----Checking div #{d.id} innertext is ( #{d.innerText}  )"
+      
+      if d.innerText.to_s.downcase.match( /#{message}/i )
+        
+        #puts "div #{d.invoke("id") } class is #{d.invoke("className")  	}"
+        if d.invoke("className").to_s.downcase.match(/show/i)
+          #puts "message is shown!!!"
+          s = true
+        end
+        
+      end
     end
+    
+    #puts "Not Shown " if s== false
+    return s
+  end
+  
+  def gotoCSSPage
+    $ie.goto($htmlRoot + "cssTest.html")
+  end
+  
+  def test_SuccessMessage
+    gotoCSSPage
+    $ie.button( :caption , "Success").click
+    
+    #isMessageDisplayed( "Success" )
+    #divTester( "Success" )
+    assert( isMessageDisplayed("Success") )
+    
+    $ie.button( :caption , "Failure").click
+    
+    assert(!isMessageDisplayed("Success") )
+  end
 end
 

data/unittests/defer_test.rb

@@ -0,0 +1,47 @@
+# tests of deferring when a Watir object is bound to a com object (lazy evaluation)
+
+# revision: $Revision: 962 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+require 'unittests/buttons_test.rb'
+
+class TC_Defer < Test::Unit::TestCase
+  def teardown
+    @ie_new.close if defined?(@ie_new)
+    $ie.goto('about:blank')
+  end
+  def test_binding_to_newly_loaded_page
+    @ie_new = Watir::IE.new
+    text_field = @ie_new.text_field(:name, 'text1')
+    button = @ie_new.button(:value, 'Clear Events Box')
+    div = @ie_new.div(:name, 'divvy')
+    @ie_new.goto($htmlRoot + "textfields1.html")
+    assert_equal('Hello World', text_field.value)
+    assert_equal('Clear Events Box', button.value)
+    assert_equal('Div Text', div.text)
+  end
+  def test_binding_to_refreshed_page
+    $ie.goto($htmlRoot + "textfields1.html")
+    text_field = $ie.text_field(:name, 'text1')
+    button = $ie.button(:value, 'Clear Events Box')
+    div = $ie.div(:name, 'divvy')
+    $ie.refresh
+    assert_equal('Hello World', text_field.value)
+    assert(text_field.enabled?)
+    assert_equal('Clear Events Box', button.value)
+    assert_equal('Div Text', div.text)
+  end
+  def test_exists
+    @ie_new = Watir::IE.new
+    text_field = @ie_new.text_field(:name, 'text1')
+    button = @ie_new.button(:value, 'Clear Events Box')
+    div = @ie_new.div(:name, 'divvy')
+    assert(!text_field.exists?)
+    assert(!button.exists?)
+    @ie_new.goto($htmlRoot + "textfields1.html")
+    assert(text_field.exists?)
+    assert(button.exists?)
+    assert(div.exists?)
+  end
+end

data/unittests/dialog_test.rb

@@ -0,0 +1,78 @@
+# Feature tests for Dialog class
+# revision: $Revision: 1156 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+require 'watir/dialog'
+
+class TC_Dialog_Test < Test::Unit::TestCase
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot  + 'JavascriptClick.html')
+  end    
+  def teardown
+    begin 
+      sleep 0.4 # XXX 
+      dialog.button('OK').click
+    rescue
+    end
+  end
+  
+  def test_alert_without_bonus_script
+    $ie.button(:id, 'btnAlert').click_no_wait
+    sleep 0.4 # FIXME: need to be able to poll for window to exist
+    dialog.button("OK").click
+    assert_match(/Alert button!/, $ie.text_field(:id, "testResult").value)  
+  end
+  
+  def test_button_name_not_found
+    $ie.button(:id, 'btnAlert').click_no_wait
+    sleep 0.4 # FIXME replace with dialog.exists?
+    assert_raises(UnknownObjectException) { dialog.button("Yes").click }
+    dialog.button("OK").click
+  end
+  
+  def xtest_exists
+    autoit = WIN32OLE.new('AutoItX3.Control')
+    assert(! dialog.exists?) # known bug: finds main window instead of dialog!
+    $ie.button(:id, 'btnAlert').click_no_wait
+    sleep 0.4 # FIXME: need to add polling
+    assert dialog.exists?
+    dialog.button('OK').click
+  end
+  
+  def test_leaves_dialog_open
+    # should be closed in teardown
+    $ie.button(:id, 'btnAlert').click_no_wait
+  end
+  
+  def test_copy_array_elements
+    a = ['a', 'b', 'c']
+    copy = Array.new(a)
+    c = []        
+    code = _code_that_copies_readonly_array(a, "c")
+    eval code
+    assert_equal copy, c
+  end
+  
+  def test_confirm_ok
+    $ie.button(:value, 'confirm').click_no_wait
+    assert dialog.exists?
+    dialog.button('OK').click
+    assert_equal "You pressed the Confirm and OK button!", $ie.text_field(:id, 'testResult').value
+  end
+  
+  def xtest_confirm_cancel
+    $ie.button(:value, 'confirm').click_no_wait
+    assert dialog.exists?
+    dialog.button('Cancel').click
+    assert_equal "You pressed the Confirm and Cancel button!", $ie.text_field(:id, 'testResult').value
+  end
+  
+  def test_dialog_close
+    dialog.close
+    assert !dialog.exists? 
+  end
+  
+end

data/unittests/div2_xpath_test.rb

@@ -0,0 +1,22 @@
+# defect reproduction
+# revision: $Revision: 958 $
+
+$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
+require 'unittests/setup'
+
+class TC_Divs_XPath2 < Test::Unit::TestCase
+  def setup
+    $ie.goto($htmlRoot + "list_matters.html")
+  end
+  def test_div_with_text
+    # Note: this test fails, probably because of bad html to xml translation.
+    # However... the same xpath expression finds the right object in Selenium!
+    assert_equal('Add', $ie.div(:xpath, "//div[text()='Add' and @class='ButtonText']").text)
+  end
+    def test_div_with_contains
+    # Note: this test fails, probably because of bad html to xml translation.
+    # However... the same xpath expression finds the right object in Selenium!
+    assert_equal('Add', $ie.div(:xpath, "//div[contains(.,'Add') and @class='ButtonText']").text)
+  end
+  
+end

data/unittests/div_test.rb

@@ -1,179 +1,179 @@
 # feature tests for Divs, Spans and P's
-# revision: $Revision: 1.15 $
+# revision: $Revision: 1086 $
 
 $LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
 require 'unittests/setup'
 
 class TC_Divs < Test::Unit::TestCase
-    include Watir
+  include Watir
+  
+  def setup
+    $ie.goto($htmlRoot + "div.html")
+  end
+  
+  def test_divs
+    assert_raises(UnknownObjectException) {$ie.div(:id , "div77").click }
+    assert_raises(UnknownObjectException) {$ie.div(:title , "div77").click }
     
-    def setup()
-        $ie.goto($htmlRoot + "div.html")
-    end
+    assert($ie.text_field(:name, "text1").verify_contains("0") )  
+    $ie.div(:id , "div3").click
+    assert($ie.text_field(:name, "text1").verify_contains("1") )  
+    $ie.div(:id , "div4").click
+    assert($ie.text_field(:name, "text1").verify_contains("0") )  
+  end
+  
+  def test_div_properties
+    assert_raises(UnknownObjectException) {$ie.div(:id , "div77").text }
+    assert_raises(UnknownObjectException) {$ie.div(:title , "div77").text }
     
-    def test_divs
-        assert_raises(UnknownObjectException) {$ie.div(:id , "div77").click }
-        assert_raises(UnknownObjectException) {$ie.div(:title , "div77").click }
-        
-        assert($ie.text_field(:name, "text1").verify_contains("0") )  
-        $ie.div(:id , "div3").click
-        assert($ie.text_field(:name, "text1").verify_contains("1") )  
-        $ie.div(:id , "div4").click
-        assert($ie.text_field(:name, "text1").verify_contains("0") )  
-    end
+    assert_equal("This div has an onClick that increments text1", 
+    $ie.div(:id , "div3").text.strip )
+    assert_equal("This text is in a div with an id of div1 and title of test1",   
+    $ie.div(:title , "Test1").text.strip )
     
-    def test_div_properties
-        assert_raises(UnknownObjectException) {$ie.div(:id , "div77").text }
-        assert_raises(UnknownObjectException) {$ie.div(:title , "div77").text }
-        
-        assert_equal("This div has an onClick that increments text1", 
-            $ie.div(:id , "div3").text.strip )
-        assert_equal("This text is in a div with an id of div1 and title of test1",   
-            $ie.div(:title , "Test1").text.strip )
-        
-        assert_raises(UnknownObjectException) {$ie.div(:id , "div77").class_name }
-        assert_equal("blueText" ,   $ie.div(:id , "div2").class_name )
-        assert_equal("" ,   $ie.div(:id , "div1").class_name )
-        
-        assert_raises(UnknownObjectException) {$ie.div(:index , 44).class_name }
-        assert_equal("div1" ,      $ie.div(:index , 1).id )
-        assert_equal("" ,          $ie.div(:index , 1).class_name )
-        assert_equal("blueText" ,  $ie.div(:index , 2).class_name )
-        assert_equal("Div" ,       $ie.div(:index , 2).type)
-        assert_equal(""    ,       $ie.div(:index , 2).value)
-        assert_equal(false ,       $ie.div(:index , 2).disabled)
-        assert_equal(""    ,       $ie.div(:index , 2).name)
-        assert_equal("div2",       $ie.div(:index , 2).id)
-    end
+    assert_raises(UnknownObjectException) {$ie.div(:id , "div77").class_name }
+    assert_equal("blueText" ,   $ie.div(:id , "div2").class_name )
+    assert_equal("" ,   $ie.div(:id , "div1").class_name )
     
-    def test_div_iterator
-        assert_equal( 7 , $ie.divs.length)
-        assert_equal( "div1" , $ie.divs[1].id )
-        
-        index =1
-        $ie.divs.each do |s|
-            # puts "each - div= " + s.to_s
-            assert_equal($ie.div(:index, index ).name , s.name )
-            assert_equal($ie.div(:index, index ).id , s.id )
-            assert_equal($ie.div(:index, index ).class_name , s.class_name )
-            index +=1
-        end
-        assert_equal(index-1, $ie.divs.length)   # -1 as we add 1 at the end of the loop
-    end
+    assert_raises(UnknownObjectException) {$ie.div(:index , 44).class_name }
+    assert_equal("div1" ,      $ie.div(:index , 1).id )
+    assert_equal("" ,          $ie.div(:index , 1).class_name )
+    assert_equal("blueText" ,  $ie.div(:index , 2).class_name )
+    assert_equal(""    ,       $ie.div(:index , 2).value)
+    assert_equal(false ,       $ie.div(:index , 2).disabled)
+    assert_equal(""    ,       $ie.div(:index , 2).name)
+    assert_equal("div2",       $ie.div(:index , 2).id)
+  end
+  
+  def test_div_iterator
+    assert_equal( 7 , $ie.divs.length)
+    assert_equal( "div1" , $ie.divs[1].id )
     
-    def test_objects_in_div
-        assert($ie.div(:id, 'buttons1').button(:index,1).exists? )
-        assert_false($ie.div(:id, 'buttons1').button(:index,3).exists? )
-        assert($ie.div(:id, 'buttons1').button(:name,'b1').exists? )
-        
-        assert($ie.div(:id, 'buttons2').button(:index,1).exists? )
-        assert($ie.div(:id, 'buttons2').button(:index,2).exists? )
-        assert_false($ie.div(:id, 'buttons1').button(:index,3).exists? )
-        
-        $ie.div(:id, 'buttons1').button(:index,1).click
-        
-        assert_equal( 'button1' ,   $ie.div(:id , 'text_fields1').text_field(:index,1).value)
-        
-        assert_equal( 3 , $ie.div(:id , 'text_fields1').text_fields.length )
+    index =1
+    $ie.divs.each do |s|
+      # puts "each - div= " + s.to_s
+      assert_equal($ie.div(:index, index ).name , s.name )
+      assert_equal($ie.div(:index, index ).id , s.id )
+      assert_equal($ie.div(:index, index ).class_name , s.class_name )
+      index +=1
     end
+    assert_equal(index-1, $ie.divs.length)   # -1 as we add 1 at the end of the loop
+  end
+  
+  def test_objects_in_div
+    assert($ie.div(:id, 'buttons1').button(:index,1).exists? )
+    assert(!$ie.div(:id, 'buttons1').button(:index,3).exists? )
+    assert($ie.div(:id, 'buttons1').button(:name,'b1').exists? )
     
-    #---- Span Tests ---
-    def test_spans
-        assert_raises(UnknownObjectException) {$ie.span(:id , "span77").click }
-        assert_raises(UnknownObjectException) {$ie.span(:title , "span77").click }
-        
-        assert($ie.text_field(:name, "text2").verify_contains("0") )  
-        $ie.span(:id , "span3").click
-        assert($ie.text_field(:name, "text2").verify_contains("1") )  
-        
-        $ie.span(:id , "span4").click
-        assert($ie.text_field(:name, "text2").verify_contains("0") )  
-
-    end
-
-    def test_span_properties
-        assert_raises(UnknownObjectException) {$ie.span(:id , "span77").text }
-        assert_raises(UnknownObjectException) {$ie.span(:title , "span77").text }
-        
-        assert_equal("This span has an onClick that increments text2" ,   $ie.span(:id , "span3").text.strip )
-        assert_equal("This text is in a span with an id of span1 and title of test2" ,   $ie.span(:title , "Test2").text.strip )
-        
-        assert_raises(UnknownObjectException) {$ie.span(:id , "span77").class_name }
-        assert_equal("blueText" ,   $ie.span(:id , "span2").class_name )
-        assert_equal("" ,   $ie.span(:id , "span1").class_name )
-        
-        assert_raises(UnknownObjectException) {$ie.span(:index , 44).class_name }
-        assert_equal("span1" ,     $ie.span(:index , 1).id )
-        assert_equal("" ,          $ie.span(:index , 1).class_name )
-        assert_equal("blueText" ,  $ie.span(:index , 2).class_name )
-        assert_equal("Span" ,      $ie.span(:index , 2).type)
-        assert_equal(""    ,       $ie.span(:index , 2).value)
-        assert_equal(false ,       $ie.span(:index , 2).disabled)
-        assert_equal(""    ,       $ie.span(:index , 2).name)
-        assert_equal("span2",      $ie.span(:index , 2).id)
-    end
+    assert($ie.div(:id, 'buttons2').button(:index,1).exists? )
+    assert($ie.div(:id, 'buttons2').button(:index,2).exists? )
+    assert(!$ie.div(:id, 'buttons1').button(:index,3).exists? )
     
-    def test_span_iterator
-        assert_equal( 7 , $ie.spans.length)
-        assert_equal( "span1" , $ie.spans[1].id )
-        
-        index = 1
-        $ie.spans.each do |s|
-            # puts "each - span = " + s.to_s
-            assert_equal($ie.span(:index, index ).name , s.name )
-            assert_equal($ie.span(:index, index ).id , s.id )
-            assert_equal($ie.span(:index, index ).class_name , s.class_name )
-            index +=1
-        end
-        assert_equal(index-1, $ie.spans.length)   # -1 as we add 1 at the end of the loop
-    end
+    $ie.div(:id, 'buttons1').button(:index,1).click
     
-    def test_objects_in_span
-        assert($ie.span(:id, 'buttons1').button(:index,1).exists? )
-        assert_false($ie.span(:id, 'buttons1').button(:index,3).exists? )
-        assert($ie.span(:id, 'buttons1').button(:name,'b1').exists? )
-        
-        assert($ie.span(:id, 'buttons2').button(:index,1).exists? )
-        assert($ie.span(:id, 'buttons2').button(:index,2).exists? )
-        assert_false($ie.span(:id, 'buttons1').button(:index,3).exists? )
-        
-        $ie.span(:id, 'buttons1').button(:index,1).click
-        
-        assert_equal( 'button1' ,   $ie.span(:id , 'text_fields1').text_field(:index,1).value)
-        
-        assert_equal( 3 , $ie.span(:id , 'text_fields1').text_fields.length )
-    end
+    assert_equal( 'button1' ,   $ie.div(:id , 'text_fields1').text_field(:index,1).value)
+    
+    assert_equal( 3 , $ie.div(:id , 'text_fields1').text_fields.length )
+    $ie.div(:id, 'text_fields1').text_field(:name, 'div_text1').set("drink me")
+    assert_equal("drink me", $ie.div(:id, 'text_fields1').text_field(:name, 'div_text1').getContents)
+  end
+  
+  #---- Span Tests ---
+  def test_spans
+    assert_raises(UnknownObjectException) {$ie.span(:id , "span77").click }
+    assert_raises(UnknownObjectException) {$ie.span(:title , "span77").click }
+    
+    assert($ie.text_field(:name, "text2").verify_contains("0") )  
+    $ie.span(:id , "span3").click
+    assert($ie.text_field(:name, "text2").verify_contains("1") )  
     
-    def test_p
-        assert($ie.p(:id, 'number1').exists?)
-        assert($ie.p(:index, 3).exists?)
-        assert($ie.p(:title, 'test_3').exists?)
-        
-        assert_false($ie.p(:id, 'missing').exists?)
-        assert_false($ie.p(:index, 8).exists?)
-        assert_false($ie.p(:title, 'test_55').exists?)
-        
-        assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').class_name }
-        assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').text }
-        assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').title }
-        assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').to_s }
-        assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').disabled }
-        
-        assert_equal(  'redText' , $ie.p(:index,1).class_name)
-        assert_equal(  'P_tag_1' , $ie.p(:index,1).title)
-        assert_equal(  'This text is in a p with an id of number2' , $ie.p(:index,2).text)
+    $ie.span(:id , "span4").click
+    assert($ie.text_field(:name, "text2").verify_contains("0") )  
+    
+  end
+  
+  def test_span_properties
+    assert_raises(UnknownObjectException) {$ie.span(:id , "span77").text }
+    assert_raises(UnknownObjectException) {$ie.span(:title , "span77").text }
+    
+    assert_equal("This span has an onClick that increments text2" ,   $ie.span(:id , "span3").text.strip )
+    assert_equal("This text is in a span with an id of span1 and title of test2" ,   $ie.span(:title , "Test2").text.strip )
+    
+    assert_raises(UnknownObjectException) {$ie.span(:id , "span77").class_name }
+    assert_equal("blueText" ,   $ie.span(:id , "span2").class_name )
+    assert_equal("" ,   $ie.span(:id , "span1").class_name )
+    
+    assert_raises(UnknownObjectException) {$ie.span(:index , 44).class_name }
+    assert_equal("span1" ,     $ie.span(:index , 1).id )
+    assert_equal("" ,          $ie.span(:index , 1).class_name )
+    assert_equal("blueText" ,  $ie.span(:index , 2).class_name )
+    assert_equal(""    ,       $ie.span(:index , 2).value)
+    assert_equal(false ,       $ie.span(:index , 2).disabled)
+    assert_equal(""    ,       $ie.span(:index , 2).name)
+    assert_equal("span2",      $ie.span(:index , 2).id)
+  end
+  
+  def test_span_iterator
+    assert_equal(7, $ie.spans.length)
+    assert_equal("span1", $ie.spans[1].id)
+    
+    index = 1
+    $ie.spans.each do |s|
+      # puts "each - span = " + s.to_s
+      assert_equal($ie.span(:index, index ).name , s.name )
+      assert_equal($ie.span(:index, index ).id , s.id )
+      assert_equal($ie.span(:index, index ).class_name , s.class_name )
+      index += 1
     end
+    assert_equal(index - 1, $ie.spans.length)   # -1 as we add 1 at the end of the loop
+  end
+  
+  def test_objects_in_span
+    assert($ie.span(:id, 'buttons1').button(:index,1).exists? )
+    assert(!$ie.span(:id, 'buttons1').button(:index,3).exists? )
+    assert($ie.span(:id, 'buttons1').button(:name,'b1').exists? )
+    
+    assert($ie.span(:id, 'buttons2').button(:index,1).exists? )
+    assert($ie.span(:id, 'buttons2').button(:index,2).exists? )
+    assert(!$ie.span(:id, 'buttons1').button(:index,3).exists? )
+    
+    $ie.span(:id, 'buttons1').button(:index,1).click
+    
+    assert_equal( 'button1' ,   $ie.span(:id , 'text_fields1').text_field(:index,1).value)
+    
+    assert_equal( 3 , $ie.span(:id , 'text_fields1').text_fields.length )
+  end
+  
+  def test_p
+    assert($ie.p(:id, 'number1').exists?)
+    assert($ie.p(:index, 3).exists?)
+    assert($ie.p(:title, 'test_3').exists?)
+    
+    assert(!$ie.p(:id, 'missing').exists?)
+    assert(!$ie.p(:index, 8).exists?)
+    assert(!$ie.p(:title, 'test_55').exists?)
+    
+    assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').class_name }
+    assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').text }
+    assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').title }
+    assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').to_s }
+    assert_raises( UnknownObjectException) {$ie.p(:id , 'missing').disabled }
+    
+    assert_equal(  'redText' , $ie.p(:index,1).class_name)
+    assert_equal(  'P_tag_1' , $ie.p(:index,1).title)
+    assert_equal(  'This text is in a p with an id of number2' , $ie.p(:index,2).text)
+  end
+  
+  def test_p_iterator
+    assert_equal( 3, $ie.ps.length)
+    assert_equal( 'italicText', $ie.ps[2].class_name)
+    assert_equal( 'number3', $ie.ps[3].id)
     
-    def test_p_iterator
-        assert_equal( 3, $ie.ps.length)
-        assert_equal( 'italicText', $ie.ps[2].class_name)
-        assert_equal( 'number3', $ie.ps[3].id)
-        
-        count=1
-        $ie.ps.each do |p|
-            assert_equal('number'+count.to_s , p.id)
-            count+=1
-        end
-        assert_equal( count-1 ,  $ie.ps.length)
+    count=1
+    $ie.ps.each do |p|
+      assert_equal('number'+count.to_s , p.id)
+      count+=1
     end
+    assert_equal( count-1 ,  $ie.ps.length)
+  end
 end