classes.struct: use unparse in tests.

diff --git a/basis/classes/struct/struct-tests.factor b/basis/classes/struct/struct-tests.factor
index 26c3aa6602d74dead65284055ec8a3c4714d855c..905c11d58ad11f78ab0ed8dbefd4eb0c68d917a7 100644 (file)
--- a/basis/classes/struct/struct-tests.factor
+++ b/basis/classes/struct/struct-tests.factor
@@ -161,28 +161,28 @@ STRUCT: struct-test-string-ptr
 { "S{ struct-test-foo { x 0 } { y 7654 } { z f } }" }
 [
     H{ { boa-tuples? f } { c-object-pointers? f } } [
-        struct-test-foo <struct> 7654 >>y [ pprint ] with-string-writer
+        struct-test-foo <struct> 7654 >>y unparse
     ] with-variables
 ] unit-test
 
 { "S@ struct-test-foo B{ 0 0 0 0 0 0 0 0 0 0 0 0 }" }
 [
     H{ { c-object-pointers? t } } [
-        12 <byte-array> struct-test-foo memory>struct [ pprint ] with-string-writer
+        12 <byte-array> struct-test-foo memory>struct unparse
     ] with-variables
 ] unit-test
 
 { "S{ struct-test-foo f 0 7654 f }" }
 [
     H{ { boa-tuples? t } { c-object-pointers? f } } [
-        struct-test-foo <struct> 7654 >>y [ pprint ] with-string-writer
+        struct-test-foo <struct> 7654 >>y unparse
     ] with-variables
 ] unit-test
 
 { "S@ struct-test-foo f" }
 [
     H{ { c-object-pointers? f } } [
-        f struct-test-foo memory>struct [ pprint ] with-string-writer
+        f struct-test-foo memory>struct unparse
     ] with-variables
 ] unit-test