Begin testing pathname printing

(load "print-vector.lsp")

(load "print-array.lsp")

(load "print-random-state.lsp")

(load "print-pathname.lsp")

 No newline at end of file

;-*- Mode:     Lisp -*-

;;;; Author:   Paul Dietz

;;;; Created:  Tue May 25 08:22:03 2004

;;;; Contains: Printer tests for pathnames

(in-package :cl-test)

(compile-and-load "printer-aux.lsp")

(deftest print.pathname.1

  (loop for p in *universe*

	when (typep p 'pathname)

	nconc

	(loop repeat 10

	      nconc (randomly-check-readability p :test #'is-similar

						:can-fail t)))

  nil)

(deftest print.pathname.2

  (loop for p in *universe*

	when (typep p 'pathname)

	nconc

	(let ((ns (ignore-errors (namestring p))))

	  "Read 22.1.3.11 before commenting on this test"

	  (when ns

	    (let ((expected-result (concatenate 'string "#P\"" ns "\""))

		  (result (with-standard-io-syntax

			   (write-to-string p :readably nil :escape t))))

	      (unless (string= expected-result result)

		(list (list expected-result result)))))))

  nil)