From 7aee8167209789dc8a717d7867af94a7c86569ce Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 3 May 2023 20:24:51 +0200 Subject: Move lens test. --- tests/test/hnh-util-lens.scm | 21 +++++++++++++++++++++ tests/test/lens.scm | 21 --------------------- 2 files changed, 21 insertions(+), 21 deletions(-) create mode 100644 tests/test/hnh-util-lens.scm delete mode 100644 tests/test/lens.scm diff --git a/tests/test/hnh-util-lens.scm b/tests/test/hnh-util-lens.scm new file mode 100644 index 00000000..bcfafba2 --- /dev/null +++ b/tests/test/hnh-util-lens.scm @@ -0,0 +1,21 @@ +(define-module (test hnh-util-lens) + :use-module (srfi srfi-64) + :use-module (srfi srfi-64 test-error) + :use-module (srfi srfi-88) + :use-module (hnh util lens)) + + +(define first (ref 0)) + +(test-equal '((1)) (first '(((1))))) +(test-equal '((2)) (set '(((1))) (compose-lenses first first) 2)) +(test-equal '(((2))) (set '(((1))) (compose-lenses first first first) 2)) + + +;; (list-change (iota 10) 5 'Hello) +;; => (0 1 2 3 4 Hello 6 7 8 9) + +(test-equal '(1 (10) 3) (set '(1 (2) 3) (compose-lenses (ref 1) (ref 0)) 10)) +(test-equal '(1 (10) 3) (set '(1 (2) 3) (ref 1) (ref 0) 10)) + +;; (set (list (iota 10)) first first 11) diff --git a/tests/test/lens.scm b/tests/test/lens.scm deleted file mode 100644 index 0797e3aa..00000000 --- a/tests/test/lens.scm +++ /dev/null @@ -1,21 +0,0 @@ -(define-module (test lens) - :use-module (srfi srfi-64) - :use-module (srfi srfi-64 test-error) - :use-module (srfi srfi-88) - :use-module (hnh util lens)) - - -(define first (ref 0)) - -(test-equal '((1)) (first '(((1))))) -(test-equal '((2)) (set '(((1))) (compose-lenses first first) 2)) -(test-equal '(((2))) (set '(((1))) (compose-lenses first first first) 2)) - - -;; (list-change (iota 10) 5 'Hello) -;; => (0 1 2 3 4 Hello 6 7 8 9) - -(test-equal '(1 (10) 3) (set '(1 (2) 3) (compose-lenses (ref 1) (ref 0)) 10)) -(test-equal '(1 (10) 3) (set '(1 (2) 3) (ref 1) (ref 0) 10)) - -;; (set (list (iota 10)) first first 11) -- cgit v1.2.3