anchor.diff:              lists:seq(1, Steps)
             )
           end,
  +        % check the update times
  +        fun() -> 
  +          { ok, When } = erlrrd:last(RRDFile),
  +          When = Now
  +        end,
  +        fun() -> 
  +          { ok, When } = erlrrd:first(RRDFile),
  +          % it's 'Then' rounded up to StepSize
  +          RoundThen = (erlang:trunc(Then/StepSize) + 1) * StepSize,
  +          %kio:format(user, "~p~n", [{ first, When, Then, RoundThen  }]),
  +          When = RoundThen
  +        end,
           % make a graph!! :)
           fun() -> 
             { ok, _ } = erlrrd:graph([
  
positive.code: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %%  eunit,  test interfaces
  
  datain_dataout_test_() ->
    RRDFile = "foo.rrd",
    PNGFile = "out.png",
    Now = time_since_epoch(),
    Then = Now - 86400,
    StepSize = 300,
    Steps = round((Now - Then) / StepSize),
    { setup,
      fun()  -> 
        check_cwd_helper_(),
        ok = file:delete(RRDFile),
        { error, enoent } = file:read_file_info(RRDFile),
        {ok, _Pid} = start() 
      end,
      fun(_) -> 
        stopped = stop(),
        ok %= file:delete(RRDFile)
      end,
      { inorder,
        [
  
negative.code:           ])
            % ok, now how can we check the graph???  hmm.
          end,
          % dump the rrd
          fun() -> 
            ?assertEnoent(RRDDump),
            { ok, _ } = erlrrd:dump( RRDFile ++ " " ++ RRDDump ),
            ?assertExists(RRDDump)
          end,
          % restore the rrd
          fun() -> 
            ?assertExists(RRDDump),
            ?assertEnoent(RRDRestoredFile),
            { ok, _ } = erlrrd:restore( RRDDump ++ " " ++ RRDRestoredFile ),
            ?assertExists(RRDRestoredFile)
          end,
          check_last_(RRDRestoredFile, Now),
          % export rrd
          % compare
          fun() -> commas_are_cool end
  