Commit 70a2a757 authored by Daniel Kochmański's avatar Daniel Kochmański

s-sharp: check symbol's packages

parent a698a9ad
......@@ -6,14 +6,13 @@
(in-package :cl-test)
(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 ((*tst-pkg* (find-package "CL-TEST"))
(*kwd-pkg* (find-package "KEYWORD")))
(let ((str (write-to-string s :readably nil :case :upcase :escape nil)))
(assert (string= (subseq str 0 3) "#S("))
......@@ -23,6 +22,7 @@
(assert (eq (car vals) 'print-struct-1))
(assert (symbolp (second vals)))
(assert (symbolp (fourth vals)))
(assert (eql *tst-pkg* (symbol-package (first vals))))
(assert (eql *kwd-pkg* (symbol-package (second vals))))
(assert (eql *kwd-pkg* (symbol-package (fourth vals))))
(cond
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment