assert_xpath 0.4.2 → 0.4.6

data/lib/assert_css.rb

@@ -0,0 +1,52 @@
+require File.dirname(__FILE__) + '/../lib/assert_xpath.rb'
+require 'css_parser'
+require 'pathname'
+
+
+module AssertCSS
+
+  def assert_css(block)
+    @_cp ||= CssParser::Parser.new
+    @_cp.add_block!(block)
+  end
+
+    # from http://www.w3.org/TR/CSS21/page.html#page-selectors
+
+  def assert_css_selector(selector)
+    raise 'selector must be a string' unless selector.kind_of? String
+    # ERGO  why no return me a RuleSet??
+    return @_cp.find_by_selector(selector)
+  end
+  
+  def _find_css_style(selector, rule)
+    @_cp.each_rule_set do |rule_set|
+      if rule_set.selectors.include?(selector) and
+         value = rule_set.get_value(rule)
+        return value.sub(/;$/, '')
+      end
+    end
+    return nil
+  end
+  
+  def assert_css_public_folder(root)
+    @_public_folder = root
+  end
+
+  def assert_css_style(selector, rule)
+    if selector.respond_to? :delete_attribute
+#p selector.name
+      return _find_css_style(selector.name, rule)
+    else
+      _find_css_style(selector, rule) or
+        flunk "#{selector}{#{rule}} not found"
+    end
+  end
+
+  def assert_style(path = :style)
+    assert_any_xpath path do |style|
+      assert_css style.text
+      false
+    end
+  end
+
+end

data/lib/assert_javascript.rb

@@ -244,7 +244,7 @@ module AssertJavaScript
       splitter = using(:libxml?) ? '&' : '&'
       query.split(splitter).each do |item|
         key, value = item.split('=')
-        params[key.to_sym] = CGI::unescape(value)
+        params[key.to_sym] = CGI::unescape(value || '')
       end
     end
 

data/lib/assert_xpath.rb

@@ -1,16 +1,18 @@
 require 'rexml/document'
 require 'stringio'
+require 'rubygems'
 require 'libxml'  #  FIXME  soften that requirement!
+require 'xml'
 
 RAILS_ENV = ENV.fetch('RAILS_ENV', 'test') unless defined?(RAILS_ENV)
 AFE = Test::Unit::AssertionFailedError unless defined?(AFE)
 
 =begin
 #:stopdoc:
-# "We had so much fun robbing the bank we forgot to take the money" 
+# "We had so much fun robbing the bank we forgot to take the money"
 #
 #  ERGO comic book: programmers hunting bugs portrayed as big game hunters in jungle
-    
+
     #  ERGO  use length not size
 
 #  ERGO  complain to ZenTest forum that
@@ -75,7 +77,7 @@ module AssertXPath
     def symbolic?(index)
       return index.to_s  if (index.kind_of? String or index.kind_of? Symbol)
     end
-    
+
     def[](index)
       if symbol = symbolic?(index)
         return attributes[symbol]  if attributes.has_key? symbol
@@ -103,7 +105,7 @@ module AssertXPath
 
       if block
         varz = instance_variables
-        
+
         attributes.each do |key, value|
           if identifiable?(key)  #  deal if the key ain't a valid variable
             key = "@#{ key }"
@@ -118,15 +120,15 @@ module AssertXPath
     ensure  #  put them back!
       stash.each{|key, value|  instance_variable_set(key, value)  }
     end  #  this utterly sick convenience helps Ruby {@id} look like XPathic [@id]
-  
+
   end
-  
+
     #  ERGO  document me
   def drill(&block)
     if block
           #  ERGO  harmonize with bang! version
         #  ERGO  deal if the key ain't a valid variable
-      
+
       unless tribute(block)  #  ERGO  pass in self (node)?
         sib = self
         nil while (sib = sib.next_sibling) and sib.node_type != :element
@@ -136,7 +138,7 @@ p sib #  ERGO  do tests ever get here?
         raise Test::Unit::AssertionFailedError.new("can't find beyond <#{xpath}>")
       end
     end
