← Back to branch summary

~ubuntu-branches/ubuntu/precise/cl-asdf/precise

« back to all changes in this revision

Viewing changes to .pc/debian-changes-2:2.014.3-1/test/test-retry-loading-component-1.script

  • Committer: Bazaar Package Importer
  • Author(s): Francois-Rene Rideau
  • Date: 2011-04-04 23:27:30 UTC
  • mfrom: (1.1.17 upstream)
  • Revision ID: james.westby@ubuntu.com-20110404232730-0181yn6trdk28t8s
Tags: 2:2.014.3-1
* yet another debian package attempt
* update to 2.014.3, workaround for ABCL make-pathname bug (same as on XCL).

Show diffs side-by-side

added added

removed removed

Lines of Context:
.pc/debian-changes-2:2.014.3-1/test/test-retry-loading-component-1.script
 
1
;;; -*- Lisp -*-
 
2
 
 
3
;;; test asdf:try-recompiling restart
 
4
 
 
5
(load "script-support")
 
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
(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*))