2 files changed, 24 insertions, 12 deletions
diff --git a/test/test-mdb-integration.scm b/test/test-mdb-integration.scm
new file mode 100755
index 0000000..69faea5
--- /dev/null
+++ b/test/test-mdb-integration.scm
@@ -0,0 +1,24 @@
+#!/bin/sh
+# -*- mode: scheme; -*-
+exec guile --debug -s "$0" "$@"
+!#
+
+(define-module (test-runner)
+  #:use-module (ice-9 match)
+  #:use-module (srfi srfi-1)  ; for last
+  #:use-module (srfi srfi-13)
+  #:use-module (srfi srfi-64) ; for tests
+  #:use-module (ice-9 rdelim)
+  )
+
+(define kinship-fn "./output/mouse_hs1940.cXX.txt")
+(define gwa-fn "./output/mouse_hs1940.assoc.txt")
+
+(test-begin "uvlmm-mdb-kinship-run")
+
+(when (file-exists? kinship-fn)
+  (delete-file kinship-fn))
+(let [(err (system "./build/bin/Debug/gemma -g ./example/mouse_hs1940.geno.mdb -p ./example/mouse_hs1940.pheno.txt -gk -o mouse_hs1940 -debug"))]
+  (test-eqv 0 err))
+
+(test-end "uvlmm-mdb-kinship-run")
diff --git a/test/test-uvlmm-integration.scm b/test/test-uvlmm-integration.scm
index 10af32f..91eb14a 100644..100755
--- a/test/test-uvlmm-integration.scm
+++ b/test/test-uvlmm-integration.scm
@@ -14,16 +14,6 @@ exec guile --debug -s "$0" "$@"
 (define kinship-fn "./output/mouse_hs1940.cXX.txt")
 (define gwa-fn "./output/mouse_hs1940.assoc.txt")
 
-(test-begin "uvlmm-mdb-kinship-run")
-
-(when (file-exists? kinship-fn)
-  (delete-file kinship-fn))
-(let [(err (system "./build/bin/Debug/gemma -g ./example/mouse_hs1940.geno.mdb -p ./example/mouse_hs1940.pheno.txt -gk -o mouse_hs1940 -debug"))]
-  (test-eqv 0 err))
-
-(test-end "uvlmm-mdb-kinship-run")
-
-#!
 (test-begin "uvlmm-bimbam-kinship-run")
 
 (when (file-exists? kinship-fn)
@@ -60,5 +50,3 @@ exec guile --debug -s "$0" "$@"
                     (+ sum (truncate (* 1000 value))))))))))
 
 (test-end "uvlmm-bimbam-gwa-run")
-
-!#