add tests for type provider

Author: kMutagene

build/PackageTasks.fs

@@ -29,6 +29,7 @@ let pack = BuildTask.create "Pack" [clean; build; runTests] {
                             "Version",stableVersionTag
                             "PackageReleaseNotes",  (release.Notes |> List.map replaceCommitLink |> String.concat "\r\n" )
                         ] @ p.MSBuildParams.Properties)
+                        DisableInternalBinLog = true
                     }
                 {
                     p with 
@@ -51,6 +52,7 @@ let packPrerelease = BuildTask.create "PackPrerelease" [setPrereleaseTag; clean;
                                     "Version", prereleaseTag
                                     "PackageReleaseNotes",  (release.Notes |> List.map replaceCommitLink  |> String.toLines )
                                 ] @ p.MSBuildParams.Properties)
+                                DisableInternalBinLog = true
                             }
                         {
                             p with 

build/TestTasks.fs

@@ -15,6 +15,10 @@ let runTests = BuildTask.create "RunTests" [clean; build] {
                     Logger = Some "console;verbosity=detailed"
                     Configuration = DotNet.BuildConfiguration.fromString configuration
                     NoBuild = true
+                    MSBuildParams = {
+                        testParams.MSBuildParams with
+                            DisableInternalBinLog = true
+                    }
             }
         ) testProject
     )
@@ -35,6 +39,7 @@ let runTestsWithCodeCov = BuildTask.create "RunTestsWithCodeCov" [clean; build]
                                 "AltCoverCobertura","../../codeCov.xml"
                                 "AltCoverForce","true"
                             ]
+                            DisableInternalBinLog = true
                     };
                     Logger = Some "console;verbosity=detailed"
             }

playground.fsx

@@ -17,7 +17,7 @@ let [<Literal>] oboPath = @"C:\Users\schne\source\repos\CSBiology\OBO.NET\tests\
 
 type go = OboTermsProvider<oboPath>
 
-go.``adult gena``
+go.``adult gena``.Synonyms.Length
 
 //open OBO.NET.CodeGeneration
 

tests/OBO.NET.Tests/OBO.NET.Tests.fsproj

@@ -9,13 +9,15 @@
   </PropertyGroup>
 
   <ItemGroup>
+    <None Include="References\go.obo" />
     <None Include="References\IncorrectHeaderTags.obo" />
     <None Include="References\DuplicateHeaderTags.obo" />
     <None Include="references\CorrectHeaderTags.obo" />
     <Compile Include="DBXref.Tests.fs" />
     <Compile Include="TermSynonym.Tests.fs" />
     <Compile Include="OboTerm.Tests.fs" />
     <Compile Include="OboOntology.Tests.fs" />
+    <Compile Include="TypeProviderTests.fs" />
     <Compile Include="Main.fs" />
   </ItemGroup>
 

tests/OBO.NET.Tests/TypeProviderTests.fs

@@ -0,0 +1,30 @@
+namespace OBO.NET.Tests
+
+open OBO.NET
+open OboProvider
+
+open Expecto
+
+open System
+open System.IO
+
+module TypeProviderTests =
+    
+    // use this for in-IDE support.
+    //let [<Literal>] oboPath = @"tests/OBO.NET.Tests/References/go.obo"
+
+    // use this for performing the test execution
+    let [<Literal>] oboPath = @"References/go.obo"
+
+    type go = OboTermsProvider<oboPath>
+
+    [<Tests>]
+    let oboOntologyTest =
+        testList "OboProvider" [
+            test "go term 'adult gena' is provided" {
+                let actual = go.``adult gena``
+                Expect.equal actual.Id "TGMA:0000031" "Expected term ID for 'adult gena' to be TGMA:0000031"
+                Expect.equal actual.Name "adult gena" "Expected term name for 'adult gena' to be 'adult gena'"
+                Expect.equal actual.Synonyms.Length 7 "Expected 'adult gena' to have 7 synonyms"
+            }
+        ]