diff options
| author | Adam R. Nelson <adam@nels.onl> | 2021-03-18 19:51:21 -0400 |
|---|---|---|
| committer | Arthur A. Gleckler <srfi@speechcode.com> | 2021-03-18 20:45:24 -0700 |
| commit | 216f352b3ac0c7f69b43b551d6db88608855dd5d (patch) | |
| tree | 7ce8cc24b94479cea1694469d2fa54c7d8efeabb /implementation/tests.scm | |
| parent | c7b10eea0315f59a3806a3195e89a0a2e7a1cf3d (diff) | |
| download | srfi-214-216f352b3ac0c7f69b43b551d6db88608855dd5d.tar.gz srfi-214-216f352b3ac0c7f69b43b551d6db88608855dd5d.tar.xz srfi-214-216f352b3ac0c7f69b43b551d6db88608855dd5d.zip | |
impl fixes: add flexvector-fill!, remove dupe flexvector-reverse-copy!
Diffstat (limited to 'implementation/tests.scm')
| -rw-r--r-- | implementation/tests.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/implementation/tests.scm b/implementation/tests.scm index e41f19c..391540e 100644 --- a/implementation/tests.scm +++ b/implementation/tests.scm @@ -293,4 +293,13 @@ (test-equal "flexvector-reverse-copy! overflow" #(1 2 50 40 30) (mutate-as fv '#(1 2 3) (flexvector-reverse-copy! fv 2 (flexvector 30 40 50)))) +(test-equal "flexvector-fill!" '#(foo foo foo) + (mutate-as x '#(1 2 3) (flexvector-fill! x 'foo))) +(test-equal "flexvector-fill! start" '#(1 2 bar bar bar) + (mutate-as x '#(1 2 3 4 5) (flexvector-fill! x 'bar 2))) +(test-equal "flexvector-fill! start end" '#(1 2 baz baz 5) + (mutate-as x '#(1 2 3 4 5) (flexvector-fill! x 'baz 2 4))) +(test-equal "flexvector-fill! clamped" '#(qux qux qux) + (mutate-as x '#(1 2 3) (flexvector-fill! x 'qux -1 10))) + (test-end "Flexvectors") |