all repos — min @ 4babf9c30f4de0ce8542e4febf18f9192a2c1f3c

A small but practical concatenative programming language.

Updated tests.
h3rald h3rald@h3rald.com
Mon, 29 Jan 2024 11:29:25 +0100
commit

4babf9c30f4de0ce8542e4febf18f9192a2c1f3c

parent

0cac73c1ab2f5e2fdcb0edd5512d1d7f7de06d8e

3 files changed, 4 insertions(+), 4 deletions(-)

jump to
M tests/dict.mintests/dict.min

@@ -19,7 +19,7 @@ ({1 :a 2 :b 3 :c} dkeys ("a" "b" "c") ==) *test/assert

({1 :a 2 :b 3 :c} dvalues (1 2 3) ==) *test/assert - (ROOT dtype "module" ==) *test/assert + (global dtype "module" ==) *test/assert ({} dtype "" ==) *test/assert
M tests/global.mintests/global.min

@@ -20,7 +20,7 @@ (

:item "_$1" (item) => % :namesym item (dup *) cons namesym define - namesym ROOT publish + namesym global publish ) :def test-data def foreach

@@ -62,7 +62,7 @@ ((2 3 >) ("YES") unless "YES" ==) *test/assert

(1 type "int" ==) *test/assert ({} type "dict" ==) *test/assert - (ROOT type "dict:module" ==) *test/assert + (global type "dict:module" ==) *test/assert (5 (dup 0 ==) (1 +) (dup 1 -) ( * ) linrec 120 ==) *test/assert ;factorial of 5
M tests/logic.mintests/logic.min

@@ -146,7 +146,7 @@ (4 'dict:module type? false ==) *test/assert

(logic 'dict:module type?) *test/assert (1 "int" type?) *test/assert ("test" "str" type?) *test/assert - (ROOT "dict:module" type?) *test/assert + (global "dict:module" type?) *test/assert (7 0 / inf ==) *test/assert (-7 0 / -inf ==) *test/assert