Actually commit the version bump. Also, update the upgrade tests for CLISP.
authorFrancois-Rene Rideau <tunes@google.com>
Tue, 15 Jan 2013 02:18:38 +0000 (21:18 -0500)
committerFrancois-Rene Rideau <tunes@google.com>
Tue, 15 Jan 2013 02:18:38 +0000 (21:18 -0500)
asdf.asd
header.lisp
test/run-tests.sh
test/script-support.lisp
upgrade.lisp
version.lisp-expr

index 7a45321..e36a34e 100644 (file)
--- a/asdf.asd
+++ b/asdf.asd
@@ -15,7 +15,7 @@
   :licence "MIT"
   :description "Another System Definition Facility"
   :long-description "ASDF builds Common Lisp software organized into defined systems."
-  :version "2.26.97" ;; to be automatically updated by bin/bump-revision
+  :version "2.26.98" ;; to be automatically updated by bin/bump-revision
   :depends-on ()
   :components ((:module "build" :components ((:file "asdf"))))
   :in-order-to (#+asdf2.27 (compile-op (monolithic-load-concatenated-source-op generate-asdf))))
index 7f6c07b..f1bccd1 100644 (file)
@@ -1,5 +1,5 @@
 ;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*-
-;;; This is ASDF 2.26.97: Another System Definition Facility.
+;;; This is ASDF 2.26.98: Another System Definition Facility.
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome:
 ;;; please mail to <asdf-devel@common-lisp.net>.
index 6167d3b..1bf21f0 100755 (executable)
@@ -233,41 +233,40 @@ extract_tagged_asdf () {
         esac
     fi
 }
+valid_upgrade_test_p () {
+    case "${1}:${2}:${3}" in
+        abcl:2.0[01][1-9]:*|abcl:2.2[1-2]:*)
+            : Skip, because it is so damn slow ;;
+        ccl:1.*|ccl:2.0[01]*)
+            : Skip, because ccl broke old asdf ;;
+        clisp:1.??*|clisp:2.00[0-7]:*)
+            # my old ubuntu clisp 2.44.1 is wired in with an antique ASDF 1 from CLC that can't be downgraded.
+            # 2.00[0-7] use UID, which fails on that CLISP and was removed afterwards.
+            # Note that for the longest time, CLISP has included 2.011 in its distribution.
+            : ;; 
+        cmucl:1.*|cmucl:2.00*|cmucl:2.01[0-4]:*)
+            : Skip, CMUCL has problems before 2.014.7 due to source-registry upgrade ;;
+        ecl*:1.*|ecl*:2.0[01]*|ecl*:2.20:*)
+            : Skip, because of various ASDF issues ;;
+        gcl:1.*|gcl:2.0*|gcl:2.2[0-6]*) : Skip old versions that do not support GCL 2.6 ;;
+        mkcl:1.*|mkcl:2.0[01]*|mkcl:2.2[0-3]:*)
+            : Skip, because MKCL is only supported starting with 2.24 ;;
+        xcl:1.*|xcl:2.00*|xcl:2.01[0-4]:*|xcl:*)
+            : XCL support starts with ASDF 2.014.2 - It also hangs badly during upgrade. ;;
+        *) return 0 ;;
+   esac
+   return 1
+}    
 run_upgrade_tests () {
     su=test/script-support.lisp
-    lu="(load\"$su\")"
-    lv="$command $eval $lu $eval" ;
+    lv="$command $eval (load\"$su\") $eval" ;
     for tag in `upgrade_tags` ; do
-        for x in load-system load-lisp load-lisp-compile-load-fasl load-fasl just-load-fasl ; do
-            lo="(asdf-test::load-asdf-lisp \"${tag}\")" ;
-            echo "Testing upgrade from ASDF ${tag} using method $x" ;
-            extract_tagged_asdf $tag
-            case ${lisp}:$tag:$x in
-                abcl:2.0[01][1-9]:*|abcl:2.2[1-2]:*)
-                    : Skip, because it is so damn slow ;;
-                ccl:1.*|ccl:2.0[01]*)
-                    : Skip, because ccl broke old asdf ;;
-                clisp:1.*|clisp:2.0[01]*)
-                    : Skip, because ccl broke old asdf ;;
-                cmucl:1.*|cmucl:2.00*|cmucl:2.01[0-4]:*)
-                    : Skip, CMUCL has problems before 2.014.7 due to source-registry upgrade ;;
-                ecl*:1.*|ecl*:2.0[01]*|ecl*:2.20:*)
-                    : Skip, because of various ASDF issues ;;
-                gcl:1.*|gcl:2.0*|gcl:2.2[0-6]*) : Skip old versions that do not support GCL 2.6 ;;
-                mkcl:1.*|mkcl:2.0[01]*|mkcl:2.2[0-3]:*)
-                    : Skip, because MKCL is only supported starting with 2.24 ;;
-                xcl:1.*|xcl:2.00*|xcl:2.01[0-4]:*|xcl:*)
-                    : XCL support starts with ASDF 2.014.2 - It also hangs badly during upgrade. ;;
-                *) (set -x ; case $x in
-                            load-system) l="$lo (asdf-test::load-asdf-system)" ;;
-                            load-lisp) l="$lo (asdf-test::load-asdf-lisp)" ;;
-                            load-lisp-compile-load-fasl) l="$lo (asdf-test::compile-load-asdf)" ;;
-                            load-fasl) l="$lo (asdf-test::load-asdf-fasl)" ;;
-                            just-load-fasl) l="(asdf-test::load-asdf-fasl)" ;;
-                            *) echo "WTF?" ; exit 2 ;; esac ;
-                        $lv "(asdf-test::test-asdf $l)" ) ||
-                    { echo "upgrade FAILED" ; exit 1 ;} ;; esac ;
-        done ; done 2>&1 | tee build/results/${lisp}-upgrade.text
+        for x in load-asdf-system load-asdf-lisp compile-load-asdf load-asdf-fasl just-load-asdf-fasl ; do
+            if valid_upgrade_test_p $lisp $tag $x ; then
+                echo "Testing upgrade from ASDF ${tag} using method $x" ;
+                $lv "(asdf-test::test-upgrade 'asdf-test::$x \"$tag\")" ||
+                { echo "upgrade FAILED for $lisp from $tag using method $x" ; exit 1 ;}
+    fi ; done ; done 2>&1 | tee build/results/${lisp}-upgrade.text
 }
 run_tests () {
   create_config
index 6ba9ff3..51ea076 100644 (file)
@@ -345,14 +345,18 @@ is bound, write a message and exit on an error.  If
     (register-directory *test-directory*)
     (acall :oos (asym :load-op) x :verbose verbose)))
 
