# feature tests for IE::contains_text
# revision: $Revision: 1.3 $

$LOAD_PATH.unshift File.join(File.dirname(__FILE__), '..') if $0 == __FILE__
require 'unittests/setup'

class TC_contains_text < Test::Unit::TestCase
    include Watir

    def setup
        $ie.goto($htmlRoot + "textsearch.html")
    end        
    
    def test_text_found
        assert($ie.contains_text('slings and arrows of outrageous fortune'))
    end

    def test_text_not_found
        assert_false($ie.contains_text('So are they all, all honourable men'))
    end
    
    def test_regexp_found
        assert($ie.contains_text(/bodkin.*fardels/))
    end
    
    def test_regexp_not_found
        assert_false($ie.contains_text(/winding.*watch.*wit/))
    end
                
    def test_match_regexp_found
    	$~ = $ie.contains_text(/Messages ([0-9]+)/)
        assert_equal('42', $1)
    end

    def test_bad_search_argument
        assert_raises(ArgumentError) do
            $ie.contains_text()
        end
        assert_raises(MissingWayOfFindingObjectException) do
            $ie.contains_text(nil)
        end
        assert_raises(MissingWayOfFindingObjectException) do
            $ie.contains_text(42)
        end
    end
                        
end