diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-30 20:32:41 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-30 20:32:41 +0200 |
commit | c46d3b74baf50b23a69683c996d810e1d7639eef (patch) | |
tree | 2fd9b474a7c3b3ed1da2347af9a4be6880b85d7c /tests/param.scm | |
parent | Improve terminal input. (diff) | |
download | calp-c46d3b74baf50b23a69683c996d810e1d7639eef.tar.gz calp-c46d3b74baf50b23a69683c996d810e1d7639eef.tar.xz |
Resolve TODO's in test dir.
Diffstat (limited to 'tests/param.scm')
-rw-r--r-- | tests/param.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/param.scm b/tests/param.scm new file mode 100644 index 00000000..ad690e61 --- /dev/null +++ b/tests/param.scm @@ -0,0 +1,17 @@ +(((vcomponent base) param prop* parameters) + ((vcomponent parse) parse-calendar) + ((util) sort*)) + +(define v (call-with-input-string + "BEGIN:DUMMY +KEY;A=1;B=2:Some text +END:DUMMY" + parse-calendar)) + +(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 (prop* v 'KEY))) + string<? + symbol->string)) |