@@ -18,10 +18,11 @@
 (set! conffile (read-config "test.config"))
 (test "Get available diskspace" #t (number? (get-df "./")))
 (test "Get best dir" #t (let ((bestdir (get-best-disk conffile)))
 			      (or (equal? "./"   bestdir)
 				  (equal? "/tmp" bestdir))))
+(test "Multiline variable" 4 (length (string-split (config-lookup conffile "metadata" "description") "\n")))
 
 ;; db
 (define row    (vector "a" "b" "c" "blah"))
 (define header (list "col1" "col2" "col3" "col4"))
 (test "Get row by header" "blah" (db:get-value-by-header row header "col4"))
@@ -60,11 +61,11 @@
 
 (test "get all legal tests" (list "runfirst" "runwithfirst" "singletest" "singletest2" "sqlitespeed") (sort (get-all-legal-tests) string<=?))
 
 (test "register-test, test info" "NOT_STARTED"
       (begin
-	(register-test *db* 1 "nada" "")
+	(register-test *db* 1 "nada" "" '("tag1" "tag2" "tag3"))
 	(test:get-state (db:get-test-info *db* 1 "nada" ""))))
 
 (test "get-keys" "sysname" (key:get-fieldname (car (sort (db-get-keys *db*)(lambda (a b)(string>=? (vector-ref a 0)(vector-ref b 0)))))))
 
 (define remargs (args:get-args