Add function to return OboTerm as CvTerm

src/OBO.NET/OboTerm.fs

@@ -3,10 +3,12 @@
 open DBXref
 open TermSynonym
 
-open ARCtrl.ISA
-
 open System
 
+open ARCtrl.ISA
+open ControlledVocabulary
+open FSharpAux
+
 
 /// Models the entities in an OBO Ontology.
 type OboTerm = 
@@ -540,6 +542,18 @@ type OboTerm =
     static member getRelatedTermIds (term : OboTerm) =
         term.GetRelatedTermIds()
 
+    /// Returns the corresponding CvTerm of the OboTerm.
+    member this.ToCvTerm() =
+        let tsr = 
+            String.split ':' this.Id
+            |> Array.head
+            |> String.trim
+        CvTerm.create(this.Id, this.Name, tsr)
+
+    /// Returns the corresponding CvTerm of the given OboTerm.
+    static member toCvTerm (term : OboTerm) =
+        term.ToCvTerm()
+
 
 /// Representation of a the relation an OboTerm can have with other OboTerms.
 type TermRelation<'a> =

tests/OBO.NET.Tests/OboTerm.Tests.fs

@@ -2,10 +2,13 @@ namespace OBO.NET.Tests
 
 open Expecto
 open OBO.NET
+open ControlledVocabulary
 
 
 module OboTermTests =
 
+    let testTerm1 = OboTerm.Create("test:001", Name = "TestTerm1")
+
     [<Tests>]
     let oboTermTest =
         testList "OboTerm" [
@@ -35,4 +38,12 @@ module OboTermTests =
                     ]
                     Expect.sequenceEqual actual expected ""
             ]
+            testList "ToCvTerm" [
+                testCase "returns correct CvTerm" <| fun _ ->
+                    let actual = OboTerm.toCvTerm testTerm1
+                    let expected = CvTerm.create("test:001", "TestTerm1", "test")
+                    Expect.equal actual.RefUri expected.RefUri "TSRs are different"
+                    Expect.equal actual.Name expected.Name "Names are different"
+                    Expect.equal actual.Accession expected.Accession "TANs are different"
+            ]
         ]