#!/bin/sh

exec 2>&1

set -e

test_eus0_compile() {
    # check if compile works.
    echo "(eval-when (load eval) (defun foo () (print *user*)))" > foo.l
    name=$( eus0 "(progn (compile-file \"foo.l\") (unix::unlink \"foo.l\") (load \"foo.so\") (foo) (unix::exit))" )
    assertNotEquals "" "$name"

    echo "(eval-when (load eval) (defun bar () (print *user*)))" > bar.l
    name=$( eus0 "(progn (compile-file-if-src-newer \"bar.l\") (unix::unlink \"bar.l\") (load \"bar.so\") (bar) (unix::exit))" )
    assertNotEquals "" "$name"

    name=$( eus0 "(progn (compile-file-if-src-newer \"/usr/share/euslisp/lisp/comp/comp.l\") (load \"comp.so\") (print *user*) (unix::exit))" )
    assertNotEquals "" "$name"
}

. shunit2
