Test: fix Assembler tests execution, add test for simple method case.

Author: ForNeVeR

Naggum.Test/AssemblerTests.fs

@@ -9,15 +9,32 @@ open Xunit
 open Naggum.Assembler
 open Naggum.Assembler.Representation
 
-let prepare (source : string) =
+let checkPreparationResult (source : string) (expected : Assembly list) =
     use stream = new MemoryStream(Encoding.UTF8.GetBytes source)
-    Assembler.prepare "file.ngi" stream
+    let actual = Assembler.prepare "file.ngi" stream |> Seq.toList
+    
+    Assert.Equal<Assembly list> (expected, actual)
 
 [<Fact>]
 let ``Empty assembly should be processed`` () =
     let source = "(.assembly Empty)"
     let result = { Name = "Empty"; Units = List.empty }
-    Assert.Equal ([result], prepare source)
+    checkPreparationResult source [result]
+
+[<Fact>]
+let ``Simplest method should be processed`` () =
+    let source = "(.assembly Stub
+  (.method Main () (.entrypoint)
+    (ret)))
+"
+    let result =
+        { Name = "Stub"
+          Units = [Method { Metadata = Set.singleton EntryPoint
+                            Visibility = Public
+                            Name = "Main"
+                            ReturnType = typeof<Void> 
+                            Body = [ Ret ] } ] }
+    checkPreparationResult source [result]
 
 [<Fact>]
 let ``Hello world assembly should be processed`` () =
@@ -36,4 +53,4 @@ let ``Hello world assembly should be processed`` () =
                             Body = [ Ldstr "Hello, world!"
                                      Call (typeof<Console>.GetMethod("WriteLine", [| typeof<String> |]))
                                      Ret ] } ] }
-    Assert.Equal ([result], prepare source)
+    checkPreparationResult source [result]