blob: 69faea55da05896d98d63785298a8395f4b07cf5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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")
|
