aboutsummaryrefslogtreecommitdiff
path: root/tests.scm
blob: 8bb83853b4d8355f7360d73dab6a9994c8a81b73 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
(use-modules (srfi srfi-64)
             (ice-9 match)
             (dump sql)
             (dump string-similarity)
             (dump utils))

(test-begin "sql")

(test-equal "select query"
  "SELECT InfoFiles.GN_AccesionId, InfoFiles.InfoFileTitle AS Name, InfoFiles.Title, InfoFiles.Specifics, DatasetStatus.DatasetStatusName FROM InfoFiles LEFT JOIN DatasetStatus USING (DatasetStatusId) WHERE GN_AccesionId IS NOT NULL"
  (select-query ((InfoFiles GN_AccesionId)
                 (InfoFiles InfoFileTitle Name)
                 (InfoFiles Title)
                 (InfoFiles Specifics)
                 (DatasetStatus DatasetStatusName))
                (InfoFiles
                 (left-join DatasetStatus "USING (DatasetStatusId)"))
                "WHERE GN_AccesionId IS NOT NULL"))

(test-end "sql")

(test-begin "string-similarity")

(test-equal "trigrams of a string"
  (list "coe" "oef" "eff" "ffi" "fic" "ici" "cie" "ien" "ent")
  ((@@ (dump string-similarity) trigrams) "coefficient"))

(test-equal "Jaccard index"
  0.4
  ((@@ (dump 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)
   (iota 10)
   (iota 10)))

(test-equal "Jaccard index of disjoint sets"
  0.0
  ((@@ (dump string-similarity) jaccard-index)
   (iota 10)
   (iota 10 10)))

(test-end "string-similarity")

(test-begin "utils")

(test-equal "map-alist docstring example"
  '((spam . 2)
    (ham . 4)
    (eggs . 6)
    (aal . 3)
    (vel . 0)
    (vel . 1)
    (vel . 2)
    (vel . 3)
    (fubar . 8))
  (map-alist '(("foo" . 1)
               (bar . 2)
               (foobar . 5)
               (fubar . 3))
    (set spam (1+ (key "foo")))
    (set ham (* 2 (key bar)))
    (set eggs (* 3 (key bar)))
    (set aal (+ (key "foo")
                (key bar)))
    (multiset vel (iota (* 2 (key bar))))
    (delete foobar)
    (else=> (match-lambda
              ((key . value)
               (cons key (expt 2 value)))))))

(test-equal "multiple set actions in map-alist should result in multiple keys"
  '((spam . 4)
    (spam . 6))
  (map-alist '((foo . 2))
    (set spam (* 2 (key foo)))
    (set spam (* 3 (key foo)))))

(test-end "utils")