;;;; run.scm - trivial test

(import (chicken process) (chicken io))

(define cc (with-input-from-pipe "csc -cc-name" read-line))
(assert (zero? (system (string-append "stalin -On -k -d1 -cc " cc " hello.scm"))))
(assert (zero? (system "./hello")))