Update test lib with not-null? word (#226)

[no important files changed]

exercises/practice/acronym/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/affine-cipher/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/all-your-base/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/allergies/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/anagram/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/armstrong-numbers/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/atbash-cipher/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/binary-search/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/bob/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/circular-buffer/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/collatz-conjecture/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/darts/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/diamond/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/difference-of-squares/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/dnd-character/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/eliuds-eggs/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/etl/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/flatten-array/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/food-chain/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/gigasecond/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/grains/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/hamming/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/hello-world/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/high-scores/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/house/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/isbn-verifier/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/isogram/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/kindergarten-garden/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/knapsack/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/largest-series-product/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/leap/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/list-ops/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/luhn/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/matching-brackets/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/matrix/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/meetup/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/nucleotide-count/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/pangram/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/parallel-letter-frequency/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/pascals-triangle/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/perfect-numbers/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/phone-number/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/prime-factors/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/protein-translation/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/proverb/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/pythagorean-triplet/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/raindrops/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/resistor-color-duo/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/resistor-color/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/reverse-string/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/rna-transcription/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/roman-numerals/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/rotational-cipher/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/run-length-encoding/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/scrabble-score/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/secret-handshake/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/series/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/sieve/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/space-age/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/spiral-matrix/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/square-root/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/strain/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/sum-of-multiples/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/triangle/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/trinary/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/two-fer/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/word-count/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

exercises/practice/yacht/libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n -- 

libs/exercism/test

@@ -152,6 +152,14 @@ true var, run-test
    G:null? nip if test-passed else test-failed then 
 ;
 
+: not-null? \ s w --
+   run-test? !if drop test-skipped ;; then
+   w:exec
+   2 check-depth
+   null swap dup     \ so test-failed can show actual and expected
+   G:null? not nip if test-passed else test-failed then 
+;
+
 : SKIP-REST-OF-TESTS false run-test ! ;
 
 : tests \ n --