diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:26:40 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:28:44 +0200 |
| commit | 712654d4c023a2ab13190c6905d313e0ba897965 (patch) | |
| tree | b8505b420d6621022fa6a46271340071d8881322 /tests/unit/vcomponent/vcomponent-formats-common-types.scm | |
| parent | Made displayln into a library export. (diff) | |
| download | calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.gz calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.xz | |
Rewrite test running system.
Diffstat (limited to '')
| -rw-r--r-- | tests/unit/vcomponent/vcomponent-formats-common-types.scm (renamed from tests/test/vcomponent-formats-common-types.scm) | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/test/vcomponent-formats-common-types.scm b/tests/unit/vcomponent/vcomponent-formats-common-types.scm index 4c442461..1d7c77cf 100644 --- a/tests/test/vcomponent-formats-common-types.scm +++ b/tests/unit/vcomponent/vcomponent-formats-common-types.scm @@ -33,14 +33,14 @@ (define parse-date (get-parser 'DATE)) (test-equal - #2021-12-02 + (date year: 2021 month: 12 day: 02) (parse-date #f "20211202")) ;; TODO negative test here (define parse-datetime (get-parser 'DATE-TIME)) (test-equal - #2021-12-02T10:20:30 + (datetime year: 2021 month: 12 day: 02 hour: 10 minute: 20 second: 30) (parse-datetime (make-hash-table) "20211202T102030")) @@ -120,7 +120,7 @@ (define parse-time (get-parser 'TIME)) (test-equal - #10:20:30 + (time hour: 10 minute: 20 second: 30) (parse-time #f "102030")) ;; TODO negative test here @@ -136,3 +136,5 @@ (get-parser 'UTC-OFFSET)) ;; TODO + +'((vcomponent formats common types)) |