Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance. Project price only 1 $
You can buy this project and download/modify it how often you want.
package org.specs2
package matcher
import scala.xml._
import scala.xml.NodeSeq._
import control.Identityx._
import XPathFunctions._
import xml.Nodex._
import text.Quote._
import org.specs2.xml.NodeFunctions._
import StringToElem._
import collection.Seqx._
import scalaz.std.string._
/**
* The XmlMatchers trait provides matchers which are applicable to xml nodes
*/
trait XmlMatchers extends XmlBaseMatchers with XmlBeHaveMatchers
object XmlMatchers extends XmlMatchers
private[specs2]
trait XmlBaseMatchers { outer =>
/**
* match if `node` is contained anywhere inside the tested node
* an exact match on is required on attributes
*/
def \\(node: Node, attributes: String*): XmlMatcher = deepMatch(node, attributes.toList)
/** match if `node` is contained anywhere inside the tested node */
def \\(node: Node): XmlMatcher = deepMatch(node, Nil)
/** alias for `\\(node)` with the node label only */
def \\(label: String, attributes: String*) = deepMatch(label, attributes.toList)
/**
* match if `node` is contained anywhere inside the tested node and has exactly the `attributeValues`
* as names and values for its attributes
*/
def \\(node: Node, attributeValues1: (String, String), attributeValues: (String, String)*) =
deepMatch(node, Map((attributeValues1 :: attributeValues.toList): _*))
/** alias for `\\(node, attributeValues)` with the node label only */
def \\(label: String, attributeValues1: (String, String), attributeValues: (String, String)*) =
deepMatch(label, Map((attributeValues1 :: attributeValues.toList): _*))
/**
* match if `node` is the first node of the tested node
* an exact match on is required on attributes
*/
def \(node: Node, attributes: String*): XmlMatcher = firstMatch(node, attributes.toList)
/** match if `node` is the first node of the tested node */
def \(node: Node): XmlMatcher = firstMatch(node, Nil)
/** alias for `\(node)` with the node label only */
def \(label: String, attributes: String*) = firstMatch(label, attributes.toList)
/**
* match if `node` is the first node of the tested node and has exactly the `attributeValues`
* as names and values for its attributes
*/
def \(node: Node, attributeValues1: (String, String), attributeValues: (String, String)*) =
firstMatch(node, Map((attributeValues1 :: attributeValues.toList): _*))
/** alias for `\\(node, attributeValues)` with the node label only */
def \(label: String, attributeValues1: (String, String), attributeValues: (String, String)*) =
firstMatch(label, Map((attributeValues1 :: attributeValues.toList): _*))
/** match if `node` is equal to the tested node without testing empty text */
def beEqualToIgnoringSpace(node: Seq[Node]) = new EqualIgnoringSpaceMatcher(node)
/** alias for beEqualToIgnoringSpace */
def be_==/(node: Seq[Node]): EqualIgnoringSpaceMatcher = beEqualToIgnoringSpace(node)
/** alias for beEqualToIgnoringSpace */
def ==/(node: Seq[Node]): EqualIgnoringSpaceMatcher = beEqualToIgnoringSpace(node)
/** alias for beEqualToIgnoringSpace */
def ==/(node: Elem): EqualIgnoringSpaceMatcher = beEqualToIgnoringSpace(node)
/** alias for beEqualToIgnoringSpace */
def be_==/(node: Elem): EqualIgnoringSpaceMatcher = beEqualToIgnoringSpace(node)
/** alias for beEqualToIgnoringSpace */
def equalToIgnoringSpace(node: Seq[Node]) = beEqualToIgnoringSpace(node)
/** alias for beEqualToIgnoringSpace */
def equalToIgnoringSpace(node: Elem) = beEqualToIgnoringSpace(node)
private def deepMatch(node: Node, attributes: List[String]) =
new XmlMatcher(Seq(new PathFunction(node, deepNodeSearch _, attributes)))
private def deepMatch(node: Node, attributes: Map[String, String]) =
new XmlMatcher(Seq(new PathFunction(node, deepNodeSearch _, attributeValues = attributes)))
private def firstMatch(node: Node, attributes: List[String]) =
new XmlMatcher(Seq(new PathFunction(node, firstNodeSearch _, attributes)))
private def firstMatch(node: Node, attributes: Map[String, String]) =
new XmlMatcher(Seq(new PathFunction(node, firstNodeSearch _, attributeValues = attributes)))
}
private[specs2]
trait XmlBeHaveMatchers { outer: XmlBaseMatchers =>
implicit def toXmlResultMatcher(result: MatchResult[Seq[Node]]) : XmlResultMatcher = new XmlResultMatcher(result)
class XmlResultMatcher(result: MatchResult[Seq[Node]]) {
def equalToIgnoringSpace(node: Seq[Node]) = result(outer.equalToIgnoringSpace(node))
def ==/(node: Seq[Node]) = result(outer.==/(node))
}
implicit def toNeutralMatcherElem(result: NeutralMatcher[Any]) : NeutralMatcherElem = new NeutralMatcherElem(result)
class NeutralMatcherElem(result: NeutralMatcher[Any]) {
def ==/(node: Seq[Node]) = outer.==/(node) ^^ { (e: Elem) => e.toSeq }
}
implicit def toNotMatcherElem(result: NotMatcher[Any]) : NotMatcherElem = new NotMatcherElem(result)
class NotMatcherElem(result: NotMatcher[Any]) {
def ==/(node: Seq[Node]) = (outer.==/(node) ^^ { (e: Elem) => e.toSeq }).not
def \\(node: Node, attributes: String*) = outer.\\(node, attributes:_*).not
def \\(node: Node) = outer.\\(node).not
def \\(label: String, attributes: String*) = outer.\\(label, attributes:_*).not
def \\(node: Node, attributeValues1: (String, String), attributeValues: (String, String)*) =
outer.\\(node, attributeValues1, attributeValues:_*).not
def \\(label: String, attributeValues1: (String, String), attributeValues: (String, String)*) =
outer.\\(label, attributeValues1, attributeValues:_*).not
def \(node: Node, attributes: String*) = outer.\(node, attributes:_*).not
def \(node: Node) = outer.\(node).not
def \(label: String, attribute1: String, attributes: String*) = outer.\(label, (attribute1 +: attributes):_*).not
def \(node: Node, attributeValues1: (String, String), attributeValues: (String, String)*) =
outer.\(node, attributeValues1, attributeValues:_*).not
def \(label: String, attributeValues1: (String, String), attributeValues: (String, String)*) =
outer.\(label, attributeValues1, attributeValues:_*).not
}
}
/**
* Matcher for equalIgnoreSpace comparison, ignoring the nodes order
*/
class EqualIgnoringSpaceMatcher(node: Seq[Node]) extends Matcher[Seq[Node]] with XmlMatcherKoMessage {
def apply[S <: Seq[Node]](n: Expectable[S]) = {
result(isEqualIgnoringSpace(node.toList, n.value.toList),
n.description + " is equal to " + q(node),
koMessage(n, node), n)
}
def ordered = new EqualIgnoringSpaceMatcherOrdered(node)
}
/**
* Matcher for equalIgnoreSpace comparison, considering the node order
*/
class EqualIgnoringSpaceMatcherOrdered(node: Seq[Node]) extends Matcher[Seq[Node]] with XmlMatcherKoMessage {
def apply[S <: Seq[Node]](n: Expectable[S]) = {
result(isEqualIgnoringSpaceOrdered(node.toList, n.value.toList),
n.description + " is equal to " + q(node),
koMessage(n, node), n)
}
}
trait XmlMatcherKoMessage {
def koMessage[S <: Seq[Node]](n: Expectable[S], node: Seq[Node]) =
(n.description + " is not equal to " + q(node)) +
(if (n.value.toString() == node.toString)
"\nThe nodes have the same representation but contain different elements like {\"a\"} b (which is Text(\"a\") b) and a b" else "")
}
/**
* The XmlMatcher class matches an xml Node, or a list of Nodes against a list of search functions, which can either search for:
* a given direct child, with its label and/or attributes and/or attributes names and values
* a given child, direct or not (maybe deeply nested), with its label and/or attributes and/or attributes names and values
*
*
* XmlMatchers can be "chained" by using the \ or the \\ methods. In that case, the resulting matcher has a new
* search function which tries to match the result of the preceding function. For example
* must \\("c").\("d")
will be ok.
*/
case class XmlMatcher(functions: Seq[PathFunction]) extends Matcher[Seq[Node]] {
/** do an exact match on attributes and attributes values */
def exactly = XmlMatcher(functions.map(_.exactly))
/**
* checks that the `nodes` satisfy the `functions`
*/
def apply[S <: Seq[Node]](n: Expectable[S]) = {
val nodes = n
val (success, okMessage, koMessage) = checkFunctions(functions, nodes.value, (true, "", ""))
result(success,
nodes.description + okMessage,
nodes.description + koMessage, nodes)
}
def \(node: Node, attributeNames: String*): XmlMatcher =
new XmlMatcher(functions :+ new PathFunction(node, firstNodeSearch _, attributeNames.toList))
def \(node: Node, attributeValues: (String, String), attributeValues2: (String, String)*): XmlMatcher =
new XmlMatcher(functions :+ new PathFunction(node, firstNodeSearch _, Nil, Map((attributeValues :: attributeValues2.toList):_*)))
def \\(node: Node, attributeNames: String*): XmlMatcher =
new XmlMatcher(functions :+ new PathFunction(node, deepNodeSearch _, attributeNames.toList))
def \\(node: Node, attributeValues: (String, String), attributeValues2: (String, String)*): XmlMatcher =
new XmlMatcher(functions :+ new PathFunction(node, deepNodeSearch _, Nil, Map((attributeValues :: attributeValues2.toList):_*)))
/** alias for \ using the node label only */
def \(label: String, attributeNames: String*): XmlMatcher = \(label.toElem, attributeNames:_*)
def \(label: String, attributeValues: (String, String), attributeValues2: (String, String)*): XmlMatcher =
\(label.toElem, attributeValues, attributeValues2:_*)
/** alias for \\ using the node label only */
def \\(label: String, attributeNames: String*): XmlMatcher = \\(label.toElem, attributeNames:_*)
def \\(label: String, attributeValues: (String, String), attributeValues2: (String, String)*): XmlMatcher =
\\(label.toElem, attributeValues, attributeValues2:_*)
/**
* specify the value of the node text
*/
def textIs(t: String) = XmlMatcher(functions.updateLast(f => f.textIs(t)))
/** alias for textIs */
def \>(t: String) = textIs(t)
/**
* specify the value of the node text
*/
def textMatches(regexp: String) = XmlMatcher(functions.updateLast(f => f.textMatches(regexp)))
/** alias for textMatches */
def \>~(t: String) = textMatches(t)
/**
* checks that the `nodes` satisfy the `functions`
* @return a MatcherResult
*/
def checkFunctions(pathFunctions: Seq[PathFunction], nodes: Seq[Node], messages: (Boolean, String, String)): (Boolean, String, String) = {
// check the rest of the functions, with the nodes returned by the current function
// and build a MatcherResult being a success if the function retrieves some node
pathFunctions match {
case search :: functions => {
val nextNodes = search(nodes)
val searched = search.searchedElements
val (ok, ko) = (messages._2, messages._3)
val (newOk, newKo) =
(ok + " contains " + searched,
ok + " doesn't contain " + searched)
if (nextNodes.isEmpty) (false, newOk, newKo)
else checkFunctions(functions, nextNodes, (true, newOk, newKo))
}
case _ => messages
}
}
}
/**
* This object provides XPath functions in order to use them as parameters
*/
private[specs2]
object XPathFunctions extends XPathFunctions
trait XPathFunctions {
type XPathFunction = Function2[Node, String, NodeSeq]
/**
* @return the \ XPath function
*/
def firstNodeSearch(node: Node, label: String) = node \ label
/**
* @return the \\ XPath function
*/
def deepNodeSearch(node: Node, label: String) = node \\ label
}
/**
* The PathFunction object encapsulate a search for a node and/or attributes or attributeValues with an XPath function
* If `node` has some children, then they are searched using equality
*/
case class PathFunction(val node: Node,
val function: XPathFunction,
val attributes: List[String] = Nil,
val attributeValues: Map[String, String] = Map(),
exactMatch: Boolean = false,
textMessage: Option[String] = None,
textMatcher: Matcher[String] = AlwaysMatcher[String]()) extends Function1[Seq[Node], Seq[Node]] with XPathFunctions {
/**
* @return the node if it is found and matching the searched attributes and/or attribute values when specified
*/
def apply(nodes: Seq[Node]): Seq[Node] =
for { n <- nodes
found <- function(n, node.label) if (found.matchNode(node, attributes, attributeValues, exactMatch, textMatcher.test)) }
yield found
def exactly = copy(exactMatch = true)
/** add a matcher for the node text */
def textIs(t: String) = copy(textMessage = Some("with text: "+t), textMatcher = new BeEqualTo(t))
/** add a matcher for the node text with a regular exp */
def textMatches(regexp: String) = copy(textMessage = Some("with text matching: "+regexp), textMatcher = new BeMatching(regexp))
/**
* @return "subnode" or "node" depending on the type of search a direct child search or a general search
*/
def nodeLabel: String = (if (!function(, "a").isEmpty) "node " else "subnode " )+ q(node.label)
/**
* @return a string representation of attributes or attributeValues (one of them being empty by construction)
*/
def searchedAttributes = attributes.mkString(", ") + attributeValues.map(a=> a._1 + "=\"" + a._2 + "\"").mkString(" ")
/**
* @return a string representing the searched nodes, attributes, attribute values
*/
def searchedElements = {
val n = if (node.child.isEmpty) nodeLabel
else node.toString
val exactly = "exactly the " unless exactMatch
val attrs = if (attributes.isEmpty && attributeValues.isEmpty) None
else Some("with "+exactly+"attributes: " + searchedAttributes)
Seq(Some(n), attrs, textMessage).flatten.mkString(" ")
}
}
private[specs2] object StringToElem {
implicit def toElement(s: String): ToElem = new ToElem(s)
class ToElem(s: String) { def toElem: Elem = Elem(null, s, Null, TopScope, true) }
implicit def toNode(s: String): Elem = Elem(null, s, Null, TopScope, true)
}
