[WIP] Migrate "fsharpqa" suite to use NUnit

tests/fsharp/Commands.fs

@@ -101,6 +101,10 @@ let msbuild exec msbuildExe flags srcFiles =
 let resgen exec resgenExe flags sources =
     exec resgenExe (sprintf "%s %s" flags (sources |> Seq.ofList |> String.concat " "))
 
+// %LINK_EXE% /dump /headers %AssemblyPath%
+let link exec linkExe flags sources =
+    exec linkExe (sprintf "%s %s" flags (sources |> Seq.ofList |> String.concat " "))
+
 let internal quotepath (p: FilePath) =
     let quote = '"'.ToString()
     if p.Contains(" ") 

tests/fsharpqa/Source/.gitignore

@@ -3,3 +3,23 @@
 *.exe
 *.dll
 *.pdb
+*.il
+
+# test specific
+
+EntryPoint/E_CompilingToAModule01.netmodule
+
+XmlDoc/Basic/xmlDoc00*.xml
+XmlDoc/Basic/XMLDocOnEnum01.xml
+XmlDoc/OCamlDoc/ocamldoc001.xml
+
+Conformance/LexicalAnalysis/IdentifiersAndKeywords/test.ok
+
+Conformance/Signatures/SignatureConformance/InternalAccessibility02.fsi
+
+Stress/2766.fs
+Stress/SeqExprCapacity.fs
+
+CompilerOptions/fsc/subsystemversion/dummy.netmodule
+
+CompilerOptions/fsi/help/help.txt

tests/fsharpqa/Source/ClrFx/PseudoCustomAttributes/AssemblyAlgorithmId/AssemblyAlgorithmId_001.fs

@@ -2,7 +2,7 @@
 // AssemblyAttributes
 // See FSHARP1.0:832,1674,1675 and 2290
 // Attribute under test:  AssemblyAlgorithmId
-//<Expects status=success></Expects>
+//<Expects status="success"></Expects>
 
 #light
 

tests/fsharpqa/Source/ClrFx/PseudoCustomAttributes/AssemblyCompany/AssemblyCompany_001.fs

@@ -1,7 +1,7 @@
 // AssemblyAttributes
 // See FSHARP1.0:832,1674,1675 and 2290
 // Attribute under test:  AssemblyCompany
-//<Expects status=success></Expects>
+//<Expects status="success"></Expects>
 
 #light
 

tests/fsharpqa/Source/ClrFx/PseudoCustomAttributes/AssemblyConfiguration/AssemblyConfiguration_001.fs

@@ -2,7 +2,7 @@
 // AssemblyAttributes
 // See FSHARP1.0:832,1674,1675 and 2290
 // Attribute under test:  AssemblyConfiguration
-//<Expects status=success></Expects>
+//<Expects status="success"></Expects>
 
 #light
 

tests/fsharpqa/Source/ClrFx/PseudoCustomAttributes/AssemblyCopyright/AssemblyCopyright_001.fs

@@ -1,7 +1,7 @@
 // AssemblyAttributes
 // See FSHARP1.0:832,1674,1675 and 2290
 // Attribute under test:  AssemblyCopyright
-//<Expects status=success></Expects>
+//<Expects status="success"></Expects>
 
 #light
 

tests/fsharpqa/Source/ClrFx/PseudoCustomAttributes/AssemblyDescription/AssemblyDescription_001.fs

@@ -1,7 +1,7 @@
 // AssemblyAttributes
 // See FSHARP1.0:832,1674,1675 and 2290
 // Attribute under test:  AssemblyDescription
-//<Expects status=success></Expects>
+//<Expects status="success"></Expects>
 
 #light
 

tests/fsharpqa/Source/ClrFx/PseudoCustomAttributes/AssemblyFileVersion/AssemblyFileVersion_001.fs

@@ -1,7 +1,7 @@
 // AssemblyAttributes
 // See FSHARP1.0:832,1674,1675 and 2290
 // Attribute under test:  AssemblyFileVersion
-//<Expects status=success></Expects>
+//<Expects status="success"></Expects>
 
 #light
 

tests/fsharpqa/Source/ClrFx/PseudoCustomAttributes/AssemblyInformationalVersion/AssemblyInformationalVersion_001.fs

@@ -1,7 +1,7 @@
 // AssemblyAttributes
 // See FSHARP1.0:832,1674,1675 and 2290
 // Attribute under test:  AssemblyInformationalVersion
