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: %% @spec last(erlang:iodata()) -> { ok, Response }  |  
  %%   { error, Reason } 
  %%  Reason = iolist()
  %%  Response = iolist()
  %% @doc    Return the date of the last data sample in an RRD. Check 
  %% [http://oss.oetiker.ch/rrdtool/doc/rrdlast.en.html rrdlast]
  last       (Args) when is_list(Args) -> do(last,       Args).
  
  %% @spec lastupdate(erlang:iodata()) -> { ok, Response }  |  
  %%   { error, Reason } 
  
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
  