diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-30 01:58:19 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-07 13:10:38 +0200 |
| commit | 715e36ab81389ebf53ea158027d0a83f144eee0e (patch) | |
| tree | 1e9522ba3bf4aef212d0b1d179e9bf1db2e6f60b /tests/prop.scm | |
| parent | Rename attributes => properties, properties => parameters. (diff) | |
| download | calp-715e36ab81389ebf53ea158027d0a83f144eee0e.tar.gz calp-715e36ab81389ebf53ea158027d0a83f144eee0e.tar.xz | |
Finished renamining attribute to property.
Diffstat (limited to '')
| -rw-r--r-- | tests/prop.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/prop.scm b/tests/prop.scm index 60831e14..cec0a8e2 100644 --- a/tests/prop.scm +++ b/tests/prop.scm @@ -1,6 +1,6 @@ ;;; TODO rename this file to param.scm -(((vcomponent base) param attr* parameters) +(((vcomponent base) param prop* parameters) ((vcomponent parse) parse-calendar) ((util) sort*)) @@ -10,10 +10,10 @@ KEY;A=1;B=2:Some text END:DUMMY" parse-calendar)) -(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 '("1") (param (prop* v 'KEY) 'A)) +(test-equal '("2") (param (prop* v 'KEY) 'B)) +(test-equal #f (param (prop* v 'KEY) 'C)) -(test-equal '(A B) (sort* (map car (parameters (attr* v 'KEY))) +(test-equal '(A B) (sort* (map car (parameters (prop* v 'KEY))) string<? symbol->string)) |