From d6304f9b0acd3894fd08fccee75ab47d10f9a64a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 30 Jun 2020 01:45:33 +0200 Subject: Rename attributes => properties, properties => parameters. --- tests/prop.scm | 12 +++++++----- tests/xcal.scm | 8 ++++---- 2 files changed, 11 insertions(+), 9 deletions(-) (limited to 'tests') 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))) stringstring)) 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))) -- cgit v1.2.3