-//<Expects status=success></Expects>
+//<Expects status="success"></Expects>
 
 #light
 

tests/fsharpqa/Source/ClrFx/PseudoCustomAttributes/AssemblyProduct/AssemblyProduct_001.txt

@@ -1,7 +1,7 @@
 // AssemblyAttributes
 // See FSHARP1.0:832,1674,1675 and 2290
 // Attribute under test:  AssemblyProduct
-//<Expects status=success></Expects>
+//<Expects status="success"></Expects>
 
 #light
 

tests/fsharpqa/Source/ClrFx/PseudoCustomAttributes/AssemblyTitle/AssemblyTitle_001.fs

@@ -1,7 +1,7 @@
 // AssemblyAttributes
 // See FSHARP1.0:832,1674,1675 and 2290
 // Attribute under test:  AssemblyTitle
-//<Expects status=success></Expects>
+//<Expects status="success"></Expects>
 
 #light
 

tests/fsharpqa/Source/ClrFx/PseudoCustomAttributes/AssemblyTrademark/AssemblyTrademark_001.fs

@@ -1,7 +1,7 @@
 // AssemblyAttributes
 // See FSHARP1.0:832,1674,1675 and 2290
 // Attribute under test:  AssemblyTrademark
-//<Expects status=success></Expects>
+//<Expects status="success"></Expects>
 
 #light
 

tests/fsharpqa/Source/ClrFx/PseudoCustomAttributes/AssemblyVersion/AssemblyVersion_001.fs

@@ -2,7 +2,7 @@
 // AssemblyAttributes
 // See FSHARP1.0:832,1674,1675 and 2290
 // Attribute under test:  AssemblyVersion
-//<Expects status=success></Expects>
+//<Expects status="success"></Expects>
 
 #light
 

tests/fsharpqa/Source/ClrFx/PseudoCustomAttributes/test_ClrFx_PseudoCustomAttributes.fs

@@ -0,0 +1,107 @@
+module ``FSharpQA-Tests-ClrFx-PseudoCustomAttributes``
+
+open NUnit.Framework
+
+open NUnitConf
+open RunPlTest
+
+
+module AssemblyAlgorithmId =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/AssemblyAlgorithmId")>]
+    let AssemblyAlgorithmId () = runpl |> check
+
+
+module AssemblyCompany =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/AssemblyCompany")>]
+    let AssemblyCompany () = runpl |> check
+
+module AssemblyConfiguration =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/AssemblyConfiguration")>]
+    let AssemblyConfiguration () = runpl |> check
+
+
+module AssemblyCopyright =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/AssemblyCopyright")>]
+    let AssemblyCopyright () = runpl |> check
+
+
+module AssemblyDescription =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/AssemblyDescription")>]
+    let AssemblyDescription () = runpl |> check
+
+
+module AssemblyFileVersion =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/AssemblyFileVersion")>]
+    let AssemblyFileVersion () = runpl |> check
+
+
+module AssemblyInformationalVersion =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/AssemblyInformationalVersion")>]
+    let AssemblyInformationalVersion () = runpl |> check
+
+
+module AssemblyProduct =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/AssemblyProduct")>]
+    let AssemblyProduct () = runpl |> check
+
+
+module AssemblyTitle =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/AssemblyTitle")>]
+    let AssemblyTitle () = runpl |> check
+
+
+module AssemblyTrademark =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/AssemblyTrademark")>]
+    let AssemblyTrademark () = runpl |> check
+
+
+module AssemblyVersion =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/AssemblyVersion")>]
+    let AssemblyVersion () = runpl |> check
+
+
+module NYI_AssemblyCulture =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/NYI_AssemblyCulture")>]
+    let NYI_AssemblyCulture () = runpl |> check
+
+
+module NYI_AssemblyDefaultAlias =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/NYI_AssemblyDefaultAlias")>]
+    let NYI_AssemblyDefaultAlias () = runpl |> check
+
+
+module NYI_AssemblyDelaySign =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/NYI_AssemblyDelaySign")>]
+    let NYI_AssemblyDelaySign () = runpl |> check
+
+
+module NYI_AssemblyFlags =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/NYI_AssemblyFlags")>]
+    let NYI_AssemblyFlags () = runpl |> check
+
+
+module NYI_AssemblyKeyFile =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/NYI_AssemblyKeyFile")>]
+    let NYI_AssemblyKeyFile () = runpl |> check
+
+
+module NYI_AssemblyKeyName =
+
+    [<Test; FSharpQASuiteTest("ClrFx/PseudoCustomAttributes/NYI_AssemblyKeyName")>]
+    let NYI_AssemblyKeyName () = runpl |> check

