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

Cleanup some tests

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