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