Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
913d061b
Commit
913d061b
authored
May 27, 2004
by
pfdietz
Browse files
Add a structure printing test
parent
2ef47e5f
Changes
2
Hide whitespace changes
Inline
Side-by-side
ansi-tests/load-printer.lsp
View file @
913d061b
...
...
@@ -21,4 +21,5 @@
(load "print-vector.lsp")
(load "print-array.lsp")
(load "print-random-state.lsp")
(load "print-pathname.lsp")
\ No newline at end of file
(load "print-pathname.lsp")
(load "print-structure.lsp")
ansi-tests/print-structure.lsp
0 → 100644
View file @
913d061b
;-*- Mode: Lisp -*-
;;;; Author: Paul Dietz
;;;; Created: Wed May 26 22:19:52 2004
;;;; Contains: Printing tests for structures
(in-package :cl-test)
(compile-and-load "printer-aux.lsp")
(defstruct print-struct-1
foo bar)
(deftest print-structure.1
(let ((s (make-print-struct-1 :foo 1 :bar 2)))
(with-standard-io-syntax
(let ((*package* (find-package "CL-TEST")))
(let ((str (write-to-string s :readably nil :case :upcase :escape nil)))
(assert (string= (subseq str 0 3) "#S("))
(let ((vals (read-from-string (subseq str 2))))
(assert (listp vals))
(assert (= (length vals) 5))
(assert (eq (car vals) 'print-struct-1))
(assert (symbolp (cadr vals)))
(assert (symbolp (cadddr vals)))
(cond
((string= (symbol-name (cadr vals)) "FOO")
(assert (string= (symbol-name (cadddr vals)) "BAR"))
(assert (= (caddr vals) 1))
(assert (= (car (cddddr vals)) 2)))
(t
(assert (string= (symbol-name (cadr vals)) "BAR"))
(assert (string= (symbol-name (cadddr vals)) "FOO"))
(assert (= (caddr vals) 2))
(assert (= (car (cddddr vals)) 1))))
nil)))))
nil)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment