diff --git a/ansi-tests/load-printer.lsp b/ansi-tests/load-printer.lsp index 5acb9e871fb9907fa482c5ba5f94b8f33753b4a1..f4668198966da67b137627a996310079658d1d71 100644 --- a/ansi-tests/load-printer.lsp +++ b/ansi-tests/load-printer.lsp @@ -23,3 +23,4 @@ (load "print-random-state.lsp") (load "print-pathname.lsp") (load "print-structure.lsp") +(load "printer-control-vars.lsp") diff --git a/ansi-tests/printer-control-vars.lsp b/ansi-tests/printer-control-vars.lsp new file mode 100644 index 0000000000000000000000000000000000000000..6b854c9c0bf323b1d9942e663db748e8935fc739 --- /dev/null +++ b/ansi-tests/printer-control-vars.lsp @@ -0,0 +1,52 @@ +;-*- Mode: Lisp -*- +;;;; Author: Paul Dietz +;;;; Created: Thu Jun 3 06:25:52 2004 +;;;; Contains: Tests of initial values of printer control variables + +(in-package :cl-test) + +(deftest print-base.init.1 + *print-base* + 10) + +(deftest print-radix.init.1 + *print-radix* + nil) + +(deftest print-case.init.1 + *print-case* + :upcase) + +(deftest print-circle.init.1 + *print-circle* + nil) + +(deftest print-escape.init.1 + (notnot *print-escape*) + t) + +(deftest print-gensym.init.1 + (notnot *print-gensym*) + t) + +(deftest print-level.init.1 + *print-level* + nil) + +(deftest print-length.init.1 + *print-length* + nil) + +(deftest print-lines.init.1 + *print-lines* + nil) + +(deftest print-readably.init.1 + *print-readably* + nil) + +(deftest print-right-margin.init.1 + *print-right-margin* + nil) + +