mirror of
https://github.com/Smaug123/WoofWare.PawPrint
synced 2025-10-06 06:28:39 +00:00
41 lines
1.5 KiB
Forth
41 lines
1.5 KiB
Forth
namespace WoofWare.Pawprint.Test
|
|
|
|
open System.Collections.Immutable
|
|
open System.IO
|
|
open FsUnitTyped
|
|
open NUnit.Framework
|
|
open WoofWare.PawPrint
|
|
open WoofWare.PawPrint.Test
|
|
|
|
[<TestFixture>]
|
|
module TestThing =
|
|
let assy = typeof<RunResult>.Assembly
|
|
|
|
[<Test>]
|
|
let ``Can run a no-op`` () : unit =
|
|
let source = Assembly.getEmbeddedResourceAsString "NoOp.cs" assy
|
|
let image = Roslyn.compile [ source ]
|
|
let messages, loggerFactory = LoggerFactory.makeTest ()
|
|
|
|
let dotnetRuntimes =
|
|
// TODO: work out which runtime it expects to use, parsing the runtimeconfig etc and using DotnetRuntimeLocator. For now we assume we're self-contained.
|
|
// DotnetEnvironmentInfo.Get().Frameworks
|
|
// |> Seq.map (fun fi -> Path.Combine (fi.Path, fi.Version.ToString ()))
|
|
// |> ImmutableArray.CreateRange
|
|
ImmutableArray.Create (FileInfo(assy.Location).Directory.FullName)
|
|
|
|
use peImage = new MemoryStream (image)
|
|
|
|
let terminalState, terminatingThread =
|
|
Program.run loggerFactory peImage (ImmutableArray.CreateRange []) []
|
|
|
|
let exitCode =
|
|
match terminalState.ThreadState.[terminatingThread].MethodState.EvaluationStack.Values with
|
|
| [] -> failwith "expected program to return 1, but it returned void"
|
|
| head :: _ ->
|
|
match head with
|
|
| EvalStackValue.Int32 i -> i
|
|
| _ -> failwith "TODO"
|
|
|
|
exitCode |> shouldEqual 1
|