Add further tests of NodeSeq

Author: ashawley

shared/src/test/scala/scala/xml/NodeSeqTest.scala

@@ -20,4 +20,84 @@ class NodeSeqTest{
 valexp=NodeSeq.fromSeq(Seq(<a>Hello</a>, <b>Hi</b>))
  assertEquals(exp, res)
  }
+
+@Test
+deftestAppendedAll:Unit={// Bug #392.
+vala:NodeSeq= <a>Hello</a>
+valb= <b>Hi</b>
+ a :+ <b>Hi</b> match{
+caseres: Seq[Node] => assertEquals(2, res.size)
+caseres: NodeSeq=> fail("Should be Seq[Node]") // Unreachable code?
+ }
+valres:NodeSeq= a :+ b
+valexp=NodeSeq.fromSeq(Seq(<a>Hello</a>, <b>Hi</b>))
+ assertEquals(exp, res)
+ }
+
+@Test
+deftestPrepended:Unit={
+vala:NodeSeq= <a>Hello</a>
+valb= <b>Hi</b>
+ a +: <b>Hi</b> match{
+caseres: Seq[NodeSeq] => assertEquals(2, res.size)
+caseres: NodeSeq=> fail("Should be NodeSeq was Seq[Node]") // Unreachable code?
+ }
+valres:Seq[NodeSeq] = a +: b
+valexp= <a>Hello</a><b>Hi</b>
+ assertEquals(exp, res)
+ }
+
+@Test
+deftestPrependedAll:Unit={
+vala:NodeSeq= <a>Hello</a>
+valb= <b>Hi</b>
+valc= <c>Hey</c>
+ a ++: <b>Hi</b> ++: <c>Hey</c> match{
+caseres: Seq[Node] => assertEquals(3, res.size)
+caseres: NodeSeq=> fail("Should be Seq[Node]") // Unreachable code?
+ }
+valres:NodeSeq= a ++: b ++: c
+valexp=NodeSeq.fromSeq(Seq(<a>Hello</a>, <b>Hi</b>, <c>Hey</c>))
+ assertEquals(exp, res)
+ }
+
+@Test
+deftestMap:Unit={
+vala:NodeSeq= <a>Hello</a>
+valexp:NodeSeq=Seq(<b>Hi</b>)
+ assertEquals(exp, a.map(_ => <b>Hi</b>))
+ assertEquals(exp, for{_ <- a } yield{<b>Hi</b>})
+ }
+
+@Test
+deftestFlatMap:Unit={
+vala:NodeSeq= <a>Hello</a>
+valexp:NodeSeq=Seq(<b>Hi</b>)
+ assertEquals(exp, a.flatMap(_ =>Seq(<b>Hi</b>)))
+ assertEquals(exp, for{b <- a; _ <- b } yield{<b>Hi</b>})
+ assertEquals(exp, for{b <- a; c <- b; _ <- c } yield{<b>Hi</b>})
+ }
+
+@Test
+deftestStringProjection:Unit={
+vala=
+ <a>
+ <b>b</b>
+ <b>
+ <cd="d">
+ <e>e</e>
+ <e>e</e>
+ </c>
+ <c>c</c>
+ </b>
+ </a>
+valres=for{
+ b <- a \"b"
+ c <- b.child
+ e <- (c \"e").headOption
+ } yield{
+ e.text.trim
+ }
+ assertEquals(Seq("e"), res)
+ }
 }