#!/bin/sh

source $testsuitedir/lib_test.sh

cat > PROGRAMME << EOP
	:new INT
	:call func1 &0
	:new INT
	:new PTR
	:new INT
	:call func3 &10
	:new INT
	:shutdown
:label func1
	:new STR
	:call func2 &0
	:new STR
	:return
:label func2
	:new BLN
	:return 2
:label func3
	:new STR
	:call func4 &10
	:new STR
	:return
:label func4
	:new BLN
	:return 0 :unless :current :defined
EOP

cat > MEMOIRE_INITIALE << EOM
# Memory:
# Aliases:
# Free addresses:
# Free blocks:
# End of memory
EOM

cat > MEMOIRE_REF << EOM
# Memory:
#> &0 : INT
#> &1 : STR
#> &2 : BLN
#> &3 : INT
#> &4 : PTR
#> &5 : INT
#> &6 : STR
#> &7 : BLN
#> &8 : INT
# Aliases:
# Free addresses:
# Free blocks:
# End of memory
EOM

cat > STDOUT_REF << EOS
EOS

cat > STDERR_REF << EOS
EOS

cat > CODE_RETOUR_REF << EOC
0
EOC

test_basique