-    
+
     return self
     #  ERGO  if block returns false/nil, find siblings until it passes.
     #        throw a test failure if it don't.
@@ -147,7 +149,7 @@ end
 
   #  ERGO  node.descendant{ @type == 'text' and @id == 'foo' }.value
   #  ERGO  node..a_descendant - overload ..
-  
+
 def _bequeath_attributes(node)  #:nodoc:
   return node  if node.kind_of?(::Hpricot::Elem) or node.kind_of?(::Hpricot::Doc)
     #  ERGO  shouldn't this be in a stinkin' module??
@@ -188,21 +190,21 @@ module AssertXPath
   end
 
   class HpricotHelper < XmlHelper  #:nodoc:
-    def hpricot? ;  true  end 
+    def hpricot? ;  true  end
     def symbol_to_xpath(tag)  tag.to_s  end
     def assert_xml(suite, *args, &block)
       return suite.assert_hpricot(*args, &block)
     end
   end
-  
+
   class LibxmlHelper < XmlHelper  #:nodoc:
-    def libxml? ;  true  end    
+    def libxml? ;  true  end
     def symbol_to_xpath(tag)  "descendant-or-self::#{tag}"  end
     def assert_xml(suite, *args, &block)
       return suite.assert_libxml(*args, &block)
     end
   end
-  
+
   class RexmlHelper < XmlHelper #:nodoc:
     def rexml? ;   true  end
     def symbol_to_xpath(tag)  ".//#{tag}"  end
@@ -210,13 +212,13 @@ module AssertXPath
       return suite.assert_rexml(*args, &block)
     end
   end
-    
-  # Subsequent +assert_xml+ calls will use 
-  # Hpricot[http://code.whytheluckystiff.net/hpricot/]. 
+
+  # Subsequent +assert_xml+ calls will use
+  # Hpricot[http://code.whytheluckystiff.net/hpricot/].
   # (Alternately,
   # +assert_hpricot+ will run one assertion in Hpricot mode.)
-  # Put +invoke_hpricot+ into +setup+() method, to 
-  # run entire suites in this mode. These test cases 
+  # Put +invoke_hpricot+ into +setup+() method, to
+  # run entire suites in this mode. These test cases
   # explore some differences between the two assertion systems:
   # %transclude AssertXPathSuite#test_assert_long_xpath
   #
@@ -225,11 +227,11 @@ module AssertXPath
     @helper = HpricotHelper.new
   end
 
-  # Subsequent +assert_xml+ calls will use 
-  # LibXML[http://libxml.rubyforge.org/]. 
+  # Subsequent +assert_xml+ calls will use
+  # LibXML[http://libxml.rubyforge.org/].
   # (Alternately,
   # +assert_libxml+ will run one assertion in Hpricot mode.)
-  # Put +invoke_libxml+ into +setup+() method, to 
+  # Put +invoke_libxml+ into +setup+() method, to
   # run entire suites in this mode.
   #
   def invoke_libxml(favorite_flavor = :html)
