From 240bf17c7b88450978f66f3aea896a09789125ea Mon Sep 17 00:00:00 2001 From: Bruce Axtens Date: Mon, 29 Apr 2024 18:18:16 +0800 Subject: [PATCH] no more array insensitive dots as recent 8th update corrects array to string conversion issue --- exercises/practice/acronym/libs/exercism/test | 11 ++--------- .../practice/affine-cipher/libs/exercism/test | 11 ++--------- .../armstrong-numbers/libs/exercism/test | 11 ++--------- .../practice/atbash-cipher/libs/exercism/test | 11 ++--------- exercises/practice/bob/libs/exercism/test | 11 ++--------- .../collatz-conjecture/libs/exercism/test | 11 ++--------- exercises/practice/darts/libs/exercism/test | 11 ++--------- .../difference-of-squares/libs/exercism/test | 11 ++--------- .../practice/eliuds-eggs/libs/exercism/test | 11 ++--------- exercises/practice/etl/libs/exercism/test | 11 ++--------- .../practice/flatten-array/libs/exercism/test | 11 ++--------- .../practice/gigasecond/libs/exercism/test | 11 ++--------- exercises/practice/grains/libs/exercism/test | 18 ++---------------- exercises/practice/hamming/libs/exercism/test | 11 ++--------- .../practice/hello-world/libs/exercism/test | 11 ++--------- .../practice/high-scores/libs/exercism/test | 11 ++--------- exercises/practice/isogram/libs/exercism/test | 11 ++--------- .../largest-series-product/libs/exercism/test | 11 ++--------- exercises/practice/leap/libs/exercism/test | 11 ++--------- exercises/practice/luhn/libs/exercism/test | 11 ++--------- .../matching-brackets/libs/exercism/test | 11 ++--------- exercises/practice/pangram/libs/exercism/test | 11 ++--------- .../pascals-triangle/libs/exercism/test | 11 ++--------- .../perfect-numbers/libs/exercism/test | 11 ++--------- .../pythagorean-triplet/libs/exercism/test | 18 ++---------------- .../practice/raindrops/libs/exercism/test | 11 ++--------- .../practice/resistor-color/libs/exercism/test | 11 ++--------- .../practice/reverse-string/libs/exercism/test | 11 ++--------- .../rna-transcription/libs/exercism/test | 11 ++--------- .../practice/roman-numerals/libs/exercism/test | 11 ++--------- .../rotational-cipher/libs/exercism/test | 11 ++--------- .../practice/scrabble-score/libs/exercism/test | 11 ++--------- exercises/practice/series/libs/exercism/test | 18 ++---------------- exercises/practice/sieve/libs/exercism/test | 18 ++---------------- .../sum-of-multiples/libs/exercism/test | 18 ++---------------- exercises/practice/triangle/libs/exercism/test | 11 ++--------- exercises/practice/trinary/libs/exercism/test | 11 ++--------- exercises/practice/two-fer/libs/exercism/test | 11 ++--------- .../practice/word-count/libs/exercism/test | 11 ++--------- exercises/practice/yacht/libs/exercism/test | 11 ++--------- libs/exercism/test | 11 ++--------- 41 files changed, 82 insertions(+), 404 deletions(-) diff --git a/exercises/practice/acronym/libs/exercism/test b/exercises/practice/acronym/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/acronym/libs/exercism/test +++ b/exercises/practice/acronym/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/affine-cipher/libs/exercism/test b/exercises/practice/affine-cipher/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/affine-cipher/libs/exercism/test +++ b/exercises/practice/affine-cipher/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/armstrong-numbers/libs/exercism/test b/exercises/practice/armstrong-numbers/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/armstrong-numbers/libs/exercism/test +++ b/exercises/practice/armstrong-numbers/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/atbash-cipher/libs/exercism/test b/exercises/practice/atbash-cipher/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/atbash-cipher/libs/exercism/test +++ b/exercises/practice/atbash-cipher/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/bob/libs/exercism/test b/exercises/practice/bob/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/bob/libs/exercism/test +++ b/exercises/practice/bob/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/collatz-conjecture/libs/exercism/test b/exercises/practice/collatz-conjecture/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/collatz-conjecture/libs/exercism/test +++ b/exercises/practice/collatz-conjecture/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/darts/libs/exercism/test b/exercises/practice/darts/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/darts/libs/exercism/test +++ b/exercises/practice/darts/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/difference-of-squares/libs/exercism/test b/exercises/practice/difference-of-squares/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/difference-of-squares/libs/exercism/test +++ b/exercises/practice/difference-of-squares/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/eliuds-eggs/libs/exercism/test b/exercises/practice/eliuds-eggs/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/eliuds-eggs/libs/exercism/test +++ b/exercises/practice/eliuds-eggs/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/etl/libs/exercism/test b/exercises/practice/etl/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/etl/libs/exercism/test +++ b/exercises/practice/etl/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/flatten-array/libs/exercism/test b/exercises/practice/flatten-array/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/flatten-array/libs/exercism/test +++ b/exercises/practice/flatten-array/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/gigasecond/libs/exercism/test b/exercises/practice/gigasecond/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/gigasecond/libs/exercism/test +++ b/exercises/practice/gigasecond/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/grains/libs/exercism/test b/exercises/practice/grains/libs/exercism/test index 77a05f3b..492050fa 100644 --- a/exercises/practice/grains/libs/exercism/test +++ b/exercises/practice/grains/libs/exercism/test @@ -12,20 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; - -: test-passed \ s x x -- \\ test name, expected value, actual value - 2drop - 1 tests-passed n:+! - con:green con:onBlack . space " ... OK" . con:white con:onBlack cr -; - : test-skipped \ s -- 1 tests-skipped n:+! con:cyan con:onBlack . space " ... SKIPPED" . con:white con:onBlack cr @@ -35,8 +21,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/hamming/libs/exercism/test b/exercises/practice/hamming/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/hamming/libs/exercism/test +++ b/exercises/practice/hamming/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/hello-world/libs/exercism/test b/exercises/practice/hello-world/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/hello-world/libs/exercism/test +++ b/exercises/practice/hello-world/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/high-scores/libs/exercism/test b/exercises/practice/high-scores/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/high-scores/libs/exercism/test +++ b/exercises/practice/high-scores/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/isogram/libs/exercism/test b/exercises/practice/isogram/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/isogram/libs/exercism/test +++ b/exercises/practice/isogram/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/largest-series-product/libs/exercism/test b/exercises/practice/largest-series-product/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/largest-series-product/libs/exercism/test +++ b/exercises/practice/largest-series-product/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/leap/libs/exercism/test b/exercises/practice/leap/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/leap/libs/exercism/test +++ b/exercises/practice/leap/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/luhn/libs/exercism/test b/exercises/practice/luhn/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/luhn/libs/exercism/test +++ b/exercises/practice/luhn/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/matching-brackets/libs/exercism/test b/exercises/practice/matching-brackets/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/matching-brackets/libs/exercism/test +++ b/exercises/practice/matching-brackets/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/pangram/libs/exercism/test b/exercises/practice/pangram/libs/exercism/test index 77a05f3b..373c61c4 100644 --- a/exercises/practice/pangram/libs/exercism/test +++ b/exercises/practice/pangram/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . + " Expected: «" . . ; : isword? \ x -- x f diff --git a/exercises/practice/pascals-triangle/libs/exercism/test b/exercises/practice/pascals-triangle/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/pascals-triangle/libs/exercism/test +++ b/exercises/practice/pascals-triangle/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/perfect-numbers/libs/exercism/test b/exercises/practice/perfect-numbers/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/perfect-numbers/libs/exercism/test +++ b/exercises/practice/perfect-numbers/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/pythagorean-triplet/libs/exercism/test b/exercises/practice/pythagorean-triplet/libs/exercism/test index 77a05f3b..492050fa 100644 --- a/exercises/practice/pythagorean-triplet/libs/exercism/test +++ b/exercises/practice/pythagorean-triplet/libs/exercism/test @@ -12,20 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; - -: test-passed \ s x x -- \\ test name, expected value, actual value - 2drop - 1 tests-passed n:+! - con:green con:onBlack . space " ... OK" . con:white con:onBlack cr -; - : test-skipped \ s -- 1 tests-skipped n:+! con:cyan con:onBlack . space " ... SKIPPED" . con:white con:onBlack cr @@ -35,8 +21,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/raindrops/libs/exercism/test b/exercises/practice/raindrops/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/raindrops/libs/exercism/test +++ b/exercises/practice/raindrops/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/resistor-color/libs/exercism/test b/exercises/practice/resistor-color/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/resistor-color/libs/exercism/test +++ b/exercises/practice/resistor-color/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/reverse-string/libs/exercism/test b/exercises/practice/reverse-string/libs/exercism/test index 77a05f3b..373c61c4 100644 --- a/exercises/practice/reverse-string/libs/exercism/test +++ b/exercises/practice/reverse-string/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . + " Expected: «" . . ; : isword? \ x -- x f diff --git a/exercises/practice/rna-transcription/libs/exercism/test b/exercises/practice/rna-transcription/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/rna-transcription/libs/exercism/test +++ b/exercises/practice/rna-transcription/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/roman-numerals/libs/exercism/test b/exercises/practice/roman-numerals/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/roman-numerals/libs/exercism/test +++ b/exercises/practice/roman-numerals/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/rotational-cipher/libs/exercism/test b/exercises/practice/rotational-cipher/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/rotational-cipher/libs/exercism/test +++ b/exercises/practice/rotational-cipher/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/scrabble-score/libs/exercism/test b/exercises/practice/scrabble-score/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/scrabble-score/libs/exercism/test +++ b/exercises/practice/scrabble-score/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/series/libs/exercism/test b/exercises/practice/series/libs/exercism/test index 77a05f3b..492050fa 100644 --- a/exercises/practice/series/libs/exercism/test +++ b/exercises/practice/series/libs/exercism/test @@ -12,20 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; - -: test-passed \ s x x -- \\ test name, expected value, actual value - 2drop - 1 tests-passed n:+! - con:green con:onBlack . space " ... OK" . con:white con:onBlack cr -; - : test-skipped \ s -- 1 tests-skipped n:+! con:cyan con:onBlack . space " ... SKIPPED" . con:white con:onBlack cr @@ -35,8 +21,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/sieve/libs/exercism/test b/exercises/practice/sieve/libs/exercism/test index 77a05f3b..a5f4e711 100644 --- a/exercises/practice/sieve/libs/exercism/test +++ b/exercises/practice/sieve/libs/exercism/test @@ -12,20 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; - -: test-passed \ s x x -- \\ test name, expected value, actual value - 2drop - 1 tests-passed n:+! - con:green con:onBlack . space " ... OK" . con:white con:onBlack cr -; - : test-skipped \ s -- 1 tests-skipped n:+! con:cyan con:onBlack . space " ... SKIPPED" . con:white con:onBlack cr @@ -35,8 +21,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . + " Expected: «" . . ; : isword? \ x -- x f diff --git a/exercises/practice/sum-of-multiples/libs/exercism/test b/exercises/practice/sum-of-multiples/libs/exercism/test index 77a05f3b..a5f4e711 100644 --- a/exercises/practice/sum-of-multiples/libs/exercism/test +++ b/exercises/practice/sum-of-multiples/libs/exercism/test @@ -12,20 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; - -: test-passed \ s x x -- \\ test name, expected value, actual value - 2drop - 1 tests-passed n:+! - con:green con:onBlack . space " ... OK" . con:white con:onBlack cr -; - : test-skipped \ s -- 1 tests-skipped n:+! con:cyan con:onBlack . space " ... SKIPPED" . con:white con:onBlack cr @@ -35,8 +21,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . + " Expected: «" . . ; : isword? \ x -- x f diff --git a/exercises/practice/triangle/libs/exercism/test b/exercises/practice/triangle/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/triangle/libs/exercism/test +++ b/exercises/practice/triangle/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/trinary/libs/exercism/test b/exercises/practice/trinary/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/trinary/libs/exercism/test +++ b/exercises/practice/trinary/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/two-fer/libs/exercism/test b/exercises/practice/two-fer/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/two-fer/libs/exercism/test +++ b/exercises/practice/two-fer/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/word-count/libs/exercism/test b/exercises/practice/word-count/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/exercises/practice/word-count/libs/exercism/test +++ b/exercises/practice/word-count/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f diff --git a/exercises/practice/yacht/libs/exercism/test b/exercises/practice/yacht/libs/exercism/test index 77a05f3b..373c61c4 100644 --- a/exercises/practice/yacht/libs/exercism/test +++ b/exercises/practice/yacht/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . + " Expected: «" . . ; : isword? \ x -- x f diff --git a/libs/exercism/test b/libs/exercism/test index 77a05f3b..0d1e39af 100644 --- a/libs/exercism/test +++ b/libs/exercism/test @@ -12,13 +12,6 @@ true var, run-test \ Some utility words -: array-insens-dot \ x -- \\ removes leading space on stringified arrays - dup >kind ns:a n:= - if - >s s:trim - then - . -; : test-passed \ s x x -- \\ test name, expected value, actual value 2drop @@ -35,8 +28,8 @@ true var, run-test 1 tests-failed n:+! rot con:red con:onBlack . space " ... FAIL" . con:white con:onBlack cr - " Actual: «" . array-insens-dot "»" . cr - " Expected: «" . array-insens-dot "»" . cr cr + " Actual: «" . . "»" . cr + " Expected: «" . . "»" . cr cr ; : isword? \ x -- x f