anchor.diff:      end,
     HoursATF =
       #time_formatter{
  -       threshold  = 3 * 24,
  -       rounding   = 6,
  +       threshold  = 2 * 24,
  +       rounding   = 24,
          split_fun  = HoursSplitFun,
  -       one_format = "~wh",
  -       two_format = "~wd~2..0wh"
  -      },
  -  DayQuartersSplitFun =
  -    fun(Quarters) -> {Quarters div 4, (Quarters rem 4) * 6} end,
  -  DayQuartersATF =
  -    #time_formatter{
  -       threshold  = 4 * 15,
  -       rounding   = 4,
  -       split_fun  = DayQuartersSplitFun,
          one_format = "~wh",
          two_format = "~wd~2..0wh"
         },
     DaysSplitFun = fun(Days) -> Days end,
     DaysATF =
       #time_formatter{
  -       threshold  = 12*30,
  +       threshold  = 12 * 30,
          rounding   = 30,
          split_fun  = DaysSplitFun,
          one_format = "~wd"
  
positive.code:   ?assertEqual("47h59m", time_string(47*60*60 + 59*60)),
    ?assertEqual("47h59m", time_string(47*60*60 + 59*60 + 59)),
  
    ?assertEqual("2d00h", time_string(48*60*60)),
    ?assertEqual("2d00h", time_string(48*60*60 + 59*60)),
    ?assertEqual("2d01h", time_string(48*60*60 + 60*60)),
    ok.
  
  -endif.
  
negative.code:   SecondsSplitFun = fun(_) -> 1 end,
    SecondsATF =
      #time_formatter{
         threshold  = 60 * 1,
         rounding   = 60,
         split_fun  = SecondsSplitFun,
         one_format = "<~wm"
        },
    MinutesSplitFun = fun(Minutes) -> Minutes end,
    MinutesATF =
      #time_formatter{
         threshold  = 30 * 1,
         rounding   = 10,
         split_fun  = MinutesSplitFun,
         one_format = "~wm"
        },
    TensSplitFun =
      fun(Tens) ->
          case Tens < 6 of
            true -> Tens * 10;
            false -> {Tens div 6, (Tens rem 6) * 10}
          end
      end,
    TensATF =
      #time_formatter{
         threshold  = 2 * 6,
         rounding   = 6,
         split_fun  = TensSplitFun,
         one_format = "~wm",
         two_format = "~wh~2..0wm"
        },
    HoursSplitFun =
  