
#!/bin/sh

source $testsuitedir/lib_test.sh

cat > PROGRAMME << EOP
	:new BLN
	FALSE -> &0
	:goto test
:label again_boolean
	TRUE -> &0
:label test
	:new INT
	:goto again_boolean :unless @&0 :true
	:new STR
	"" -> &3
	10 -> &1
:label again_value
	@&3 + "+" -> &3
	:decrease &1
	:goto again_value :unless @&1 = 0
	:size @&3 -> &2
:label again_string
	@&3 % "." -> &3
	:goto again_string :unless @&3 :empty
EOP

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

cat > MEMOIRE_REF << EOM
# Memory:
#> &0 : BLN TRUE
#> &1 : INT 0
#> &2 : INT 10
#> &3 : STR ""
# 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
