Changeset 14029


Ignore:
Timestamp:
Jul 23, 2010, 9:34:59 PM (9 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/compile-ccl.lisp

    r14010 r14029  
    752752        (cwd "ccl:tests;")
    753753        (run-program "svn" '("update")))
    754       (let* ((svn (probe-file "ccl:.svn;entries"))
    755              (repo (and svn (svn-repository)))
     754      (let* ((repo (svn-repository))
     755             (url (format nil "~a/trunk/tests" repo))
    756756             (s (make-string-output-stream)))
    757         (when repo
    758           (format t "~&Checking out test suite into ccl:tests;~%")
    759           (cwd "ccl:")
    760           (multiple-value-bind (status exit-code)
     757        (if (null repo)
     758          (error "Can't determine svn repository.  ccl directory is ~s"
     759                 (ccl-directory))
     760          (progn
     761            (format t "~&Checking out test suite from ~a into ccl:tests;~%"
     762                    url)
     763            (cwd "ccl:")
     764            (multiple-value-bind (status exit-code)
    761765              (external-process-status
    762                (run-program "svn" (list "checkout" (format nil "~a/trunk/tests" repo) "tests")
    763                             :output s
    764                             :error s))
    765             (unless (and (eq status :exited)
    766                          (eql exit-code 0))
    767               (error "Failed to check out test suite: ~%~a" (get-output-stream-string s)))))))
     766               (run-program "svn" (list "checkout" url "tests")
     767                            :output s :error s))
     768              (unless (and (eq status :exited)
     769                           (eql exit-code 0))
     770                (error "Failed to check out test suite: ~%~a"
     771                       (get-output-stream-string s))))))))
    768772    (cwd "ccl:tests;ansi-tests;")
    769773    (run-program "make" '("-k" "clean"))
Note: See TracChangeset for help on using the changeset viewer.