tests/fsharpqa/Source/CodeGen/EmittedIL/Misc/ModuleWithExpression01.fs

@@ -1,7 +1,7 @@
 // #Regression #NoMono #NoMT #CodeGen #EmittedIL 
 // Regression test for FSHARP1.0:2644 (a module may start with an expression)
 // Verify that we can compile a module with an expression in it
-//<Expects status=success></Expects>
+//<Expects status="success"></Expects>
 #light
 
 module M = 

tests/fsharpqa/Source/CodeGen/EmittedIL/test_codegen_emittedil.fs

@@ -0,0 +1,120 @@
+module ``FSharpQA-Tests-CodeGen-EmittedIL``
+
+open NUnit.Framework
+
+open NUnitConf
+open RunPlTest
+
+
+module AsyncExpressionStepping =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/AsyncExpressionStepping")>]
+    let AsyncExpressionStepping () = runpl |> check
+
+module AttributeTargets =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/AttributeTargets")>]
+    let AttributeTargets () = runpl |> check
+
+module CCtorDUWithMember =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/CCtorDUWithMember")>]
+    let CCtorDUWithMember () = runpl |> check
+
+module CompiledNameAttribute =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/CompiledNameAttribute")>]
+    let CompiledNameAttribute () = runpl |> check
+
+module ComputationExpressions =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/ComputationExpressions")>]
+    let ComputationExpressions () = runpl |> check
+
+module DoNotBoxStruct =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/DoNotBoxStruct")>]
+    let DoNotBoxStruct () = runpl |> check
+
+module GeneratedIterators =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/GeneratedIterators")>]
+    let GeneratedIterators () = runpl |> check
+
+module InequalityComparison =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/InequalityComparison")>]
+    let InequalityComparison () = runpl |> check
+
+module ListExpressionStepping =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/ListExpressionStepping")>]
+    let ListExpressionStepping () = runpl |> check
+
+module MethodImplAttribute =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/MethodImplAttribute")>]
+    let MethodImplAttribute () = runpl |> check
+
+module Misc =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/Misc")>]
+    let Misc () = runpl |> check
+
+module Mutation =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/Mutation")>]
+    let Mutation () = runpl |> check
+
+module Operators =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/Operators")>]
+    let Operators () = runpl |> check
+
+module QueryExpressionStepping =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/QueryExpressionStepping")>]
+    let QueryExpressionStepping () = runpl |> check
+
+module SeqExpressionStepping =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/SeqExpressionStepping")>]
+    let SeqExpressionStepping () = runpl |> check
+
+module SeqExpressionTailCalls =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/SeqExpressionTailCalls")>]
+    let SeqExpressionTailCalls () = runpl |> check
+
+module SerializableAttribute =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/SerializableAttribute")>]
+    let SerializableAttribute () = runpl |> check
+
+module StaticInit =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/StaticInit")>]
+    let StaticInit () = runpl |> check
+
+module SteppingMatch =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/SteppingMatch")>]
+    let SteppingMatch () = runpl |> check
+
+
+
+module TailCalls =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/TailCalls")>]
+    let TailCalls () = runpl |> check
+
+module TestFunctions =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/TestFunctions")>]
+    let TestFunctions () = runpl |> check
+
+module Tuples =
+
+    [<Test; FSharpQASuiteTest("CodeGen/EmittedIL/Tuples")>]
+    let Tuples () = runpl |> check
+

tests/fsharpqa/Source/CodeGen/Structure/env.lst

@@ -40,8 +40,8 @@
 
 	SOURCE=LocalTypeFunctionInIf.fs   # LocalTypeFunctionInIf.fs
 
-	REM DoNotInlineX.fs is a driver for the tests that follow
-	REM The command line args are explained in the source file
+# DoNotInlineX.fs is a driver for the tests that follow
+# The command line args are explained in the source file
 	SOURCE=DoNotInlineX.fs							# DoNotInlineX.fs
 	SOURCE=dummy.fs  POSTCMD="DoNotInlineX.exe PASS1 BASE_CALL 2 3"		# DoNotInlineBaseCalls.fs
 	SOURCE=dummy.fs  POSTCMD="DoNotInlineX.exe PASS1 CAS 10 11"		# DoNotInlineCASMethods.fs