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

prettyprint: Fix unit tests. Remove useless line.

db4
Doug Coleman 2012-05-04 09:09:14 -07:00
parent 3841bbb891
commit 2699c4482b
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/prettyprint/backend/backend.factor
View File

@ -10,7 +10,6 @@ prettyprint.custom prettyprint.sections prettyprint.stylesheet
quotations sbufs sequences strings vectors words words.symbol quotations sbufs sequences strings vectors words words.symbol
classes.private ; classes.private ;
FROM: sets => members ; FROM: sets => members ;
! QUALIFIED-WITH: classes.not cn
IN: prettyprint.backend IN: prettyprint.backend
M: effect pprint* effect>string text ; M: effect pprint* effect>string text ;

10
basis/prettyprint/prettyprint-tests.factor
View File

@ -413,7 +413,7 @@ TUPLE: fo { a intersection{ fixnum integer } } ;
[ [
"""USING: math ; """USING: math ;
IN: prettyprint.tests IN: prettyprint.tests
TUPLE: mo { a union{ float integer } initial: 0 } ; TUPLE: mo { a union{ integer float } initial: 0 } ;
""" """
] [ ] [
[ \ mo see ] with-string-writer [ \ mo see ] with-string-writer
@ -422,7 +422,7 @@ TUPLE: mo { a union{ float integer } initial: 0 } ;
[ [
"""USING: math ; """USING: math ;
IN: prettyprint.tests IN: prettyprint.tests
TUPLE: fo { a intersection{ fixnum integer } initial: 0 } ; TUPLE: fo { a intersection{ integer fixnum } initial: 0 } ;
""" """
] [ ] [
[ \ fo see ] with-string-writer [ \ fo see ] with-string-writer
@ -430,22 +430,22 @@ TUPLE: fo { a intersection{ fixnum integer } initial: 0 } ;
[ [
"""union{ """union{
union{ float integer }
intersection{ string hashtable } intersection{ string hashtable }
union{ integer float }
} }
""" """
] [ [ union{ union{ float integer } intersection{ string hashtable } } . ] with-string-writer ] unit-test ] [ [ union{ union{ float integer } intersection{ string hashtable } } . ] with-string-writer ] unit-test
[ [
"""intersection{ """intersection{
union{ float integer }
intersection{ string hashtable } intersection{ string hashtable }
union{ integer float }
} }
""" """
] [ [ intersection{ union{ float integer } intersection{ string hashtable } } . ] with-string-writer ] unit-test ] [ [ intersection{ union{ float integer } intersection{ string hashtable } } . ] with-string-writer ] unit-test
[ [
"""maybe{ union{ float integer } }\n""" """maybe{ union{ integer float } }\n"""
] [ ] [
[ maybe{ union{ float integer } } . ] with-string-writer [ maybe{ union{ float integer } } . ] with-string-writer
] unit-test ] unit-test