From f8583f9a85f54d0a7b4902d0d23b1b83f387b593 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Mon, 24 Jun 2024 00:06:23 +0900 Subject: Rename function from `<>` to `op` --- tests/run.scm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'tests/run.scm') diff --git a/tests/run.scm b/tests/run.scm index 210584d..bbaca75 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -12,9 +12,9 @@ (import scheme (chicken module) (chicken base)) - (export <>) + (export op) - (define (<> x y) + (define (op x y) (assert (integer? x)) (assert (integer? y)) (assert (not (zero? x))) @@ -23,13 +23,13 @@ (import (prefix (mod7 semigroup) mod7:)) -(test 5 (mod7:<> 3 4)) +(test 5 (mod7:op 3 4)) (test-begin "number.product") (import (prefix (algebraic-structures number product semigroup) product:)) -(test 12 (product:<> 3 4)) +(test 12 (product:op 3 4)) (test-end "number.product") @@ -37,35 +37,35 @@ (import (prefix (algebraic-structures number sum semigroup) sum:)) -(test 7 (sum:<> 3 4)) +(test 7 (sum:op 3 4)) (test-end "number.sum") (test-begin "string") (import (prefix (algebraic-structures string semigroup) string:)) -(test "abc" (string:<> "ab" "c")) +(test "abc" (string:op "ab" "c")) (test-end "string") (test-begin "list") (import (prefix (algebraic-structures list semigroup) list:)) -(test '(a b c) (list:<> '(a b) '(c))) +(test '(a b c) (list:op '(a b) '(c))) (test-end "list") (test-begin "vector") (import (prefix (algebraic-structures vector semigroup) vector:)) -(test #(a b c) (vector:<> #(a b) #(c))) +(test #(a b c) (vector:op #(a b) #(c))) (test-end "vector") (test-begin "stream") (import (prefix (algebraic-structures stream semigroup) stream:)) -(test '(a b c) (stream->list (stream:<> (stream 'a 'b) (stream 'c)))) +(test '(a b c) (stream->list (stream:op (stream 'a 'b) (stream 'c)))) (test-end "stream") @@ -160,7 +160,7 @@ (import (prefix (mod7 group) mod7:)) (test (make-list 6 mod7:unit) - (map mod7:<> + (map mod7:op '(1 2 3 4 5 6) (map mod7:inv '(1 2 3 4 5 6)))) -- cgit v1.2.3