1 files changed, 73 insertions, 7 deletions
diff --git a/models/nutrient.rkt b/models/nutrient.rkt
index 07fb4fd..dd8d677 100644
--- a/models/nutrient.rkt
+++ b/models/nutrient.rkt
@@ -47,13 +47,12 @@
 
 (define (create-nutrient! canonical-name french-name formula)
   (or (get-nutrient #:name canonical-name #:formula formula)
-      (with-tx
-        (query-exec (current-conn)
-                    (insert #:into nutrients
-                            #:set [canonical_name ,canonical-name]
-                            [french_name ,french-name]
-                            [formula ,formula]))
-        (get-nutrient #:name canonical-name))))
+      (with-tx (query-exec (current-conn)
+                           (insert #:into nutrients
+                                   #:set [canonical_name ,canonical-name]
+                                   [french_name ,french-name]
+                                   [formula ,formula]))
+               (get-nutrient #:name canonical-name))))
 
 ;; READ
 
@@ -110,3 +109,70 @@
 
 (define (delete-nutrient! nutrient)
   (query-exec (current-conn) (delete #:from nutrients #:where (= id ,(nutrient-id nutrient)))))
+
+(module+ test
+  (require rackunit
+           rackunit/text-ui
+           "../db/conn.rkt"
+           "../db/migrations.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)))))