From 5270de201ecf0c2909379552c6a887dfd9475bd4 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Sun, 13 Jan 2013 11:19:05 -0500 Subject: [PATCH] Fix .gitignore and commit some missing test fixes. --- .gitignore | 8 +------- test/package-test.lisp | 2 ++ test/script-support.lisp | 2 +- test/static-and-serial.asd | 12 ++++++++++++ test/test-concatenate-source.lisp | 8 ++++++++ 5 files changed, 24 insertions(+), 8 deletions(-) create mode 100644 test/package-test.lisp create mode 100644 test/static-and-serial.asd create mode 100644 test/test-concatenate-source.lisp diff --git a/.gitignore b/.gitignore index 342f79dd..08d5a1db 100644 --- a/.gitignore +++ b/.gitignore @@ -1,12 +1,8 @@ -# really this is private to my build process ? ?? ??? -???? -????? -generate-asdf.lisp +build -# Temporary files from documentation build doc/asdf/ doc/asdf.aux doc/asdf.cp @@ -25,7 +21,6 @@ doc/asdf.vr doc/asdf.vrs doc/asdf.t2d/ -# We build these at various stages in the build and test process LICENSE tmp/ *.dribble @@ -43,7 +38,6 @@ tmp/ test/try-reloading-dependency.asd test/fileMissing.lisp -# debian stuff build-stamp debian/cl-asdf.debhelper.log debian/cl-asdf.postinst.debhelper diff --git a/test/package-test.lisp b/test/package-test.lisp new file mode 100644 index 00000000..1bff24b7 --- /dev/null +++ b/test/package-test.lisp @@ -0,0 +1,2 @@ +(in-package :asdf/package) + diff --git a/test/script-support.lisp b/test/script-support.lisp index bd37e25b..fa179cff 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -340,7 +340,7 @@ is bound, write a message and exit on an error. If `(testing-asdf #'(lambda () ,@body))) (defun close-inputs () - (close *standard-input*)) + #-ecl (close *standard-input*)) (defun configure-asdf () (untrace) diff --git a/test/static-and-serial.asd b/test/static-and-serial.asd new file mode 100644 index 00000000..2e4842aa --- /dev/null +++ b/test/static-and-serial.asd @@ -0,0 +1,12 @@ +#| +make sure that serial t and static-files don't cause full rebuilds all +the time... +|# + +(defsystem static-and-serial + :version "0.1" + :serial t + :components + ((:static-file "file2.lisp") + (:static-file "run-tests.sh") + (:file "file1"))) diff --git a/test/test-concatenate-source.lisp b/test/test-concatenate-source.lisp new file mode 100644 index 00000000..7ae35a13 --- /dev/null +++ b/test/test-concatenate-source.lisp @@ -0,0 +1,8 @@ +(defpackage :test-package (:use :cl)) +(in-package :test-package) +(defvar *file3* t) +(defpackage :test-package (:use :cl)) +(in-package :test-package) +(defvar *file1* t) +(in-package :test-package) +(assert *file1*) -- GitLab