Changeset 14029

Timestamp:

Jul 23, 2010, 2:34:59 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

Tweak ensure-tests-loaded a bit to provide some debugging information.

File:

• trunk/source/lib/compile-ccl.lisp (modified) (1 diff)

trunk/source/lib/compile-ccl.lisp

@@ -752 +752 @@
         (cwd "ccl:tests;")
         (run-program "svn" '("update")))
-      (let* ((svn (probe-file "ccl:.svn;entries"))
-             (repo (and svn (svn-repository)))
+      (let* ((repo (svn-repository))
+             (url (format nil "~a/trunk/tests" repo))
              (s (make-string-output-stream)))
-        (when repo
-          (format t "~&Checking out test suite into ccl:tests;~%")
-          (cwd "ccl:")
-          (multiple-value-bind (status exit-code)
+        (if (null repo)
+          (error "Can't determine svn repository.  ccl directory is ~s"
+                 (ccl-directory))
+          (progn
+            (format t "~&Checking out test suite from ~a into ccl:tests;~%"
+                    url)
+            (cwd "ccl:")
+            (multiple-value-bind (status exit-code)
               (external-process-status
-               (run-program "svn" (list "checkout" (format nil "~a/trunk/tests" repo) "tests")
-                            :output s
-                            :error s))
-            (unless (and (eq status :exited)
-                         (eql exit-code 0))
-              (error "Failed to check out test suite: ~%~a" (get-output-stream-string s)))))))
+               (run-program "svn" (list "checkout" url "tests")
+                            :output s :error s))
+              (unless (and (eq status :exited)
+                           (eql exit-code 0))
+                (error "Failed to check out test suite: ~%~a"
+                       (get-output-stream-string s))))))))
     (cwd "ccl:tests;ansi-tests;")
     (run-program "make" '("-k" "clean"))