1 USING: vocabs.prettyprint vocabs.prettyprint.private tools.test
2 io.streams.string eval ;
3 IN: vocabs.prettyprint.tests
5 : manifest-test-1 ( -- string )
6 """USING: kernel namespaces vocabs.parser vocabs.prettyprint ;
8 << manifest get pprint-manifest >>""" ;
11 """USING: kernel namespaces vocabs.parser vocabs.prettyprint ;"""
13 [ [ manifest-test-1 eval( -- ) ] with-string-writer ] unit-test
15 : manifest-test-2 ( -- string )
16 """USING: kernel namespaces vocabs.parser vocabs.prettyprint ;
17 IN: vocabs.prettyprint.tests
19 << manifest get pprint-manifest >>""" ;
22 """USING: kernel namespaces vocabs.parser vocabs.prettyprint ;
23 IN: vocabs.prettyprint.tests"""
25 [ [ manifest-test-2 eval( -- ) ] with-string-writer ] unit-test
27 : manifest-test-3 ( -- string )
28 """USING: kernel namespaces vocabs.parser vocabs.prettyprint ;
31 QUALIFIED-WITH: assocs a
32 EXCLUDE: parser => run-file ;
33 IN: vocabs.prettyprint.tests
35 << manifest get pprint-manifest >>""" ;
38 """USING: kernel namespaces vocabs.parser vocabs.prettyprint ;
41 QUALIFIED-WITH: assocs a
42 EXCLUDE: parser => run-file ;
43 IN: vocabs.prettyprint.tests"""
45 [ [ manifest-test-3 eval( -- ) ] with-string-writer ] unit-test
48 """USING: alien.c-types alien.syntax byte-arrays io
49 io.encodings.binary io.encodings.string io.encodings.utf8
50 io.streams.byte-array kernel sequences system system-info unix ;"""
61 "io.streams.byte-array"