diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-09 21:43:16 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-09 21:43:16 +0200 |
| commit | c1feb55a2013116c3291cf0df26f9ab39ad3e8c3 (patch) | |
| tree | 7e7c2b0b756e45a1fd1b177bb137d3225560bc37 /tests | |
| parent | Un-escape escaped characters. Slow? (diff) | |
| download | calp-c1feb55a2013116c3291cf0df26f9ab39ad3e8c3.tar.gz calp-c1feb55a2013116c3291cf0df26f9ab39ad3e8c3.tar.xz | |
New parser now on feature parity with old.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/prop.scm | 4 | ||||
| -rw-r--r-- | tests/vcomponent.scm | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/tests/prop.scm b/tests/prop.scm index a302d790..a178170d 100644 --- a/tests/prop.scm +++ b/tests/prop.scm @@ -3,9 +3,9 @@ ((util) sort*)) (define v (call-with-input-string - "BEGIN:VCOMPONENT + "BEGIN:DUMMY KEY;A=1;B=2:Some text -END:VCOMPONENT" +END:DUMMY" parse-calendar)) (test-equal '("1") (prop (attr* v 'KEY) 'A)) diff --git a/tests/vcomponent.scm b/tests/vcomponent.scm index c64f1a9b..7a392e9e 100644 --- a/tests/vcomponent.scm +++ b/tests/vcomponent.scm @@ -2,11 +2,11 @@ ((vcomponent) parse-calendar)) (define ev (call-with-input-string - "BEGIN:VEVENT + "BEGIN:DUMMY KEY:value -END:VEVENT" +END:DUMMY" parse-calendar)) -(test-assert (eq? #f (attr ev 'MISSING)) ) +(test-assert (eq? #f (attr ev 'MISSING))) (test-assert (attr ev 'KEY)) (test-equal "value" (attr ev 'KEY)) |