diff options
Diffstat (limited to 'projects/Stacker/test')
56 files changed, 0 insertions, 483 deletions
diff --git a/projects/Stacker/test/Makefile b/projects/Stacker/test/Makefile deleted file mode 100644 index 52112cba20..0000000000 --- a/projects/Stacker/test/Makefile +++ /dev/null @@ -1,61 +0,0 @@ -##===- projects/Stacker/test/Makefile ----------------------*- Makefile -*-===## -# -# This is the makefile that tests the various facilities of the Stacker language -# -##===----------------------------------------------------------------------===## - -# -# Indicates our relative path to the top of the project's root directory. -# -LEVEL = ../ - -# -# Directories that need to be built. -# -DIRS = - -# -# Include the Master Makefile that knows how to build all. -# -include $(LEVEL)/Makefile.common - -LOGIC_TESTS = eq ne le ge gt lt false true -BITWISE_TESTS = shl shr xor or and -ARITHMETIC_TESTS = abs neg add sub mul div mod star_slash incr decr min max -STACK_TESTS = drop drop2 nip nip2 dup dup2 swap swap2 over over2 rot rot2 \ - rrot rrot2 tuck tuck2 roll pick select -MEMORY_TESTS = memory -CONTROL_TESTS = while return -IO_TESTS = space tab out_chr out_num out_str - -TESTS = $(LOGIC_TESTS) $(ARITHMETIC_TESTS) $(BITWISE_TESTS) $(STACK_TESTS) \ - $(MEMORY_TESTS) $(CONTROL_TESTS) $(IO_TESTS) - -LLVMC = $(LLVMToolDir)/llvmc - -all :: test_each - -test_each: $(TESTS) - $(Echo) "Running Tests..." - $(Verb) LD_LIBRARY_PATH=$(PROJ_OBJ_ROOT)/lib/$(CONFIGURATION) \ - $(PROJ_SRC_DIR)/runtests $(PROJ_OBJ_DIR) $(TESTS) - -% : %.st Makefile testing.bc - $(Echo) "Building $*" - $(Verb)$(LLVMC) -O4 -o $@ $< testing.bc -L$(LibDir) - -testing.bc : testing.st Makefile - $(Echo) "Compiling $*" - $(Verb)$(LLVMC) -O3 -c -o $@ $< - -TESTS_LL = $(TESTS:%=%.ll) -TESTS_BC = $(TESTS:%=%.bc) -TESTS_S = $(TESTS:%=%.s) - -clean :: - $(Verb)rm -f gmon.out $(TESTS_LL) $(TESTS_BC) $(TESTS_S) $(TESTS) \ - testing.bc testing.s testing.ll - -.SUFFIXES: .st .s .ll .bc -.PRECIOUS: %.s %.ll %.bc %.st -.PHONY: test_each diff --git a/projects/Stacker/test/abs.st b/projects/Stacker/test/abs.st deleted file mode 100644 index 8dde286a8b..0000000000 --- a/projects/Stacker/test/abs.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# ABS test -# -FORWARD success; -FORWARD failure; -: MAIN -23 ABS 23 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/add.st b/projects/Stacker/test/add.st deleted file mode 100644 index 89d5a9cb68..0000000000 --- a/projects/Stacker/test/add.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# ADD test -# -FORWARD success; -FORWARD failure; -: step2 7 93 + 100 = IF success ELSE failure ENDIF ; -: MAIN 93 7 + 100 = IF step2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/and.st b/projects/Stacker/test/and.st deleted file mode 100644 index 75b5919d79..0000000000 --- a/projects/Stacker/test/and.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# AND test -# -FORWARD success; -FORWARD failure; -: step2 7 15 AND 7 = IF success ELSE failure ENDIF ; -: MAIN 8 16 AND 0 = IF step2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/decr.st b/projects/Stacker/test/decr.st deleted file mode 100644 index 3244152e58..0000000000 --- a/projects/Stacker/test/decr.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# DECR test -# -FORWARD success; -FORWARD failure; -: MAIN 8 -- 7 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/div.st b/projects/Stacker/test/div.st deleted file mode 100644 index dcffa5690f..0000000000 --- a/projects/Stacker/test/div.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# DIV test -# -FORWARD success; -FORWARD failure; -: MAIN 7 49 / 7 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/drop.st b/projects/Stacker/test/drop.st deleted file mode 100644 index 4e29ae0d48..0000000000 --- a/projects/Stacker/test/drop.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# DROP test -# -FORWARD success; -FORWARD failure; -: MAIN 1 2 DROP 1 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/drop2.st b/projects/Stacker/test/drop2.st deleted file mode 100644 index f7e95a48ed..0000000000 --- a/projects/Stacker/test/drop2.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# DROP2 test -# -FORWARD success; -FORWARD failure; -: step2 0 = IF success ELSE failure ENDIF ; -: MAIN 0 1 2 3 DROP2 1 = IF step2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/dup.st b/projects/Stacker/test/dup.st deleted file mode 100644 index 0ddaa43c45..0000000000 --- a/projects/Stacker/test/dup.st +++ /dev/null @@ -1,8 +0,0 @@ -# -# DUP test -# -FORWARD success; -FORWARD failure; -: phase3 1 = IF success ELSE failure ENDIF ; -: phase2 2 = IF phase3 ELSE failure ENDIF ; -: MAIN 1 2 DUP 2 = IF phase2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/dup2.st b/projects/Stacker/test/dup2.st deleted file mode 100644 index aed0132842..0000000000 --- a/projects/Stacker/test/dup2.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# DUP2 test -# -FORWARD success; -FORWARD failure; -: phase2 1 = IF success ELSE failure ENDIF ; -: MAIN 1 2 DUP2 2 = IF phase2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/eq.st b/projects/Stacker/test/eq.st deleted file mode 100644 index 59733af305..0000000000 --- a/projects/Stacker/test/eq.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# EQ test -# -FORWARD success; -FORWARD failure; -: MAIN 17 17 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/false.st b/projects/Stacker/test/false.st deleted file mode 100644 index 08c178362a..0000000000 --- a/projects/Stacker/test/false.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# FALSE test -# -FORWARD success; -FORWARD failure; -: MAIN FALSE 0 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/ge.st b/projects/Stacker/test/ge.st deleted file mode 100644 index d303b773ae..0000000000 --- a/projects/Stacker/test/ge.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# GE test -# -FORWARD success; -FORWARD failure; -: phase2 49 49 >= IF success ELSE failure ENDIF ; -: MAIN 7 49 >= IF phase2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/gt.st b/projects/Stacker/test/gt.st deleted file mode 100644 index e873b4e7cf..0000000000 --- a/projects/Stacker/test/gt.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# GT test -# -FORWARD success; -FORWARD failure; -: MAIN 7 49 > IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/incr.st b/projects/Stacker/test/incr.st deleted file mode 100644 index c2f8e34536..0000000000 --- a/projects/Stacker/test/incr.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# INCR test -# -FORWARD success; -FORWARD failure; -: MAIN 7 ++ 8 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/le.st b/projects/Stacker/test/le.st deleted file mode 100644 index d218db865f..0000000000 --- a/projects/Stacker/test/le.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# LE test -# -FORWARD success; -FORWARD failure; -: phase2 49 49 <= IF success ELSE failure ENDIF ; -: MAIN 49 7 <= IF phase2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/lt.st b/projects/Stacker/test/lt.st deleted file mode 100644 index 9752186160..0000000000 --- a/projects/Stacker/test/lt.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# LT test -# -FORWARD success; -FORWARD failure; -: phase2 49 7 < IF success ELSE failure ENDIF ; -: MAIN 7 49 < IF failure ELSE phase2 ENDIF ; diff --git a/projects/Stacker/test/max.st b/projects/Stacker/test/max.st deleted file mode 100644 index b3b905d040..0000000000 --- a/projects/Stacker/test/max.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# MAX test -# -FORWARD success; -FORWARD failure; -: step2 2 1 MAX 2 = IF success ELSE failure ENDIF ; -: MAIN 1 2 MAX 2 = IF step2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/memory.st b/projects/Stacker/test/memory.st deleted file mode 100644 index 8c59956a62..0000000000 --- a/projects/Stacker/test/memory.st +++ /dev/null @@ -1,10 +0,0 @@ -# -# MEMORY test -# -FORWARD success; -FORWARD failure; -: try_free FREE ; -: read_space >s ; -: write_space 0 72 PUT 1 69 PUT 2 76 PUT 3 76 PUT 4 79 PUT ; -: try_malloc 64 MALLOC ; -: MAIN try_malloc write_space read_space try_free " - " >s success ; diff --git a/projects/Stacker/test/min.st b/projects/Stacker/test/min.st deleted file mode 100644 index 7f516057d6..0000000000 --- a/projects/Stacker/test/min.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# MIN test -# -FORWARD success; -FORWARD failure; -: step2 1 2 MIN 1 = IF success ELSE failure ENDIF ; -: MAIN 2 1 MIN 1 = IF step2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/mod.st b/projects/Stacker/test/mod.st deleted file mode 100644 index 5bb81dcab8..0000000000 --- a/projects/Stacker/test/mod.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# MOD value test -# -FORWARD success; -FORWARD failure; -: MAIN 7 13 MOD 6 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/mul.st b/projects/Stacker/test/mul.st deleted file mode 100644 index 5831458818..0000000000 --- a/projects/Stacker/test/mul.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# MUL value test -# -FORWARD success; -FORWARD failure; -: MAIN 14 7 * 98 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/ne.st b/projects/Stacker/test/ne.st deleted file mode 100644 index dde9d010a5..0000000000 --- a/projects/Stacker/test/ne.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# NE test -# -FORWARD success; -FORWARD failure; -: MAIN 7 49 <> IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/neg.st b/projects/Stacker/test/neg.st deleted file mode 100644 index d3d05be3d3..0000000000 --- a/projects/Stacker/test/neg.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# NEG test -# -FORWARD success; -FORWARD failure; -: MAIN 23 NEG -23 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/nip.st b/projects/Stacker/test/nip.st deleted file mode 100644 index 91da4b4018..0000000000 --- a/projects/Stacker/test/nip.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# NIP test -# -FORWARD success; -FORWARD failure; -: MAIN 1 2 NIP 2 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/nip2.st b/projects/Stacker/test/nip2.st deleted file mode 100644 index a171028a80..0000000000 --- a/projects/Stacker/test/nip2.st +++ /dev/null @@ -1,9 +0,0 @@ -# -# NIP2 test -# -FORWARD success; -FORWARD failure; -: test_0 0 = IF success ELSE failure ENDIF ; -: test_3 3 = IF test_0 ELSE failure ENDIF ; -: test_4 4 = IF test_3 ELSE failure ENDIF ; -: MAIN 0 1 2 3 4 NIP2 test_4 ; diff --git a/projects/Stacker/test/or.st b/projects/Stacker/test/or.st deleted file mode 100644 index 60359070de..0000000000 --- a/projects/Stacker/test/or.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# OR test -# -FORWARD success; -FORWARD failure; -: phase2 0 0 OR 0 = IF success ELSE failure ENDIF ; -: MAIN 7 8 OR 15 = IF phase2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/out_chr.st b/projects/Stacker/test/out_chr.st deleted file mode 100644 index 54bd95846b..0000000000 --- a/projects/Stacker/test/out_chr.st +++ /dev/null @@ -1,5 +0,0 @@ -# -# OUT_CH test -# -FORWARD success; -: MAIN 33 >c success ; diff --git a/projects/Stacker/test/out_num.st b/projects/Stacker/test/out_num.st deleted file mode 100644 index 30ec9744b8..0000000000 --- a/projects/Stacker/test/out_num.st +++ /dev/null @@ -1,5 +0,0 @@ -# -# OUT_NUM test -# -FORWARD success; -: MAIN 33 >d success ; diff --git a/projects/Stacker/test/out_str.st b/projects/Stacker/test/out_str.st deleted file mode 100644 index 27d1659d00..0000000000 --- a/projects/Stacker/test/out_str.st +++ /dev/null @@ -1,5 +0,0 @@ -# -# OUT_STR test -# -FORWARD success; -: MAIN "!" >s success ; diff --git a/projects/Stacker/test/over.st b/projects/Stacker/test/over.st deleted file mode 100644 index bec61a571f..0000000000 --- a/projects/Stacker/test/over.st +++ /dev/null @@ -1,9 +0,0 @@ -# -# OVER test -# -FORWARD success; -FORWARD failure; -: phase4 0 = IF success ELSE failure ENDIF ; -: phase3 2 = IF phase4 ELSE failure ENDIF ; -: phase2 1 = IF phase3 ELSE failure ENDIF ; -: MAIN 0 2 1 OVER 2 = IF phase2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/over2.st b/projects/Stacker/test/over2.st deleted file mode 100644 index cd4618aa0d..0000000000 --- a/projects/Stacker/test/over2.st +++ /dev/null @@ -1,14 +0,0 @@ -# -# OVER2 test -# -# Logic: // w1 w2 w3 w4 -- w1 w2 w3 w4 w1 w2 -# -FORWARD success; -FORWARD failure; -: try_0 0 = IF success ELSE failure ENDIF ; -: try_1b 1 = IF try_0 ELSE failure ENDIF ; -: try_2 2 = IF try_1b ELSE failure ENDIF ; -: try_3 3 = IF try_2 ELSE failure ENDIF ; -: try_4 4 = IF try_3 ELSE failure ENDIF ; -: try_1a 1 = IF try_4 ELSE failure ENDIF ; -: MAIN 0 1 2 3 4 OVER2 2 = IF try_1a ELSE failure ENDIF ; diff --git a/projects/Stacker/test/pick.st b/projects/Stacker/test/pick.st deleted file mode 100644 index b9670b1387..0000000000 --- a/projects/Stacker/test/pick.st +++ /dev/null @@ -1,9 +0,0 @@ -# -# PICK test -# -# Logic: // x0 ... Xn n -- x0 ... Xn x0 -# -FORWARD success; -FORWARD failure; -: next 10 = IF success ELSE failure ENDIF ; -: MAIN 0 1 2 3 4 5 6 7 8 9 10 5 PICK 5 = IF next ELSE failure ENDIF ; diff --git a/projects/Stacker/test/recurse.st b/projects/Stacker/test/recurse.st deleted file mode 100644 index 310728c071..0000000000 --- a/projects/Stacker/test/recurse.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# RECURSE test -# -FORWARD success; -FORWARD failure; -: recurser 100 = IF 1 + RECURSE; -: MAIN 1 recurser success ; diff --git a/projects/Stacker/test/return.st b/projects/Stacker/test/return.st deleted file mode 100644 index ab26942dcb..0000000000 --- a/projects/Stacker/test/return.st +++ /dev/null @@ -1,8 +0,0 @@ - -# -# RECURSE test -# -FORWARD success; -FORWARD failure; -: returner 17 RETURN ; -: MAIN returner 17 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/roll.st b/projects/Stacker/test/roll.st deleted file mode 100644 index 1c203af1b9..0000000000 --- a/projects/Stacker/test/roll.st +++ /dev/null @@ -1,5 +0,0 @@ -# -# ROLL test -# -FORWARD success; -: MAIN "Not Implemented Yet - Left As An Exercise - " >s success ; diff --git a/projects/Stacker/test/rot.st b/projects/Stacker/test/rot.st deleted file mode 100644 index 75b1422ddc..0000000000 --- a/projects/Stacker/test/rot.st +++ /dev/null @@ -1,9 +0,0 @@ -# -# DUP test -# -FORWARD success; -FORWARD failure; -: phase4 0 = IF success ELSE failure ENDIF ; -: phase3 2 = IF phase4 ELSE failure ENDIF ; -: phase2 3 = IF phase3 ELSE failure ENDIF ; -: MAIN 0 1 2 3 ROT 1 = IF phase2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/rot2.st b/projects/Stacker/test/rot2.st deleted file mode 100644 index 16bd1d6fda..0000000000 --- a/projects/Stacker/test/rot2.st +++ /dev/null @@ -1,14 +0,0 @@ -# -# ROT2 test -# -# Logic: // w1 w2 w3 w4 w5 w6 -- w3 w4 w5 w6 w1 w2 -# -FORWARD success; -FORWARD failure; -: try_0 0 = IF success ELSE failure ENDIF ; -: try_3 3 = IF try_0 ELSE failure ENDIF ; -: try_4 4 = IF try_3 ELSE failure ENDIF ; -: try_5 5 = IF try_4 ELSE failure ENDIF ; -: try_6 6 = IF try_5 ELSE failure ENDIF ; -: try_1 1 = IF try_6 ELSE failure ENDIF ; -: MAIN 0 1 2 3 4 5 6 ROT2 2 = IF try_1 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/rrot.st b/projects/Stacker/test/rrot.st deleted file mode 100644 index afbf556500..0000000000 --- a/projects/Stacker/test/rrot.st +++ /dev/null @@ -1,12 +0,0 @@ -# -# RROT test -# -# Logic: w1 w2 w3 -- w3 w1 w2 -# -FORWARD success; -FORWARD failure; -: try_0 0 = IF success ELSE failure ENDIF ; -: try_3 3 = IF try_0 ELSE failure ENDIF ; -: try_1 1 = IF try_3 ELSE failure ENDIF ; -: MAIN 0 1 2 3 RROT 2 = IF try_1 ELSE failure ENDIF ; - diff --git a/projects/Stacker/test/rrot2.st b/projects/Stacker/test/rrot2.st deleted file mode 100644 index fb2ebd1dd7..0000000000 --- a/projects/Stacker/test/rrot2.st +++ /dev/null @@ -1,14 +0,0 @@ -# -# RROT2 test -# -# Logic: // w1 w2 w3 w4 w5 w6 -- w5 w6 w1 w2 w3 w4 -# -FORWARD success; -FORWARD failure; -: try_0 0 = IF success ELSE failure ENDIF ; -: try_5 5 = IF try_0 ELSE failure ENDIF ; -: try_6 6 = IF try_5 ELSE failure ENDIF ; -: try_1 1 = IF try_6 ELSE failure ENDIF ; -: try_2 2 = IF try_1 ELSE failure ENDIF ; -: try_3 3 = IF try_2 ELSE failure ENDIF ; -: MAIN 0 1 2 3 4 5 6 RROT2 4 = IF try_3 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/runtests b/projects/Stacker/test/runtests deleted file mode 100755 index a38058e962..0000000000 --- a/projects/Stacker/test/runtests +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/env bash -path=$1 -shift -let $((success=0)) -let $((failure=0)) -for tst in $* ; do - result=`$path/$tst` - status="$?" - echo "Test $tst : $result" - if [ $status -eq 0 ] ; then - let $((success++)) - else - let $((failure++)) - fi -done - -echo "Failures : $failure" -echo "Successes: $success" -echo "Total : $((failure+success))" diff --git a/projects/Stacker/test/select.st b/projects/Stacker/test/select.st deleted file mode 100644 index 8e3dfd0f2f..0000000000 --- a/projects/Stacker/test/select.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# SELECT test -# -FORWARD success; -FORWARD failure; -: try_99 99 = IF success ELSE failure ENDIF ; -: MAIN 99 10 9 8 7 6 5 4 3 2 1 10 5 SELECT 5 = IF try_99 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/shl.st b/projects/Stacker/test/shl.st deleted file mode 100644 index 5919d286be..0000000000 --- a/projects/Stacker/test/shl.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# SHL test -# -FORWARD success; -FORWARD failure; -: show_failure >d SPACE failure ; -: MAIN 64 3 << 512 = IF success ELSE show_failure ENDIF ; diff --git a/projects/Stacker/test/shr.st b/projects/Stacker/test/shr.st deleted file mode 100644 index 3dbc24e3ce..0000000000 --- a/projects/Stacker/test/shr.st +++ /dev/null @@ -1,7 +0,0 @@ -# -# SHR test -# -FORWARD success; -FORWARD failure; -: show_failure >d SPACE failure ; -: MAIN 64 3 >> 8 = IF success ELSE show_failure ENDIF ; diff --git a/projects/Stacker/test/space.st b/projects/Stacker/test/space.st deleted file mode 100644 index 26a068a79d..0000000000 --- a/projects/Stacker/test/space.st +++ /dev/null @@ -1,5 +0,0 @@ -# -# SPACE test -# -FORWARD success; -: MAIN ">>" >s SPACE "<<" >s success ; diff --git a/projects/Stacker/test/star_slash.st b/projects/Stacker/test/star_slash.st deleted file mode 100644 index d353a7d504..0000000000 --- a/projects/Stacker/test/star_slash.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# */ value test -# -FORWARD success; -FORWARD failure; -: MAIN 17 17 17 */ 17 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/sub.st b/projects/Stacker/test/sub.st deleted file mode 100644 index 09438d15e1..0000000000 --- a/projects/Stacker/test/sub.st +++ /dev/null @@ -1,6 +0,0 @@ -# -# SUB test -# -FORWARD success; -FORWARD failure; -: MAIN 23 15 - -8 = IF success ELSE failure ENDIF ; diff --git a/projects/Stacker/test/swap.st b/projects/Stacker/test/swap.st deleted file mode 100644 index 14176dbd10..0000000000 --- a/projects/Stacker/test/swap.st +++ /dev/null @@ -1,9 +0,0 @@ - -# -# DUP test -# -FORWARD success; -FORWARD failure; -: phase3 0 = IF success ELSE failure ENDIF ; -: phase2 2 = IF phase3 ELSE failure ENDIF ; -: MAIN 0 1 2 SWAP 1 = IF phase2 ELSE failure ENDIF ; diff --git a/projects/Stacker/test/swap2.st b/projects/Stacker/test/swap2.st deleted file mode 100644 index c4f1bbd37d..0000000000 --- a/projects/Stacker/test/swap2.st +++ /dev/null |