diff --git a/collects/tests/mzscheme/pretty.ss b/collects/tests/mzscheme/pretty.ss
index c07ba9cbe8..2b00351836 100644
--- a/collects/tests/mzscheme/pretty.ss
+++ b/collects/tests/mzscheme/pretty.ss
@@ -104,9 +104,14 @@
 (test #t pretty-print-style-table? (pretty-print-extend-style-table (pretty-print-current-style-table) null null))
 
 (define (test-indent-variants pretty-format quote-abbrev?)
+  (define-struct a (x y) #:transparent)
   (parameterize ([pretty-print-columns 20])
     (test "(1234567890 1 2 3 4)" pretty-format '(1234567890 1 2 3 4))
     (test "(1234567890xx\n 1\n 2\n 3\n 4)" pretty-format '(1234567890xx 1 2 3 4))
+    (test "#(1234567890xx\n  1\n  2\n  3\n  4)" pretty-format (vector '1234567890xx 1 2 3 4))
+    (test "#s(apple\n   1234567890xx\n   1\n   2\n   3\n   4)" pretty-format #s(apple 1234567890xx 1 2 3 4))
+    (test "#(struct:a\n  1234567890xx\n  1)" pretty-format (make-a '1234567890xx 1))
+    (test "#hash((a . 567890xx)\n      (b . 1))" pretty-format #hash((a . 567890xx) (b . 1)))
     (test "(lambda 1234567890\n  1\n  2\n  3\n  4)" pretty-format '(lambda 1234567890 1 2 3 4))
     (test "(if 12345678903333\n  a\n  b)" pretty-format '(if 12345678903333 a b))
     (test "(cond\n (12345678903333 a)\n (else b))" pretty-format '(cond [12345678903333 a][else b]))