blob: 525ef66ad070b4916a6a213936bfab22d26e1ea1 (
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
|
#lang racket
(module+ test
(require rackunit
rackunit/text-ui
"../../db/conn.rkt"
"../../db/migrations.rkt"
"../../models/nutrient.rkt")
(run-tests (test-suite "Nutrient model"
#:before (λ ()
(connect! #:path 'memory)
(migrate-all!))
#:after (λ () (disconnect!))
(test-case "Create nutrients"
(check-equal? (length (get-nutrients)) 0)
(create-nutrient! "Examplium" "" "Ex")
(check-equal? (length (get-nutrients)) 1)
(create-nutrient! "Ignorium" "" "Ig")
(check-equal? (length (get-nutrients)) 2))
(test-case "Read nutrient"
(define examplium (get-nutrient #:id 1))
(check-true (nutrient? examplium))
(check-equal? (nutrient-id examplium) 1))
(test-case "Read nutrient by name"
(define examplium (get-nutrient #:name "Examplium"))
(check-true (nutrient? examplium))
(check-equal? (nutrient-canonical-name examplium) "Examplium"))
(test-case "Read nutrient by formula"
(define examplium (get-nutrient #:formula "Ex"))
(check-true (nutrient? examplium))
(check-equal? (nutrient-formula examplium) "Ex"))
(test-case "Read inexisting nutrient"
(check-false (get-nutrient #:name "Inexistium")))
(test-case "Update nutrient name"
(define examplium (get-nutrient #:name "Examplium"))
(define examplium-nitrate (update-nutrient! examplium #:name "Examplium Nitrate"))
(check-equal? (length (get-nutrients)) 2)
(check-equal? (nutrient-canonical-name examplium-nitrate) "Examplium Nitrate")
(check-equal? (nutrient-formula examplium-nitrate) "Ex"))
(test-case "Update nutrient formula"
(define examplium-nitrate (get-nutrient #:name "Examplium Nitrate"))
(define examplium-sulfate (update-nutrient! examplium-nitrate #:formula "ExSO4"))
(check-equal? (length (get-nutrients)) 2)
(check-equal? (nutrient-canonical-name examplium-sulfate) "Examplium Nitrate")
(check-equal? (nutrient-formula examplium-sulfate) "ExSO4"))
(test-case "Update nutrient name and formula"
(define examplium-nitrate (get-nutrient #:name "Examplium Nitrate"))
(define examplium-sulfate
(update-nutrient! examplium-nitrate #:name "Examplium Sulfate" #:formula "ExNO3"))
(check-equal? (length (get-nutrients)) 2)
(check-equal? (nutrient-canonical-name examplium-sulfate) "Examplium Sulfate")
(check-equal? (nutrient-formula examplium-sulfate) "ExNO3"))
(test-case "Delete nutrient"
(define examplium-sulfate (get-nutrient #:name "Examplium Sulfate"))
(delete-nutrient! examplium-sulfate)
(check-equal? (length (get-nutrients)) 1)
(define ignorium (get-nutrient #:name "Ignorium"))
(delete-nutrient! ignorium)
(check-equal? (length (get-nutrients)) 0)))))
|
