From c46d3b74baf50b23a69683c996d810e1d7639eef Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 30 Jul 2020 20:32:41 +0200 Subject: Resolve TODO's in test dir. --- tests/prop.scm | 19 ------------------- 1 file changed, 19 deletions(-) delete mode 100644 tests/prop.scm (limited to 'tests/prop.scm') diff --git a/tests/prop.scm b/tests/prop.scm deleted file mode 100644 index cec0a8e2..00000000 --- a/tests/prop.scm +++ /dev/null @@ -1,19 +0,0 @@ -;;; TODO rename this file to param.scm - -(((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))) - stringstring)) -- cgit v1.2.3