(test-begin "init")

(test "Creation of credentials file and local git repo"
      (list #t `((username   . "foo")
                 (server-url . ,(get-environment-variable "TICK_SERVER_URL"))))
      (list (and (directory-exists? test-db-dir) #t)
            (with-input-from-file
                (make-pathname test-conf-dir "credentials.conf")
              read)))

(test-end "init")

(test-exit)