steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

classes.struct: use unparse in tests.

char-rename
John Benediktsson 2017-01-11 10:22:51 -08:00
parent 78555afb9e
commit 5743ed204c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/classes/struct/struct-tests.factor
View File

@ -161,28 +161,28 @@ STRUCT: struct-test-string-ptr
{ "S{ struct-test-foo { x 0 } { y 7654 } { z f } }" } { "S{ struct-test-foo { x 0 } { y 7654 } { z f } }" }
[ [
H{ { boa-tuples? f } { c-object-pointers? 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 ] with-variables
] unit-test ] unit-test
{ "S@ struct-test-foo B{ 0 0 0 0 0 0 0 0 0 0 0 0 }" } { "S@ struct-test-foo B{ 0 0 0 0 0 0 0 0 0 0 0 0 }" }
[ [
H{ { c-object-pointers? t } } [ 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 ] with-variables
] unit-test ] unit-test
{ "S{ struct-test-foo f 0 7654 f }" } { "S{ struct-test-foo f 0 7654 f }" }
[ [
H{ { boa-tuples? t } { c-object-pointers? 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 ] with-variables
] unit-test ] unit-test
{ "S@ struct-test-foo f" } { "S@ struct-test-foo f" }
[ [
H{ { c-object-pointers? 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 ] with-variables
] unit-test ] unit-test