Show that unicodeGraphShort works - references dotnet#338

forki · Mar 31, 2015 · 9826335 · 9826335
1 parent 1b68e6f
commit 9826335
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/fsharp/FSharp.Compiler.Unittests/Unicode.fs b/src/fsharp/FSharp.Compiler.Unittests/Unicode.fs
@@ -7,9 +7,21 @@ open System.Text
 
 open NUnit.Framework
 
+open Microsoft.FSharp.Compiler
+
 [<TestFixture>]
 type Unicodetest() =
 
+    [<Test>]
+    // checks #338
+    member this.``unicodeGraphShort should convert unicode chars``()=
+        Assert.AreEqual(54528us,Lexhelp.unicodeGraphShort "D500")
+        Assert.AreEqual(55040us,Lexhelp.unicodeGraphShort "D700")
+        Assert.AreEqual(55296us,Lexhelp.unicodeGraphShort "D800")
+        Assert.AreEqual(55552us,Lexhelp.unicodeGraphShort "D900")
+        Assert.AreEqual(57344us,Lexhelp.unicodeGraphShort "E000")
+
+
     [<Test>]
     // checks #338
     member this.``Escaped unicode characters are encoded correctly``()=