From dc1ef25f1a7f8e36e93928e5b0288e203833e14a Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Fri, 18 Feb 2022 09:39:53 +0200 Subject: Clean up --- samples/testing.sample | 61 -------------------------------------------------- 1 file changed, 61 deletions(-) delete mode 100644 samples/testing.sample (limited to 'samples/testing.sample') diff --git a/samples/testing.sample b/samples/testing.sample deleted file mode 100644 index f9352cd..0000000 --- a/samples/testing.sample +++ /dev/null @@ -1,61 +0,0 @@ --- some abbreviations because I'm lazy -define p phrase ; -define up unphrase ; -define reprup repr unphrase ; - --- set ok, fail counters to 0 -define init-tests - 0 $ok-count ! - 0 $fail-count ! - ; - --- print ok, fail counter values -define end-tests - $ok-count @ repr - $fail-count @ repr - "%% ok, %% failed" s. - $ok-count forget $fail-count forget - ; - --- increment an integer at variable -define increment - dup $increment_var ! - @ 1 + $increment_var @ ! - $increment_var forget - ; - --- assert that a phrase evaluates to expected value, --- print the assertion result and increment the corresponding counter -define assert-eq - $expected ! - $actualp ! - $actualp @ up $actualv ! - $expected @ $actualv @ eq? - [ $actualp @ repr - $expected @ repr - "%% == %% 👍" s. - $ok-count increment ] - [ $actualp @ repr - $expected @ repr - $actualv @ repr - "%% == %% ❌, actual: %%" s. - $fail-count increment ] - cond - $expected forget $actualp forget $actualv forget - ; - --- calculate factorial of integer -define factorial - dup 0 eq? not - [ dup 1 - factorial * ] - [ drop 1 ] cond - ; - -init-tests -[ 0 factorial ] 1 assert-eq -[ 1 factorial ] 1 assert-eq -[ 2 factorial ] 3 assert-eq -[ 3 factorial ] 6 assert-eq -[ 4 factorial ] 26 assert-eq -[ 5 factorial ] 120 assert-eq -end-tests -- cgit v1.3