From 712654d4c023a2ab13190c6905d313e0ba897965 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 2 Oct 2023 19:26:40 +0200
Subject: Rewrite test running system.

---
 tests/test/vcomponent-formats-common-types.scm | 138 -------------------------
 1 file changed, 138 deletions(-)
 delete mode 100644 tests/test/vcomponent-formats-common-types.scm

(limited to 'tests/test/vcomponent-formats-common-types.scm')

diff --git a/tests/test/vcomponent-formats-common-types.scm b/tests/test/vcomponent-formats-common-types.scm
deleted file mode 100644
index 4c442461..00000000
--- a/tests/test/vcomponent-formats-common-types.scm
+++ /dev/null
@@ -1,138 +0,0 @@
-(define-module (test vcomponent-formats-common-types)
-  :use-module (srfi srfi-64)
-  :use-module (srfi srfi-64 test-error)
-  :use-module (srfi srfi-88)
-  :use-module ((vcomponent formats common types)
-               :select (get-parser))
-  :use-module ((datetime) :select (date time datetime)))
-
-
-
-(define parse-binary (get-parser 'BINARY))
-;; TODO
-
-
-
-(define parse-boolean (get-parser 'BOOLEAN))
-
-(test-equal #t (parse-boolean #f "TRUE"))
-(test-equal #f (parse-boolean #f "FALSE"))
-
-(test-error 'warning (parse-boolean #f "ANYTHING ELSE"))
-
-
-
-(define parse-cal-address
-  (get-parser 'CAL-ADDRESS))
-
-(test-equal "Test uri is passthrough"
-  74 (parse-cal-address #f 74))
-
-
-
-(define parse-date (get-parser 'DATE))
-
-(test-equal
-  #2021-12-02
-  (parse-date #f "20211202"))
-;; TODO negative test here
-
-(define parse-datetime (get-parser 'DATE-TIME))
-
-(test-equal
-    #2021-12-02T10:20:30
-  (parse-datetime
-    (make-hash-table)
-    "20211202T102030"))
-
-;; TODO tests with timezones here
-;; TODO test -X-HNH-ORIGINAL here
-
-;; TODO negative test here
-
-
-
-(define parse-duration (get-parser 'DURATION))
-
-;; assume someone else tests this one
-;; (test-eq (@ (vcomponent duration) parse-duration)
-;;   parse-duration)
-
-
-
-(define parse-float (get-parser 'FLOAT))
-
-(test-equal 1.0 (parse-float #f "1.0"))
-(test-equal 1 (parse-float #f "1"))
-(test-equal 1/2 (parse-float #f "1/2"))
-
-;; TODO negative test here?
-
-
-
-(define parse-integer (get-parser 'INTEGER))
-
-(test-equal
-  "parse integer"
-  123456
-  (parse-integer #f "123456"))
-
-(test-equal
-  "parse bigint"
-  123451234512345123456666123456
-  (parse-integer
-    #f
-    "123451234512345123456666123456"))
-
-;; TODO is this expected behaivour?
-(test-error 'warning (parse-integer #f "failure"))
-
-(test-error
-  "Non-integers aren't integers"
-  'warning
-  (parse-integer #f "1.1"))
-
-(test-equal
-  "But exact floats are"
-  1.0
-  (parse-integer #f "1.0"))
-
-
-
-(define parse-period (get-parser 'PERIOD))
-
-;; TODO
-
-
-
-(define parse-recur (get-parser 'RECUR))
-
-;; (test-eq (@ (vcomponent recurrence parse) parse-recurrence-rule))
-
-
-
-(define parse-text (get-parser 'TEXT))
-
-;; TODO
-
-
-
-(define parse-time (get-parser 'TIME))
-
-(test-equal
-  #10:20:30
-  (parse-time #f "102030"))
-;; TODO negative test here
-
-
-
-(define parse-uri (get-parser 'URI))
-
-(test-equal "Test uri is passthrough" 74 (parse-uri #f 74))
-
-
-
-(define parse-utc-offset
-  (get-parser 'UTC-OFFSET))
-
-;; TODO
-- 
cgit v1.2.3