Fix #72 XMLEventReader does not handle ' properly

	* jvm/src/main/scala/scala/xml/Utility.scala: Uncomment apos in
	Escapes map.
	(escape): Add case for apos.

	* jvm/src/test/scala/scala/xml/pull/XMLEventReaderTest.scala (entityRefTest):
	Unit test from Fehmi Can Saglam <[email protected]>

Author: ashawley

jvm/src/test/scala/scala/xml/pull/XMLEventReaderTest.scala

@@ -2,7 +2,7 @@ package scala.xml
 package pull
 
 import org.junit.Test
-import org.junit.Assert.{assertFalse, assertTrue}
+import org.junit.Assert.{assertEquals,assertFalse, assertTrue}
 
 import scala.io.Source
 import scala.xml.parsing.FatalError
@@ -168,4 +168,28 @@ class XMLEventReaderTest {
     while(er.hasNext) er.next()
     er.stop()
   }
+
+  @Test
+  def entityRefTest: Unit = { // SI-7796
+    val source = Source.fromString("<text>&quot;&apos;&lt;&gt;&amp;</text>")
+    val er = new XMLEventReader(source)
+
+    assertTrue(er.next match {
+      case EvElemStart(_, "text", _, _) => true
+      case _ => false
+    })
+
+    assertEquals(EvEntityRef("quot"), er.next)
+    assertEquals(EvEntityRef("apos"), er.next)
+    assertEquals(EvEntityRef("lt"), er.next)
+    assertEquals(EvEntityRef("gt"), er.next)
+    assertEquals(EvEntityRef("amp"), er.next)
+
+    assertTrue(er.next match {
+      case EvElemEnd(_, "text") => true
+      case _ => false
+    })
+
+    assertTrue(er.isEmpty)
+  }
 }

shared/src/main/scala/scala/xml/Utility.scala

@@ -93,17 +93,14 @@ object Utility extends AnyRef with parsing.TokenTests {
      * For reasons unclear escape and unescape are a long ways from
      * being logical inverses.
      */
-    val pairs = Map(
+    val unescMap = Map(
       "lt" -> '<',
       "gt" -> '>',
       "amp" -> '&',
-      "quot" -> '"'
-    // enigmatic comment explaining why this isn't escaped --
-    // is valid xhtml but not html, and IE doesn't know it, says jweb
-    // "apos"  -> '\''
+      "quot" -> '"',
+      "apos"  -> '\''
     )
-    val escMap = pairs map { case (s, c) => c -> ("&%s;" format s) }
-    val unescMap = pairs ++ Map("apos" -> '\'')
+    val escMap = (unescMap - "apos") map { case (s, c) => c -> ("&%s;" format s) }
   }
   import Escapes.{ escMap, unescMap }
 

shared/src/main/scala/scala/xml/parsing/MarkupParser.scala

@@ -12,7 +12,7 @@ package parsing
 
 import scala.io.Source
 import scala.xml.dtd._
-import Utility.Escapes.{ pairs => unescape }
+import Utility.Escapes.{ unescMap => unescape }
 
 /**
  * An XML parser.

shared/src/main/scala/scala/xml/parsing/MarkupParserCommon.scala

@@ -12,7 +12,7 @@ package parsing
 
 import scala.io.Source
 import scala.annotation.switch
-import Utility.Escapes.{ pairs => unescape }
+import Utility.Escapes.{ unescMap => unescape }
 
 import Utility.SU
 

shared/src/test/scala/scala/xml/UtilityTest.scala

@@ -38,6 +38,13 @@ class UtilityTest {
     assertEquals("<bar>''</bar>", z1)
   }
 
+  @Test
+  def quotEscaping: Unit = {
+    val z = <bar>""</bar>
+    val z1 = z.toString
+    assertEquals("<bar>&quot;&quot;</bar>", z1)
+  }
+
   @Test
   def sort: Unit = {
     val q = xml.Utility.sort(<a g='3' j='2' oo='2' a='2'/>)