#!/bin/sh

exec 2>&1

set -e

test_compile_jskeus() {
    git clone --depth=1 https://salsa.debian.org/science-team/jskeus
    dpkg-source --before-build jskeus
    make -C jskeus
    DESTDIR=$PWD make -C jskeus install
    # install
    eval "$(dpkg-architecture)"
    export EUSDIR=$PWD/jskeus
    sed -i s%@@DEB_HOST_MULTIARCH@@%../../$PWD/usr/lib/$DEB_HOST_MULTIARCH% jskeus/irteus/irtext.l
    mkdir -p $EUSDIR/lib
    mkdir -p usr/lib/$DEB_HOST_MULTIARCH/jskeus/
    install jskeus/irteus/irtext.l $EUSDIR/lib/
    cp -r /usr/share/euslisp/lib/* $EUSDIR/lib/
    cp -r /usr/share/euslisp/include $EUSDIR/
    cp -r /usr/share/euslisp/lisp $EUSDIR/
    cp usr/lib/*.so usr/lib/$DEB_HOST_MULTIARCH/jskeus/
    (cd usr/bin; ln -sf /usr/bin/eus irteus; ln -sf /usr/bin/eusgl irteusgl)
}

test_jskeus() {
    export EUSDIR=$PWD/jskeus/
    export PATH=$PWD/usr/bin:$PATH
    export LD_LIBRARY_PATH=$PWD/lib/$DEB_HOST_MULTIARCH/lib:$LD_LIBRARY_PATH
    for test_l in jskeus/irteus/test/*.l; do
        irteusgl $test_l;
	irteusgl "(let ((o (namestring (merge-pathnames \".o\" \"$test_l\"))) (so (namestring (merge-pathnames \".so\" \"$test_l\")))) (compile-file \"$test_l\" :o o) (if (probe-file so) (load so) (exit 1))))"
    done
}

. shunit2
