Test: add some tests for Naggum.Assembler.

Author: ForNeVeR

Naggum.Test/AssemblerTests.fs

@@ -0,0 +1,39 @@
+module Naggum.Test.AssemblerTest
+
+open System
+open System.IO
+open System.Text
+
+open Xunit
+
+open Naggum.Assembler
+open Naggum.Assembler.Representation
+
+let prepare (source : string) =
+    use stream = new MemoryStream(Encoding.UTF8.GetBytes source)
+    Assembler.prepare "file.ngi" stream
+
+[<Fact>]
+let ``Empty assembly should be processed`` () =
+    let source = "(.assembly Empty)"
+    let result = { Name = "Empty"; Units = List.empty }
+    Assert.Equal ([result], prepare source)
+
+[<Fact>]
+let ``Hello world assembly should be processed`` () =
+    let source = "(.assembly Hello
+  (.method Main () (.entrypoint)
+    (ldstr \"Hello, world!\")
+    (call `void System.Console::WriteLine(string)`)
+    (ret)))
+"
+    let result =
+        { Name = "Empty"
+          Units = [Method { Metadata = Set.singleton EntryPoint
+                            Visibility = Public
+                            Name = "Main"
+                            ReturnType = typeof<Void> 
+                            Body = [ Ldstr "Hello, world!"
+                                     Call (typeof<Console>.GetMethod("WriteLine", [| typeof<String> |]))
+                                     Ret ] } ] }
+    Assert.Equal ([result], prepare source)

Naggum.Test/Naggum.Test.fsproj

@@ -48,11 +48,12 @@
   </Choose>
   <Import Project="$(FSharpTargetsPath)" Condition="Exists('$(FSharpTargetsPath)')" />
   <ItemGroup>
-    <Compile Include="CompilerTest.fs" />
-    <Content Include="packages.config" />
     <Content Include="Naggum.Test.dll.config">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>
+    <Content Include="packages.config" />
+    <Compile Include="AssemblerTests.fs" />
+    <Compile Include="CompilerTest.fs" />
   </ItemGroup>
   <ItemGroup>
     <Reference Include="FSharp.Core, Version=$(TargetFSharpCoreVersion), Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -80,6 +81,11 @@
     </Reference>
   </ItemGroup>
   <ItemGroup>
+    <ProjectReference Include="..\Naggum.Assembler\Naggum.Assembler.fsproj">
+      <Name>Naggum.Assembler</Name>
+      <Project>{40b84f1e-1823-4255-80d4-1297613025c1}</Project>
+      <Private>True</Private>
+    </ProjectReference>
     <ProjectReference Include="..\Naggum.Compiler\Naggum.Compiler.fsproj">
       <Name>Naggum.Compiler</Name>
       <Project>{a4269c5e-e4ac-44bf-a06e-1b45248910ad}</Project>