Starting November 9th, common-lisp.net's Gitlab instance has implemented a more open account policy, allowing anyone with a GitHub or Google account to create an account on our instance.

At the same time, the login policy has started to require 2-factor authentication (2FA).

See https://mailman.common-lisp.net/pipermail/clo-devel/2018-October/001232.html for discussion.

Commit 652d1c08 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Improve test-bundle

parent 249d9822
......@@ -45,9 +45,25 @@
(DBG "Check that the files were indeed loaded.")
(assert (symbol-value (find-symbol* :*file1* :test-package)))
(assert (symbol-value (find-symbol* :*file3* :test-package)))
(DBG "Unintern symbols, load the bundle, and check that the symbols are there again.")
(set (find-symbol* :*file1* :test-package) nil)
(set (find-symbol* :*file3* :test-package) nil)
(assert-equal nil (symbol-value (find-symbol* :*file1* :test-package)))
(assert-equal nil (symbol-value (find-symbol* :*file3* :test-package)))
(load (output-file 'compile-bundle-op :test-asdf/bundle-1))
(assert-equal t (symbol-value (find-symbol* :*file1* :test-package)))
(assert-equal t (symbol-value (find-symbol* :*file3* :test-package)))
(DBG "Now for the mono-fasl")
(operate 'monolithic-compile-bundle-op :test-asdf/bundle-2)
(assert (probe-file *mono-bundle-2*))
(DBG "Unintern symbols, load the monolithic bundle, and check that the symbols are there again.")
(set (find-symbol* :*file1* :test-package) nil)
(set (find-symbol* :*file3* :test-package) nil)
(assert-equal nil (symbol-value (find-symbol* :*file1* :test-package)))
(assert-equal nil (symbol-value (find-symbol* :*file3* :test-package)))
(load (output-file 'monolithic-compile-bundle-op :test-asdf/bundle-2))
(assert-equal t (symbol-value (find-symbol* :*file1* :test-package)))
(assert-equal t (symbol-value (find-symbol* :*file3* :test-package)))
#+(or ecl mkcl)
(progn
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment