← Back to branch summary

~ubuntu-branches/ubuntu/vivid/cl-asdf/vivid

« back to all changes in this revision

Viewing changes to test/test-touch-system-1.script

  • Committer: Bazaar Package Importer
  • Author(s): Peter Van Eynde
  • Date: 2009-12-31 08:36:15 UTC
  • mfrom: (1.1.10 upstream) (2.1.5 sid)
  • Revision ID: james.westby@ubuntu.com-20091231083615-hmxl8y14zxcb0iq3
New upstream, version 1.374

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/test-touch-system-1.script
5
5
 
6
6
(load "script-support")
7
7
(load "../asdf")
8
 
(exit-on-error 
 
8
(quit-on-error 
9
9
 (flet ((system-load-time (name)
10
 
          (let ((data (asdf::system-registered-p name)))
11
 
            (when data
12
 
              (car data)))))
 
10
          (let ((data (asdf::system-registered-p name)))
 
11
            (when data
 
12
              (car data)))))
13
13
   (setf asdf:*central-registry* '(*default-pathname-defaults*))
14
14
   (asdf:find-system :test1)
15
15
   (let ((date1 (system-load-time :test1))
16
 
         (file (namestring (merge-pathnames "test1.asd"))))
 
16
         (file (namestring (merge-pathnames "test1.asd"))))
17
17
     (assert date1)
18
18
     (assert file)
19
19
     (sleep 1)