aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-06-30 01:45:33 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-07-07 13:10:38 +0200
commitd6304f9b0acd3894fd08fccee75ab47d10f9a64a (patch)
tree51c08b7e65d7ce41d97f51dcbe2557c1b851fd3b /tests
parentAdd basic event creation from HTML. (diff)
downloadcalp-d6304f9b0acd3894fd08fccee75ab47d10f9a64a.tar.gz
calp-d6304f9b0acd3894fd08fccee75ab47d10f9a64a.tar.xz
Rename attributes => properties, properties => parameters.
Diffstat (limited to 'tests')
-rw-r--r--tests/prop.scm12
-rw-r--r--tests/xcal.scm8
2 files changed, 11 insertions, 9 deletions
diff --git a/tests/prop.scm b/tests/prop.scm
index a178170d..60831e14 100644
--- a/tests/prop.scm
+++ b/tests/prop.scm
@@ -1,4 +1,6 @@
-(((vcomponent base) prop attr* properties)
+;;; TODO rename this file to param.scm
+
+(((vcomponent base) param attr* parameters)
((vcomponent parse) parse-calendar)
((util) sort*))
@@ -8,10 +10,10 @@ KEY;A=1;B=2:Some text
END:DUMMY"
parse-calendar))
-(test-equal '("1") (prop (attr* v 'KEY) 'A))
-(test-equal '("2") (prop (attr* v 'KEY) 'B))
-(test-equal #f (prop (attr* v 'KEY) 'C))
+(test-equal '("1") (param (attr* v 'KEY) 'A))
+(test-equal '("2") (param (attr* v 'KEY) 'B))
+(test-equal #f (param (attr* v 'KEY) 'C))
-(test-equal '(A B) (sort* (map car (properties (attr* v 'KEY)))
+(test-equal '(A B) (sort* (map car (parameters (attr* v 'KEY)))
string<?
symbol->string))
diff --git a/tests/xcal.scm b/tests/xcal.scm
index 938a39b0..78e7e7df 100644
--- a/tests/xcal.scm
+++ b/tests/xcal.scm
@@ -3,7 +3,7 @@
((output xcal) vcomponent->sxcal)
((util) ->)
((vcomponent base)
- properties attr* children)
+ parameters attr* children)
)
;;; Some different types, same parameters
@@ -33,13 +33,13 @@ END:VCALENDAR"
vcomponent->sxcal
sxcal->vcomponent))
-;;; NOTE both these tests may fail since neither attributes nor properties are ordered sorted.
+;;; NOTE both these tests may fail since neither properties nor parameters are ordered sorted.
(test-equal "c->x & c->x->c->x"
(vcomponent->sxcal ev)
(vcomponent->sxcal twice-converted))
-(test-equal "xcal properties"
+(test-equal "xcal parameters"
'((X-TEST-PARAM "10"))
- (properties (attr* (car (children twice-converted))
+ (parameters (attr* (car (children twice-converted))
'STATUS)))