formatting: adding octal and binary format directives.

[factor.git] / basis / formatting / formatting-tests.factor

diff --git a/basis/formatting/formatting-tests.factor b/basis/formatting/formatting-tests.factor
index 413a524b671bbaedcb9c97311699d6332fd04823..a5a463ff04f67f60eb3d0506151aebaf186495a3 100755 (executable)
--- a/basis/formatting/formatting-tests.factor
+++ b/basis/formatting/formatting-tests.factor
@@ -20,6 +20,8 @@ IN: formatting.tests
 [ "123.10" ] [ 123.1 "%01.2f" sprintf ] unit-test
 [ "1.2346" ] [ 1.23456789 "%.4f" sprintf ] unit-test
 [ "  1.23" ] [ 1.23456789 "%6.2f" sprintf ] unit-test
+[ "001100" ] [ 12 "%06b" sprintf ] unit-test
+[ "==14" ] [ 12 "%'=4o" sprintf ] unit-test
 
 { "foo: 1 bar: 2" } [ { 1 2 3 } "foo: %d bar: %s" vsprintf ] unit-test