diff options
Diffstat (limited to 'tests.scm')
| -rw-r--r-- | tests.scm | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -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))) |