diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-11-26 18:16:38 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-11-26 18:16:38 +0100 |
| commit | 9376d7131a9f2a8df55a556110304bd9a2e39c40 (patch) | |
| tree | f4598ed4a6c49177145e9018d678863094e7180c /tests | |
| parent | 2a0f96114fb75ecf6975812a041e96f7b9d161c5 (diff) | |
| download | mew-9376d7131a9f2a8df55a556110304bd9a2e39c40.tar.gz mew-9376d7131a9f2a8df55a556110304bd9a2e39c40.tar.xz mew-9376d7131a9f2a8df55a556110304bd9a2e39c40.zip | |
add sample
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test.mew | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/test.mew b/tests/test.mew index cf84c97..e697751 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -35,6 +35,11 @@ (test #f (=? (shuffle #(1 2 3 4 5 6 7 8 9 0)) (shuffle #(1 2 3 4 5 6 7 8 9 0))))) +(test-group "sample" + (test #t ((one-of 1 2 3) (sample '(1 2 3)))) + (test #t ((one-of 1 2 3) (sample #(1 2 3)))) + (test #t ((one-of '(1 . 2) '(3 . 4)) (sample (tbl 1 2 3 4))))) + (test-group "range" (test '(1 2 3) (into '() (range 1 4))) (test '() (into '() (range 4 1))) |