@@ -241,7 +243,7 @@ module AssertXPath
   def _doc_type  #  ERGO  document all these!
     { :html => '<!DOCTYPE HTML PUBLIC ' +
                '"-//W3C//DTD HTML 4.01 Transitional//EN" '+
-               '"http://www.w3.org/TR/html4/loose.dtd">', 
+               '"http://www.w3.org/TR/html4/loose.dtd">',
       :xhtml => '<!DOCTYPE html PUBLIC ' +
                 '"-//W3C//DTD XHTML 1.0 Transitional//EN" ' +
                 '"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >',
@@ -251,8 +253,8 @@ module AssertXPath
   private :_doc_type
 
   #  ERGO  what happens to assert_js_replace_html bearing entities??
-  
-  # Subsequent +assert_xml+ calls will use REXML. See 
+
+  # Subsequent +assert_xml+ calls will use REXML. See
   # +invoke_hpricot+ to learn the various differences between the
   # two systems
   def invoke_rexml
@@ -269,12 +271,12 @@ module AssertXPath
   # call-seq:
   #   assert_xml(xml = @response.body <em>[, assert_xpath arguments]</em>) -> @xdoc, or assert_xpath's return value
   #
-  # Assertions based on +assert_xpath+ will call this automatically if 
+  # Assertions based on +assert_xpath+ will call this automatically if
   # the secret <code>@xdoc</code> is +nil+. This implies we may freely call
   # +assert_xpath+ after any method that populates <code>@response.body</code>
   # -- if <code>@xdoc</code> is +nil+. When in doubt, call +assert_xml+ explicitly
   #
-  # +assert_xml+ also translates the contents of +assert_select+ nodes. Use this to 
+  # +assert_xml+ also translates the contents of +assert_select+ nodes. Use this to
   # bridge assertions from one system to another. For example:
   #
   # Returns the first node in the XML
@@ -320,7 +322,7 @@ module AssertXPath
       raise e  unless e.message =~ /attempted adding second root element to document/
       @xdoc = REXML::Document.new("<xhtml>#{ contents }</xhtml>")
     end
-    
+
     _bequeath_attributes(@xdoc)
     assert_xpath(*args, &block)  if args != []
     return (assert_xpath('/*') rescue nil)  if @xdoc
@@ -338,13 +340,13 @@ module AssertXPath
   def assert_libxml(*args, &block)
     xml = args.shift || @xdoc || @response.body
     xhtml = xml.to_s
-    
+
       #  CONSIDER  fix this like at the source??
     xhtml.gsub!('<![CDATA[>', '')
     xhtml.gsub!('<![CDATA[', '')
     xhtml.gsub!('//]]]]>', '')
     xhtml.gsub!(']]>', '')
-    
+
     if xhtml !~ /^\<\!DOCTYPE\b/ and xhtml !~ /\<\?xml\b/
       xhtml = _doc_type[@_favorite_flavor || :html] + "\n" + xhtml if _doc_type[@_favorite_flavor]
     end  #  ERGO  document we pass HTML level into invoker
@@ -369,7 +371,7 @@ module AssertXPath
 #puts doc.debug_dump
     @xdoc = doc.root
 #    @xdoc.namespace ||= XML::NS.new('')
-    
+
 #pp (@xdoc.root.public_methods - public_methods).sort
     return assert_xpath(*args, &block)  if args.length > 0
     return @xdoc
@@ -379,15 +381,15 @@ module AssertXPath
     @helper ||= RexmlHelper.new  #  ERGO  escallate this!
     return @helper.send(kode)
   end
-    
+
   #  FIXME  test that the helper system withstands this effect:
   #   ""
-  
+
   # %html <a name='assert_hpricot'></a>
   #
   # This parses one XML string using Hpricot, so subsequent
   # calls to +assert_xpath+ will use Hpricot expressions.
-  # This method does not depend on +invoke_hpricot+, and 
+  # This method does not depend on +invoke_hpricot+, and
   # subsequent test cases will run in their suite's mode.
   #
   # Example:
@@ -406,22 +408,22 @@ module AssertXPath
 
   #  ENCORE  Bus to Julian! (-;
   #  ERGO  why %html <a name='assert_xpath' /> screws up?
-  
+
   # %html <a name='assert_xpath'></a>
   #
   # Return the first XML node matching a query string. Depends on +assert_xml+
   # to populate our secret internal REXML::Element, <code>@xdoc</code>
-  # * +xpath+ - a query string describing a path among XML nodes. 
+  # * +xpath+ - a query string describing a path among XML nodes.
   #   See: {XPath Tutorial Roundup}[http://krow.livejournal.com/523993.html]
   # * +diagnostic+ - optional string to add to failure message
-  # * <code>block|node|</code> - optional block containing assertions, based on +assert_xpath+, 
+  # * <code>block|node|</code> - optional block containing assertions, based on +assert_xpath+,
   #   which operate on this node as the XPath '.' current +node+
   # Returns the obtained REXML::Element +node+
   #
   # Examples:
   #
   #   render :partial => 'my_partial'
-  # 
+  #
   #   assert_xpath '/table' do |table|
   #     assert_xpath './/p[ @class = "brown_text" ]/a' do |a|
   #       assert_equal user.login,   a.text  # <-- native <code>REXML::Element#text</code> method
@@ -432,14 +434,16 @@ module AssertXPath
   #
   # %transclude AssertXPathSuite#test_assert_xpath
   #
-  # See: AssertXPathSuite#test_indent_xml, 
+  # See: AssertXPathSuite#test_indent_xml,
   # {XPath Checker}[https://addons.mozilla.org/en-US/firefox/addon/1095]
   #
-  def assert_xpath(xpath, diagnostic = nil, &block)
+  def assert_xpath(*args, &block)
+    return assert_tag_id(*args, &block) if args.length > 1 and args[1].kind_of?(Symbol) or args[1].kind_of?(Hash)
 #     return assert_any_xpath(xpath, diagnostic) {
 #              block.call(@xdoc) if block
 #              true
 #            }
+    xpath, diagnostic = args
     stash_xdoc do
       xpath = symbol_to_xpath(xpath)
       node  = @xdoc.search(xpath).first
@@ -462,7 +466,9 @@ module AssertXPath
   #
   # %transclude AssertXPathSuite#test_deny_xpath
   #
-  def deny_xpath(xpath, diagnostic = nil)
+  def deny_xpath(*args)
+    return deny_tag_id(*args) if args.length > 1 and args[1].kind_of?(Symbol) or args[1].kind_of?(Hash)
+    xpath, diagnostic = args
     @xdoc or assert_xml
     xpath = symbol_to_xpath(xpath)
 
@@ -471,12 +477,12 @@ module AssertXPath
   end
 
   # Search nodes for a matching XPath whose <code>AssertXPath::Element#inner_text</code> matches a Regular Expression. Depends on +assert_xml+
-  # * +xpath+ - a query string describing a path among XML nodes. 
+  # * +xpath+ - a query string describing a path among XML nodes.
   #   See: {XPath Tutorial Roundup}[http://krow.livejournal.com/523993.html]
   # * +matcher+ - optional Regular Expression to test node contents
   # * +diagnostic+ - optional string to add to failure message
   # * <code>block|node|</code> - optional block called once per match.
-  #   If this block returns a value other than +false+ or +nil+, 
+  #   If this block returns a value other than +false+ or +nil+,
   #   assert_any_xpath stops looping and returns the current +node+
   #
   # Example:
@@ -495,7 +501,7 @@ module AssertXPath
       if !using(:rexml?)
         @xdoc.search(xpath) do |@xdoc|
           found_any = true
-          
+
           if @xdoc.inner_text =~ matcher
             found_match = true
             _bequeath_attributes(@xdoc)
@@ -506,7 +512,7 @@ module AssertXPath
       else  # ERGO      merge!
         @xdoc.each_element(xpath) do |@xdoc|
           found_any = true
-          
+
           if @xdoc.inner_text =~ matcher
             found_match = true
             _bequeath_attributes(@xdoc)
@@ -519,10 +525,10 @@ module AssertXPath
 
     found_any or
       flunk_xpath(diagnostic, "should find xpath <#{_esc xpath}>")
-      
+
     found_match or
       flunk_xpath(
-          diagnostic, 
+          diagnostic,
           "can find xpath <#{_esc xpath}> but can't find pattern <?>",
           matcher
           )
@@ -538,12 +544,12 @@ module AssertXPath
   #
   # Contrived example:
   #   assert_xml '<heathrow><terminal>5</terminal><lean>methods</lean></heathrow>'
-  # 
+  #
   #   assert_raise_message Test::Unit::AssertionFailedError,
   #                           /all xpath.*\.\/\/lean.*not have.*methods/ do
   #     deny_any_xpath :lean, /methods/
   #   end
-  # 
+  #
   #   deny_any_xpath :lean, /denver/
   #
   # See: AssertXPathSuite#test_deny_any_xpath,
@@ -556,7 +562,7 @@ module AssertXPath
     assert_any_xpath xpath, nil, diagnostic do |node|
       if node.inner_text =~ matcher
         flunk_xpath(
-            diagnostic, 
+            diagnostic,
             "all xpath <#{_esc xpath}> nodes should not have pattern <?>",
             matcher
             )
@@ -567,11 +573,11 @@ module AssertXPath
    # FIXME @helper -> @_helper
 
   # Wraps the common idiom <code>assert_xpath('descendant-or-self::./<em>my_tag</em>[ @id = "<em>my_id</em>" ]')</code>. Depends on +assert_xml+
-  # * +tag+ - an XML node name, such as +div+ or +input+. 
+  # * +tag+ - an XML node name, such as +div+ or +input+.
   #   If this is a <code>:symbol</code>, we prefix "<code>.//</code>"
   # * +id+ - string, symbol, or hash identifying the node. ids must not contain punctuation
   # * +diagnostic+ - optional string to add to failure message
-  # * <code>block|node|</code> - optional block containing assertions, based on 
+  # * <code>block|node|</code> - optional block containing assertions, based on
   #   +assert_xpath+, which operate on this node as the XPath '.' current node.
   # Returns the obtained REXML::Element +node+
   #
@@ -651,7 +657,7 @@ module AssertXPath
   #   will repress all of Tidy's screams of horror regarding the quality of your HTML.
   # The resulting XHTML loads into +assert_xml+. Use this to retrofit +assert_xpath+ tests
   # to less-than-pristine HTML.
-  # 
+  #
   # +assert_tidy+ obeys +invoke_rexml+ and +invoke_hpricot+, to
   # select its HTML parser
   #
@@ -672,18 +678,18 @@ module AssertXPath
     File.open(scratch_html, 'w'){|f|  f.write(messy)  }
     gripes = `tidy -eq #{scratch_html} 2>&1`
     gripes.split("\n")
-    
+
     #  TODO  kvetch about client_input_channel_req: channel 0 rtype keepalive@openssh.com reply 1
-    
+
     puts gripes if verbosity == :verbose
-    
+
     puts gripes.reject{|g|
       g =~ / - Info\: /                                  or
       g =~ /Warning\: missing \<\!DOCTYPE\> declaration/ or
       g =~ /proprietary attribute/                       or
       g =~ /lacks "(summary|alt)" attribute/
     } if verbosity == :noisy
-    
+
     assert_xml `tidy -wrap 1001 -asxhtml #{ scratch_html } 2>/dev/null`
       #  CONSIDER  that should report serious HTML deformities
   end  #  CONSIDER  how to tidy <% escaped %> eRB code??
@@ -694,8 +700,7 @@ module AssertXPath
 
   private
 
-  #  ERGO  switch to descendant-or-self
-  #  ERGO  then update documentation of those who use this
+  #  ERGO  update documentation of those who use this
     def symbol_to_xpath(tag)
       return tag unless tag.class == Symbol
       @helper or using :libxml? # prop-ulates @helper
@@ -709,7 +714,15 @@ module AssertXPath
                   end )
 
       options.merge!(diagnostic)  if diagnostic.kind_of? Hash
