From 470fc32af0f58008c25439431e2253fbdfc18155 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Jul 2001 05:08:16 +0000
Subject: [PATCH] Rename RUN-VALIDITY-TESTS to RUN-XML-TESTS, and change it to
 run all the tests in the xmltest directory.

---
 v7/src/xml/test-parser.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/v7/src/xml/test-parser.scm b/v7/src/xml/test-parser.scm
index 0499ea37e..19c96d1c2 100644
--- a/v7/src/xml/test-parser.scm
+++ b/v7/src/xml/test-parser.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: test-parser.scm,v 1.3 2001/07/10 17:50:14 cph Exp $
+;;; $Id: test-parser.scm,v 1.4 2001/07/12 05:08:16 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -42,9 +42,9 @@
        (directory-read
 	(merge-pathnames "*.xml" (pathname-as-directory directory)))))
 
-(define (run-validity-tests root)
+(define (run-xml-tests root)
   (let ((root
-	 (merge-pathnames "xmlconf/xmltest/valid/"
+	 (merge-pathnames "xmlconf/xmltest/"
 			  (pathname-as-directory root))))
     (for-each (lambda (dir)
 		(newline)
@@ -52,4 +52,6 @@
 		(write-string dir)
 		(newline)
 		(test-directory (merge-pathnames dir root)))
-	      '("sa" "ext-sa" "not-sa"))))
\ No newline at end of file
+	      '("valid/sa" "valid/ext-sa" "valid/not-sa"
+			   "invalid"
+			   "not-wf/sa" "not-wf/ext-sa" "not-wf/not-sa"))))
\ No newline at end of file
-- 
2.25.1