File tree Expand file tree Collapse file tree 3 files changed +3
-1
lines changed Expand file tree Collapse file tree 3 files changed +3
-1
lines changed Original file line number Diff line number Diff line change @@ -37,7 +37,7 @@ let processMethodSignature = function
3737 ContainingType = Some ( resolveType typeName) // TODO: Resolve methods without a type (e.g. assembly methods)
3838 Name = methodName
3939 ArgumentTypes = resolveTypes argumentTypes
40- ReturnType = resolveType typeName }
40+ ReturnType = resolveType returnType }
4141 | other -> failwithf " Unrecognized method signature: %A " other
4242
4343let processInstruction = function
Original file line number Diff line number Diff line change @@ -36,3 +36,4 @@ type AssemblyUnit =
3636type Assembly =
3737 { Name : string
3838 Units : AssemblyUnit list }
39+ override this.ToString () = sprintf " %A " this
Original file line number Diff line number Diff line change @@ -31,6 +31,7 @@ let checkPreparationResult (source : string) (expected : Assembly list) =
3131 use stream = new MemoryStream( Encoding.UTF8.GetBytes source)
3232 let actual = Assembler.prepare " file.ngi" stream |> Seq.toList
3333
34+ Assert.Equal ( expected.ToString (), actual.ToString ()) // for diagnostic
3435 Assert.Equal< Assembly list> ( expected, actual)
3536
3637[<Fact>]
You can’t perform that action at this time.
0 commit comments