Added ?DUP.

2022-02-27 21:23:37 -08:00
parent 0bc9be1e19
commit bf88a73336
3 changed files with 9 additions and 0 deletions
--- a/common/base_tests.fs
+++ b/common/base_tests.fs
@ -122,3 +122,10 @@ e: test-empty-string
  : test s" " ;
  test 0 =assert drop
 ;e
+
+e: test-?dup
+  123 ?dup 123 =assert 123 =assert
+  depth 0 =assert
+  0 ?dup 0 =assert
+  depth 0 =assert
+;e