1 IN: vocabs.prettyprint.tests
2 USING: vocabs.prettyprint tools.test io.streams.string multiline eval ;
4 : manifest-test-1 ( -- string )
5 <" USING: kernel namespaces vocabs.parser vocabs.prettyprint ;
7 << manifest get pprint-manifest >> "> ;
10 <" USING: kernel namespaces vocabs.parser vocabs.prettyprint ;">
12 [ [ manifest-test-1 eval( -- ) ] with-string-writer ] unit-test
14 : manifest-test-2 ( -- string )
15 <" USING: kernel namespaces vocabs.parser vocabs.prettyprint ;
16 IN: vocabs.prettyprint.tests
18 << manifest get pprint-manifest >> "> ;
21 <" USING: kernel namespaces vocabs.parser vocabs.prettyprint ;
22 IN: vocabs.prettyprint.tests">
24 [ [ manifest-test-2 eval( -- ) ] with-string-writer ] unit-test
26 : manifest-test-3 ( -- string )
27 <" USING: kernel namespaces vocabs.parser vocabs.prettyprint ;
30 QUALIFIED-WITH: assocs a
31 EXCLUDE: parser => run-file ;
32 IN: vocabs.prettyprint.tests
34 << manifest get pprint-manifest >> "> ;
37 <" USING: kernel namespaces vocabs.parser vocabs.prettyprint ;
40 QUALIFIED-WITH: assocs a
41 EXCLUDE: parser => run-file ;
42 IN: vocabs.prettyprint.tests">
44 [ [ manifest-test-3 eval( -- ) ] with-string-writer ] unit-test