-      predicate = options.map{|k,v| "@#{k} = '#{v}'" }.join(' and ')
+
+      predicate = options.map{|k,v|
+                    if k.kind_of? Symbol
+                      "@#{k} = \"#{v}\""
+                    else
+                      "#{k} = #{v}"
+                    end
+                  }.join(' and ')
+
       return symbol_to_xpath(tag) + "[ #{predicate} ]"
     end
 
@@ -752,7 +765,7 @@ module Relevate
   def relevant?
     return ! blank?
   end
-  
+
   def relevance
     return to_s  if relevant?
   end
@@ -776,8 +789,8 @@ NilClass.send :include, Relevate
 String  .send :include, Relevate
 
 #:enddoc:
-  
-# props: http://www.intertwingly.net/blog/2007/11/02/MonkeyPatch-for-Ruby-1-8-6  
+
+# props: http://www.intertwingly.net/blog/2007/11/02/MonkeyPatch-for-Ruby-1-8-6
 doc = REXML::Document.new '<doc xmlns="ns"><item name="foo"/></doc>'
 if not doc.root.elements["item[@name='foo']"]
   class REXML::Element
@@ -795,7 +808,7 @@ end
 module Hpricot #:nodoc:
   class Doc #:nodoc:
     include AssertXPath::CommonXPathExtensions
-    
+
     def [](index) #:nodoc:
       return root[index]  if symbolic? index
       super
@@ -823,14 +836,14 @@ module Hpricot #:nodoc:
 
   class Elem #:nodoc:
     include AssertXPath::CommonXPathExtensions
-    
+
     def [](index) #:nodoc:
     #  ERGO  do this conflict with anything?
       if symbol = symbolic?(index)
         return attributes[symbol]  if attributes.has_key? symbol
         raise_magic_member_not_found(symbol, caller)
       end
-      
+
       super
     end
 
@@ -855,7 +868,7 @@ module Hpricot #:nodoc:
           raise Test::Unit::AssertionFailedError.new("can't find beyond <#{_esc xpath}>")
         end
       end
-      
+
       return self
       #  ERGO  if block returns false/nil, find siblings until it passes.
       #        throw a test failure if it don't.
@@ -864,7 +877,7 @@ module Hpricot #:nodoc:
 
     def method_missing(*args, &block) #:nodoc:
       symbol = args.shift.to_s.sub(/\!$/, '')
-      
+
       children.grep(Hpricot::Elem).each do |kid|
         if kid.name == symbol
           kid.tribute(block)
@@ -893,24 +906,22 @@ module XML
       return [find_first(xpath, "x:http://www.w3.org/1999/xhtml")]
     end
     alias each_element search
