#!/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")