Преглед на файлове

Add tests for MOVE* words

master
Virgil Dupras преди 3 години
родител
ревизия
69bb34ce7b
променени са 1 файла, в които са добавени 13 реда и са изтрити 0 реда
  1. +13
    -0
      tests/all/test_move.fs

+ 13
- 0
tests/all/test_move.fs Целия файл

@@ -0,0 +1,13 @@
42 C, 43 C, 44 C,
H@ 3 - H@ 3 MOVE
H@ C@ 42 #eq H@ 1+ C@ 43 #eq H@ 2+ C@ 44 #eq
H@ H@ 1+ 3 MOVE ( demonstrate MOVE's problem )
H@ 1+ C@ 42 #eq H@ 2+ C@ 42 #eq H@ 3 + C@ 42 #eq
H@ 3 - H@ 3 MOVE
H@ H@ 1+ 3 MOVE- ( see? better )
H@ 1+ C@ 42 #eq H@ 2+ C@ 43 #eq H@ 3 + C@ 44 #eq

H@ ( ref )
H@ 3 - 3 MOVE,
( ref ) H@ 3 - #eq
H@ 3 - C@ 42 #eq H@ 2- C@ 43 #eq H@ 1- C@ 44 #eq

Loading…
Отказ
Запис