Add new tests.

1 files changed, 0 insertions, 115 deletions

diff --git a/tests/vcomponent-formats-common-types.scm b/tests/vcomponent-formats-common-types.scm
deleted file mode 100644
index d9c80ff9..00000000
--- a/tests/vcomponent-formats-common-types.scm
+++ /dev/null
@@ -1,115 +0,0 @@
-(((vcomponent formats common types)
-  get-parser)
- ((datetime) 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