From 8e1e4cceab516afab46ccced63ca9edab663ca11 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 21 Aug 2023 15:03:20 +0300 Subject: Rename dump -> transform Signed-off-by: Munyoki Kilyungi --- tests.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'tests.scm') diff --git a/tests.scm b/tests.scm index 7ba4261..1dfa2ac 100644 --- a/tests.scm +++ b/tests.scm @@ -1,9 +1,9 @@ (use-modules (srfi srfi-64) (ice-9 match) - (dump sql) - (dump string-similarity) - (dump strings) - (dump special-forms)) + (transform sql) + (transform string-similarity) + (transform strings) + (transform special-forms)) (test-begin "sql") @@ -24,23 +24,23 @@ (test-equal "trigrams of a string" (list "coe" "oef" "eff" "ffi" "fic" "ici" "cie" "ien" "ent") - ((@@ (dump string-similarity) trigrams) "coefficient")) + ((@@ (transform string-similarity) trigrams) "coefficient")) (test-equal "Jaccard index" 0.4 - ((@@ (dump string-similarity) jaccard-index) + ((@@ (transform string-similarity) jaccard-index) (list 0 1 2 5 6 8 9) (list 0 2 3 4 5 7 9))) (test-equal "Jaccard index of equal sets" 1.0 - ((@@ (dump string-similarity) jaccard-index) + ((@@ (transform string-similarity) jaccard-index) (iota 10) (iota 10))) (test-equal "Jaccard index of disjoint sets" 0.0 - ((@@ (dump string-similarity) jaccard-index) + ((@@ (transform string-similarity) jaccard-index) (iota 10) (iota 10 10))) -- cgit v1.2.3