library/test/format.factor

   1 IN: scratchpad
   2 USE: compiler
   3 USE: format
   4 USE: namespaces
   5 USE: stdio
   6 USE: test
   7
   8 "Testing formatting words." print
   9
  10 [ [ 2 1 0 0 ] ] [ [ decimal-places ] ] [ balance>list ] test-word
  11 [ "123" ] [ "123" ] [ 2 decimal-places ] test-word
  12 [ "123.12" ] [ "123.12" ] [ 2 decimal-places ] test-word
  13 [ "123.123" ] [ "123.123" ] [ 5 decimal-places ] test-word
  14 [ "123" ] [ "123.123" ] [ 0 decimal-places ] test-word
  15
  16 "Formatting tests done." print