added a test to reproduce #321

poseidon-framework · Nov 21, 2024 · b862fdb · b862fdb
1 parent 682f6ba
commit b862fdb
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/test/Poseidon/InterfaceSpec.hs b/test/Poseidon/InterfaceSpec.hs
@@ -9,6 +9,7 @@ import           Test.Hspec
 spec :: Spec
 spec = do
     testParseInGenoOne
+    testParseInGenoSep
     testSplitExtensionsOptGz
 
 runParser :: OP.Parser a -> [String] -> Maybe a
@@ -29,6 +30,19 @@ testParseInGenoOne = describe
                                     "path/to/file.bim.gz" Nothing
                                     "path/to/file.fam"    Nothing)
 
+testParseInGenoSep :: Spec
+testParseInGenoSep = describe
+    "Poseidon.OptparseApplicativeParsers.parseInGenoSep" $ do
+        it "should return the expected paths for EIGENSTRAT data" $ do
+            runParser parseInGenoSep [
+                  "--genoFile", "path/to/file.test.geno.gz"
+                , "--snpFile",  "path/to/file.snp"
+                , "--indFile",  "path/to/file.ind"
+                ] `shouldBe`
+                Just (GenotypeEigenstrat "path/to/file.test.geno.gz" Nothing
+                                         "path/to/file.snp"          Nothing
+                                         "path/to/file.ind"          Nothing)
+
 testSplitExtensionsOptGz :: Spec
 testSplitExtensionsOptGz = describe
     "Poseidon.OptparseApplicativeParsers.testSplitExtensionsOptGz" $ do