;;;; run.scm - generic tests


(use setup-api utils)


(define-syntax runhere 
  (syntax-rules ()
    ((_ prg)
     (cond-expand
      (mingw32 (system* "~a" 'prg))
      (else (system* "./~a" 'prg))))))

(run (rm -f m?.so m?.import.scm m?.import.so))
(run (csi -s t1.scm))
(run (csi -s m1.scm))
(run (csc m1.scm -o m1))
(runhere m1)
(run (csc bench.scm -O5 -bf))
(runhere bench)