-(defun testing-asdf (thunk)
+(defun test-upgrade (method tag) ;; called by run-test
   (with-test ()
-    (funcall thunk)
+    (unless (eq method 'just-load-asdf-fasl)
+      (format t "Loading old asdf ~A~%" tag)
+      (load-asdf-lisp tag))
+    (format t "Loading new asdf with method ~A~%" method)
+    (funcall method)
+    (format t "Testing it~%")
     (register-directory *test-directory*)
-    (load-test-system :test-module-depend)))
-
-(defmacro test-asdf (&body body) ;; used by test-upgrade
-  `(testing-asdf #'(lambda () ,@body)))
+    (load-test-system :test-module-depend)
+    (assert (eval (intern (symbol-name '#:*file1*) :test-package)))
+    (assert (eval (intern (symbol-name '#:*file3*) :test-package)))))
 
 (defun configure-asdf ()
   (setf *debug-asdf* (or *debug-asdf* (acall :getenvp "DEBUG_ASDF_TEST")))
@@ -380,6 +384,8 @@ is bound, write a message and exit on an error.  If
   (setf *quit-when-done* nil)
   (setf *package* (find-package :asdf-test)))
 
+(defun just-load-asdf-fasl () (load-asdf-fasl))
+
 ;; Actual scripts rely on this function:
 (defun common-lisp-user::load-asdf () (load-asdf))
 
index 40ac0d3..be262b5 100644 (file)
@@ -35,7 +35,7 @@
          ;; "2.345.6" would be a development version in the official upstream
          ;; "2.345.0.7" would be your seventh local modification of official release 2.345
          ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6
-         (asdf-version "2.26.97")
+         (asdf-version "2.26.98")
          (existing-asdf (find-class (find-symbol* :component :asdf nil) nil))
          (existing-version *asdf-version*)
          (already-there (equal asdf-version existing-version)))
index 061b942..11a7c42 100644 (file)
@@ -1 +1 @@
-"2.26.97"
+"2.26.98"