← Back to branch summary

~ubuntu-branches/ubuntu/trusty/cl-asdf/trusty

« back to all changes in this revision

Viewing changes to test/test-retry-loading-component-1.script

  • Committer: Package Import Robot
  • Author(s): Francois-Rene Rideau
  • Date: 2013-05-27 22:44:50 UTC
  • mfrom: (1.1.28)
  • Revision ID: package-import@ubuntu.com-20130527224450-4bddztgqi7q1uzn7
Tags: 2:3.0.1.2-1
ASDF 3.0.1.2 fixes issues with the debian package itself.
It also includes fixes to run-program and run-shell-command.

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/test-retry-loading-component-1.script
2
2
 
3
3
;;; test asdf:try-recompiling restart
4
4
 
5
 
(load "script-support.lisp")
6
 
(load-asdf)
7
 
;(trace asdf::find-component)
8
 
;(trace asdf:run-shell-command asdf:oos asdf:perform asdf:operate)
9
 
;#+allegro
10
 
;(trace excl.osi:command-output)
11
5
(defvar *caught-error* nil)
12
 
(quit-on-error
13
 
 ;;(format t "trlc1 1~%")
14
 
 (when (probe-file "try-reloading-dependency.asd")
15
 
   (asdf:run-shell-command "rm -f ~A"
16
 
                           (namestring "try-reloading-dependency.asd")))
17
 
 (setf asdf:*central-registry* '(*default-pathname-defaults*))
18
 
 (setf asdf::*defined-systems* (asdf::make-defined-systems-table))
19
 
 ;;(format t "trlc1 2~%")
20
 
 (handler-bind ((error (lambda (c)
21
 
                         (format t "~&Caught error ~s" c)
22
 
                         (setf *caught-error* t)
23
 
                         (asdf:run-shell-command
24
 
                          "cp try-reloading-dependency.hidden try-reloading-dependency.asd")
25
 
                         ;;(format t "trlc1 5~%")
26
 
                         (multiple-value-bind (name mode)
27
 
                             (find-symbol (symbol-name 'retry) :asdf)
28
 
                           (assert (eq mode :external) nil "Mode of ~s was not external" name)
29
 
                           ;;(format t "trlc1 6~%")
30
 
                           (let ((restart (find-restart name c)))
31
 
                             ;;(format t "trlc1 7~%")
32
 
                             (assert restart)
33
 
                             (format t "~&restart: ~S~&" restart)
34
 
                             (when restart (invoke-restart restart)))))))
35
 
   ;;(format t "trlc1 3~%")
36
 
   (asdf:oos 'asdf:load-op 'try-reloading-1))
37
 
 ;;(format t "trlc1 4~%")
38
 
 (assert *caught-error*))
 
6
(delete-file-if-exists "try-reloading-dependency.asd")
 
7
(asdf::clear-defined-systems)
 
8
(handler-bind
 
9
    ((error #'(lambda (c)
 
10
                (format t "~&Caught error ~s" c)
 
11
                (setf *caught-error* t)
 
12
                (concatenate-files '("try-reloading-dependency.hidden") "try-reloading-dependency.asd")
 
13
                (DBG "trlc1 5")
 
14
                (multiple-value-bind (name mode) (find-symbol* :retry :asdf)
 
15
                  (assert (eq mode :external) () "Mode of ~s was not external" name)
 
16
                  (let ((restart (find-restart name c)))
 
17
                    (assert restart)
 
18
                    (when restart (invoke-restart restart)))))))
 
19
  (load-system 'try-reloading-1))
 
20
(assert *caught-error*)