printer-control-vars.lsp 796 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 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)