diff --git a/test.scm b/test.scm
index 9f68870..162a412 100644
--- a/test.scm
+++ b/test.scm
@@ -78,6 +78,10 @@
 (run-test "non-zero exit" "|100 #110f DEO BRK" '() "" 17 "" "")
 (run-test "echo A to stdout" "|100 #4118 DEO #800f DEO BRK" '() "" 0 "A" "")
 (run-test "echo A to stderr" "|100 #4119 DEO #800f DEO BRK" '() "" 0 "" "A")
+(run-test "test SWP" "|100 #4142 SWP #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "AB" "")
+(run-test "test DUP" "|100 #41 DUP #18 DEO #18 DEO #800f DEO BRK" '() "" 0 "AA" "")
+(run-test "test DEOk" "|100 #41 #18 DEOk DEO #800f DEO BRK" '() "" 0 "AA" "")
+(run-test "test DEOkr" "|100 LIT2r 4218 DEOkr DEOr #800f DEO BRK" '() "" 0 "BB" "")
 
 (display "\nsummary: ran ")
 (display tests-ran)