all repos — min @ 9d294ff4c2efb889fac6e82a727b1e66919097fb

A small but practical concatenative programming language.

tests/stack.min

 1
 2
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
'test load
'test import

"stack" describe

  (1 id 1 ==) assert

  (2 id 2 ==) assert

  (2 pop get-stack () ==) assert

  (1 dup get-stack (1 1) ==) assert

  (3 2 (1 +) dip + 6 ==) assert

  ((1) (2 swap append) sip concat (1 2 1) ==) assert

  (1 (2 3) cons (1 2 3) ==) assert

  report
  clear-stack