1- (* Copyright (C) 2012 by ForNeVeR
2-
3- Permission is hereby granted, free of charge, to any person obtaining a copy
4- of this software and associated documentation files (the "Software"), to deal
5- in the Software without restriction, including without limitation the rights
6- to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
7- copies of the Software, and to permit persons to whom the Software is
8- furnished to do so, subject to the following conditions:
9-
10- The above copyright notice and this permission notice shall be included in
11- all copies or substantial portions of the Software.
12-
13- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
14- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
15- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
16- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
17- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
18- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
19- THE SOFTWARE. *)
20-
21- namespace Naggum.Test
22- open Naggum.Compiler
23- open NUnit.Framework
1+ namespace Naggum.Test
2+
243open System.Diagnostics
254open System.IO
265
27- [<TestFixture>]
6+ open Xunit
7+
8+ open Naggum.Compiler
9+
2810type CompilerTest () =
2911 static let testExtension = " naggum"
3012 static let resultExtension = " result"
@@ -45,12 +27,12 @@ type CompilerTest() =
4527 let startInfo = new ProcessStartInfo( executablePath, UseShellExecute = false , RedirectStandardOutput = true )
4628 let ``process`` = Process.Start startInfo
4729 `` process `` .WaitForExit()
48- let result = `` process `` .StandardOutput.ReadToEnd()
30+ let result = `` process `` .StandardOutput.ReadToEnd() .Replace ( " \r\n " , " \n " )
4931
50- let reference = File.ReadAllText resultPath
51- Assert.AreEqual ( reference, result)
32+ let reference = ( File.ReadAllText resultPath) .Replace ( " \r\n " , " \n " )
33+ Assert.Equal ( reference, result)
5234
53- [<Test >]
35+ [<Fact >]
5436 member this.RunTests () =
5537 filenames
56- |> List.iter CompilerTest.RunTest
38+ |> List.iter CompilerTest.RunTest
0 commit comments