From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Jul 2001 05:08:16 +0000 (+0000)
Subject: Rename RUN-VALIDITY-TESTS to RUN-XML-TESTS, and change it to run all
X-Git-Tag: 20090517-FFI~2658
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=470fc32af0f58008c25439431e2253fbdfc18155;p=mit-scheme.git

Rename RUN-VALIDITY-TESTS to RUN-XML-TESTS, and change it to run all
the tests in the xmltest directory.
---

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