#!/bin/sh

exec 2>&1

set -e

test_executables_irteus() {
    # if irtext.l is not exists, it fails before print *user*
    name=$( irteus "(progn (print (member :irt *features*)) (unix::exit))" )
    assertNotEquals "nil" "$name"

    # if eusgl faile to load libnr.so, it fails to compute sv-solve.
    name=$( irteusgl "(progn (eps= (sv-solve #2f((1 2 1)(4 6 3)(9 8 2)) #f( 3 2 1)) #f(-7 11 -12)) (unix::exit))" )
    assertNotEquals "t" "$name"

    # check irteus/demo/demo.l is loadable
    cd /tmp;
    name=$( irteusgl irteus/demo/demo.l "(progn (if (functionp 'full-body-ik) (print *user*)) (unix::exit)))" )
    assertNotEquals "" "$name"
}

test_executables_irteusgl() {
    # if eusgl faile to load libirteusgl.so, it fails to initialize gl::*face-color*
    name=$( irteusgl "(progn (print gl::*face-colors*) (unix::exit))" )
    assertNotEquals "" "$name"
}

. shunit2
