From b5b9637c35436f1f4ec70207c519eb1e13da555c Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 29 Nov 2025 18:12:24 +0100 Subject: Add unit tests to model modules. --- models/crop.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'models/crop.rkt') diff --git a/models/crop.rkt b/models/crop.rkt index d1d2159..eff54a3 100644 --- a/models/crop.rkt +++ b/models/crop.rkt @@ -25,9 +25,8 @@ (define (create-crop! name) (or (get-crop #:name name) - (with-tx - (query-exec (current-conn) (insert #:into crops #:set [canonical_name ,name])) - (get-crop #:name name)))) + (with-tx (query-exec (current-conn) (insert #:into crops #:set [canonical_name ,name])) + (get-crop #:name name)))) ;; READ -- cgit v1.2.3