-    
+
     def text
-#p text?
       find_first('text()').to_s
-      #text? ? content : ''
     end
-    
+
     def inner_text(interstitial = '')
       array = []
       self.find( 'descendant-or-self::text()' ).each{|x| array << x }
       return array.join(interstitial)
     end  #  ERGO  match??
 
-    def attributes    
-      hash = {}
-      each_attr{|attr|  hash[attr.name] = attr.value }
-      return hash  #  ERGO  uh, was there a leaner way??
-    end
+#     def attributes
+#       hash = {}
+#       each_attr{|attr|  hash[attr.name] = attr.value }
+#       return hash  #  ERGO  uh, was there a leaner way??
+#     end
 
     def [](index) #:nodoc:
       return attributes[index.to_s] || super
@@ -927,8 +938,8 @@ module XML
       #  ERGO  use the define_method trick here
       symbol = args.shift.to_s
       symbol.sub!(/\!$/, '')
-     
-      kid = if symbol == '/' 
+
+      kid = if symbol == '/'
         find_first('/')
       else
         find_first("./#{symbol}")
@@ -943,22 +954,22 @@ end
 
 class REXML::Element
   include AssertXPath::CommonXPathExtensions
-  
+
   # Semi-private method to match Hpricotic abilities
   def search(xpath)
     return self.each_element( xpath ){}
   end
-  
+
   def method_missing(*args, &block) #:nodoc:
     symbol = args.shift
-        
+
     each_element("./#{symbol}") do |kid|
       return _bequeath_attributes(kid).drill(&block)
     end  #  ERGO  element/:child - def/
 
     raise_magic_member_not_found(symbol, caller)  #  ERGO  repurpose!
   end  #  ERGO  convert attribute chain to xpath
-  
+
     # Returns all text contents from a node and its descendants
     #
     # Example:
@@ -975,7 +986,7 @@ class REXML::Element
     node = each_element(xpath.to_s){}.first
     return _bequeath_attributes(node)  if node
   end  #  ERGO  test that attributes are bequeathed!
-  
+
   alias :/ get_path
 
   #  ERGO  use set_backtrace to seat the backtracer to your code