princ-to-string.lsp 514 Bytes
Newer Older
1 2 3 4 5 6 7
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Mon Jul 26 12:19:32 2004
;;;; Contains: Tests of PRINC-TO-STRING

(in-package :cl-test)

8

9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

(deftest princ-to-string.1
  (random-princ-to-string-test 1000)
  nil)

(deftest princ-to-string.2
  (with-standard-io-syntax (princ-to-string 2))
  "2")

;;; Error tests

(deftest princ-to-string.error.1
  (signals-error (princ-to-string) program-error)
  t)

(deftest princ-to-string.error.2
  (signals-error (princ-to-string nil nil) program-error)
  t)