Commit 4d77d02b authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Cleanup some tests

parent 9b3ac744
(defpackage :test-package (:use :cl)) (defpackage :test-package (:use :cl))
(in-package :test-package) (in-package :test-package)
(defvar *file1* t) (defvar *file1* t)
...@@ -44,6 +44,13 @@ ...@@ -44,6 +44,13 @@
#+allegro #+allegro
(setf excl:*warn-on-nested-reader-conditionals* nil) (setf excl:*warn-on-nested-reader-conditionals* nil)
(defun native-namestring (x)
(let* ((p (pathname x)))
#+clozure (ccl:native-translated-namestring p)
#+(or cmu scl) (ext:unix-namestring p)
#+sbcl (sb-ext:native-namestring p)
#-(or clozure cmu sbcl scl) (namestring p)))
;;; code adapted from cl-launch ;;; code adapted from cl-launch
(defun leave-lisp (message return) (defun leave-lisp (message return)
(fresh-line *error-output*) (fresh-line *error-output*)
...@@ -13,8 +13,8 @@ ...@@ -13,8 +13,8 @@
(setf asdf:*central-registry* `(*default-pathname-defaults* ,tmp)) (setf asdf:*central-registry* `(*default-pathname-defaults* ,tmp))
(assert (= 0 (asdf:run-shell-command (assert (= 0 (asdf:run-shell-command
(format nil "/bin/ln -sf ~A ~A" (format nil "/bin/ln -sf ~A ~A"
(#-scl namestring #+scl ext:unix-namestring asd) (native-namestring asd)
(#-scl namestring #+scl ext:unix-namestring asd2 #+scl nil))))) (native-namestring asd2)))))
(asdf:oos 'asdf:load-source-op 'test-multiple-too) (asdf:oos 'asdf:load-source-op 'test-multiple-too)
(assert (symbol-value (find-symbol (string :*file3*) :test-package))) (assert (symbol-value (find-symbol (string :*file3*) :test-package)))
(asdf:load-system 'test-multiple-free) (asdf:load-system 'test-multiple-free)
;;;; Example lisp code. ;;;; Example lisp code.
(in-package :cl-user)
(defun tst (x) (defun tst (x)
(1+ x)) (1+ x))
(defun add10 (x)
(+ x 10))
...@@ -6,8 +6,8 @@ ...@@ -6,8 +6,8 @@
(cl-user::quit-on-error (cl-user::quit-on-error
(let* ((fasl1 (asdf:compile-file-pathname* (truename "file1.lisp"))) (let* ((fasl1 (asdf:compile-file-pathname* (truename "file1.lisp")))
(fasl2 (asdf:compile-file-pathname* (truename "file2.lisp"))) (fasl2 (asdf:compile-file-pathname* (truename "file2.lisp")))
(ns1 (#-scl namestring #+scl ext:unix-namestring fasl1)) (ns1 (native-namestring fasl1))
(ns2 (#-scl namestring #+scl ext:unix-namestring fasl2))) (ns2 (native-namestring fasl2)))
(asdf:run-shell-command "rm -f ~A ~A" ns1 ns2) (asdf:run-shell-command "rm -f ~A ~A" ns1 ns2)
(setf asdf:*central-registry* '(*default-pathname-defaults*)) (setf asdf:*central-registry* '(*default-pathname-defaults*))
#-gcl #-gcl
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