Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
19e3b5ad
Commit
19e3b5ad
authored
Apr 24, 2005
by
pfdietz
Browse files
Get rid of non-standard way to remove fasl files
parent
8dbeadbf
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/doit.lsp
View file @
19e3b5ad
...
@@ -4,9 +4,16 @@
...
@@ -4,9 +4,16 @@
;;; with arbitrary legal garbage.
;;; with arbitrary legal garbage.
;; (pushnew :ansi-tests-strict-initial-element *features*)
;; (pushnew :ansi-tests-strict-initial-element *features*)
#+allegro (run-shell-command "rm -f *.fasl")
#+allegro (setq *enclose-printer-errors* nil)
#+allegro (setq *enclose-printer-errors* nil)
#+cmu (run-program "rm -f *.x86f")
;;; Remove compiled files
(let* ((fn (compile-file-pathname "doit.lsp"))
(type (pathname-type fn))
(dir-pathname (make-pathname :name :wild :type type))
(files (directory dir-pathname)))
(assert type)
(assert (not (string-equal type "lsp")))
(mapc #'delete-file files))
(load "gclload1.lsp")
(load "gclload1.lsp")
(load "gclload2.lsp")
(load "gclload2.lsp")
...
...
ansi-tests/gclload.lsp
View file @
19e3b5ad
...
@@ -4,9 +4,16 @@
...
@@ -4,9 +4,16 @@
;;; with arbitrary legal garbage.
;;; with arbitrary legal garbage.
;; (pushnew :ansi-tests-strict-initial-element *features*)
;; (pushnew :ansi-tests-strict-initial-element *features*)
#+allegro (run-shell-command "rm -f *.fasl")
#+allegro (setq *enclose-printer-errors* nil)
#+allegro (setq *enclose-printer-errors* nil)
#+cmu (run-program "rm" '("-f" "*.x86f" "*.sparcf" "*.ppcf"))
;;; Remove compiled files
(let* ((fn (compile-file-pathname "doit.lsp"))
(type (pathname-type fn))
(dir-pathname (make-pathname :name :wild :type type))
(files (directory dir-pathname)))
(assert type)
(assert (not (string-equal type "lsp")))
(mapc #'delete-file files))
(load "gclload1.lsp")
(load "gclload1.lsp")
(load "gclload2.lsp")
(load "gclload2.lsp")
...
@@ -20,4 +27,10 @@
...
@@ -20,4 +27,10 @@
(rt:disable-note :assume-no-gray-streams))
(rt:disable-note :assume-no-gray-streams))
(in-package :cl-test)
(in-package :cl-test)
;;; These two tests will misbehave if the tests are being
;;; invoked from a file that is being loaded, so remove them
(when *load-pathname*
(mapc #'regression-test:rem-test '(load-pathname.1 load-truename.1)))
(time (regression-test:do-tests))
(time (regression-test:do-tests))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment