Fix byte vector prettyprinting
parent
c581311e03
commit
eed1dd3d2b
|
@ -214,6 +214,7 @@ M: tuple pprint-narrow? drop t ;
|
||||||
|
|
||||||
M: object pprint* pprint-object ;
|
M: object pprint* pprint-object ;
|
||||||
M: vector pprint* pprint-object ;
|
M: vector pprint* pprint-object ;
|
||||||
|
M: byte-vector pprint* pprint-object ;
|
||||||
M: hashtable pprint* pprint-object ;
|
M: hashtable pprint* pprint-object ;
|
||||||
|
|
||||||
M: curry pprint*
|
M: curry pprint*
|
||||||
|
|
|
@ -1,5 +1,6 @@
|
||||||
IN: byte-vectors.tests
|
IN: byte-vectors.tests
|
||||||
USING: tools.test byte-vectors vectors sequences kernel ;
|
USING: tools.test byte-vectors vectors sequences kernel
|
||||||
|
prettyprint ;
|
||||||
|
|
||||||
[ 0 ] [ 123 <byte-vector> length ] unit-test
|
[ 0 ] [ 123 <byte-vector> length ] unit-test
|
||||||
|
|
||||||
|
@ -12,3 +13,5 @@ USING: tools.test byte-vectors vectors sequences kernel ;
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
[ t ] [ BV{ } byte-vector? ] unit-test
|
[ t ] [ BV{ } byte-vector? ] unit-test
|
||||||
|
|
||||||
|
[ "BV{ }" ] [ BV{ } unparse ] unit-test
|
||||||
|
|
Loading…
Reference in New Issue