Commit 67ea58d5 authored by Rommel M. Martinez's avatar Rommel M. Martinez
Browse files

Updated source registry test script

parent 7c184ec6
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -107,8 +107,8 @@ fi
#fi

create_asds () {
    mkdir -p tmp/{dir1,dir2/{dir3,dir4}}
    for i in `find tmp | sed -e '1d'`; do touch "$i"/test.asd; done
    mkdir -p tmp/{conf.d,dir1,dir2/{dir3,dir4}}
    for i in `find tmp | sed -e '1d;/conf.d/d'`; do touch "$i"/test.asd; done
}

clean_up () {
+17 −0
Original line number Diff line number Diff line
@@ -16,9 +16,25 @@
(defvar *test-directory*
  (pathname->directory (getenv "TEST_DIR")))

(defvar *test-conf-directory*
  (merge-pathnames "conf.d/" *test-directory*))

(defun under-test-directory (path &optional (defaults *test-directory*))
  (merge-pathnames path defaults))

(defun create-conf-files (&optional (path *test-conf-directory*))
  (let ((v `(("conf1.conf"
              ((:directory ,(namestring (under-test-directory "dir1/")))))
             ("conf2.conf"
              ((:tree ,(namestring (under-test-directory "dir2/"))))))))
    (loop
     :for (file contents) :in v :do
     (with-open-file (out file
                          :direction :output
                          :if-exists :supersede)
       (with-standard-io-syntax
         (format out "~{~S~}" contents))))))

(defvar *test-config-1*
  `(:source-registry
    (:directory ,(namestring (under-test-directory "dir1/")))
@@ -37,6 +53,7 @@
    test-something-3))

(cl-user::quit-on-error
 (create-conf-files)
 (assert (equal (process-source-registry
                 (getenv "CL_SOURCE_REGISTRY"))
                *test-expect-1*))