tests: quantity testing

1 files changed, 10 insertions, 5 deletions

diff --git a/tests/parse.scm b/tests/parse.scm
index c4670e0..28707a0 100644
--- a/tests/parse.scm
+++ b/tests/parse.scm
@@ -4,10 +4,16 @@
         (cook  debug)
         (cook  parse-internals))
 
-(test "Amount with unit"
-      (list 'amount "10" "l") (cook->list (parse amount "10%l")))
-(test "Amount without unit"
-      (list 'amount "10" #f)  (cook->list (parse amount "10")))
+(test-group "Amount"
+  (test "with unit"
+        (list 'amount 10 "l") (cook->list (parse amount "10%l")))
+  (test "without unit"
+        (list 'amount 10 #f)  (cook->list (parse amount "10"))))
+
+(test-group "Quantity"
+  (test "integer"  10   (parse quantity "10"))
+  (test "float"    10.1 (parse quantity "10.1"))
+  (test "fraction" 1/10 (parse quantity "1/10")))
 
 ;(define (test x y)
 ;  (display "Testing: ")
@@ -25,7 +31,6 @@
 ;
 ;(test 'WORD                     (parse word "hola. adios"))
 ;(test 'UNIT                     (parse unit "l"))
-;(test 'QUANTITY                 (parse quantity "10"))
 ;(test 'WORD-COMPONENT           (parse-fully component "word{}"))
 ;(test 'WORD-COMPONENT           (parse-fully component "word{9%head}"))
 ;(test 'WORD-COMPONENT           (parse-fully component "word"))