Updated testscript

eggzilla · Nov 12, 2016 · 14e7a19 · 14e7a19
1 parent 4f6584b
commit 14e7a19
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/BlastHTTPTest.hs b/BlastHTTPTest.hs
@@ -1,5 +1,5 @@
 -- | BlastHTTP test script
--- /scr/kronos/egg/ghc/ghc/bin/runghc BlastHTTPTest.hs /home/mescalin/egg/initialfasta/RybB/aeromonas.fa
+--runghc -package-db --ghc-arg=.cabal-sandbox/x86_64-linux-ghc-8.0.1-packages.conf.d/ BlastHTTPTest.hs aeromonas.fa
 
 module Main where
 
@@ -24,7 +24,7 @@ main = do
   putStrLn "Test:"
   inputFasta <- readFasta input_file
   --let blastQuery = BlastHTTPQuery (Just "ebi") (Just "blastn") (Just "em_rel_mam") (Just fastaSeqData) Nothing
-  let blastQuery = BlastHTTPQuery (Just "ncbi") (Just "blastn") (Just "nt") inputFasta Nothing
+  let blastQuery = BlastHTTPQuery (Just "ncbi") (Just "blastn") (Just "nt") inputFasta Nothing (Just (7200000000 ::Int))
   blastOutput <- blastHTTP blastQuery 
   print blastOutput
 
diff --git a/aeromonas.fa b/aeromonas.fa
@@ -0,0 +1,2 @@
+>Aeromonas salmonicida subsp. salmonicida A449
+GAAGGCACGACAUUGCUCACAUUGCUUCCAGUUAUAGGGCCAGUUCUUCUGGCCCUCUUUUU