#!/bin/sh
set -C -e -u
cd "$AUTOPKGTEST_TMP"

cp -a /usr/share/doc/asis-programs/examples/tutorial/using_asistant/ex_p*.ad[bs] .
gnatmake -eS -v -c -gnatc -gnatt ex_proc.adb
cat > script <<EOF
set (Cont)
initialize ("")
associate (Cont, "", "")
open (Cont)
set (CU_1, Compilation_Unit_Body ("Ex_Proc", cont))
print (Unit_Full_Name (CU_1))
Close (Cont)
Dissociate (Cont)
Finalize ("")
quit
EOF
asistant script
