From dafe1aaa54d41999b4c81f4904ae1f0e7cc9de11 Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Sat, 29 Nov 2025 15:50:36 +0100
Subject: Move tests to concerned modules.

---
 tests/models/nutrient.rkt | 69 -----------------------------------------------
 1 file changed, 69 deletions(-)
 delete mode 100644 tests/models/nutrient.rkt

(limited to 'tests/models/nutrient.rkt')

diff --git a/tests/models/nutrient.rkt b/tests/models/nutrient.rkt
deleted file mode 100644
index 525ef66..0000000
--- a/tests/models/nutrient.rkt
+++ /dev/null
@@ -1,69 +0,0 @@
-#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)))))
-- 
cgit v1.2.3