Fix .gitignore and commit some missing test fixes.

diff --git a/.gitignore b/.gitignore
index 342f79d..08d5a1d 100644 (file)
--- 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 (file)
index 0000000..1bff24b
--- /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 bd37e25..fa179cf 100644 (file)
--- 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 (file)
index 0000000..2e4842a
--- /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 (file)
index 0000000..7ae35a1
--- /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*)