anchor.diff:        ?_assertExit( { noproc, _ }, ls())
       ]
     ).
  +
  +check_last_(RRDFile,Now) -> 
  +  fun () -> 
  +    { ok, When } = erlrrd:last(RRDFile),
  +    When = Now
  +  end.
   
   start_helper_() -> 
     {ok, Pid} = start_link(), 
  
positive.code:     fun() -> ok end
    ].
  
  p_func(X,Steps) -> 
    Pi = math:pi(),
    5 * ( 
      math:sin( 3*Pi/2 + X/(Steps / (8*Pi) )  )
      + 1
    ).
  
  check_last_(RRDFile,Now) -> 
    fun () -> 
      { ok, When } = erlrrd:last(RRDFile),
      When = Now
    end.
  
  time_since_epoch() ->
    calendar:datetime_to_gregorian_seconds( erlang:universaltime())
      - ( 719528 * 86400 ).
  
  
  cast(Blah) -> 
   gen_server:cast(?MODULE, Blah ).
  
  %%%%% eunit tests just for coverage %%%%%
  handle_cast_test_() ->
    { setup,
      fun start_helper_/0,
      fun stop_helper_/1,
      ?_test(cast(blah))
    }.
  
  handle_info_test_() -> 
    { setup,
      fun start_helper_/0,
      fun stop_helper_/1,
      ?_test(?MODULE ! yo)
    }.
  
  cause_long_response_test_() -> 
    { setup,
  
negative.code:     }
    }.
  
  check_started_(Tag) ->
    wrap_tag_(Tag,
      [
        ?_test(ls()),
        ?_test(pwd()),
        ?_test(ok),
        ?_test(ok)
      ] 
    ).
  
  check_stopped_(Tag) ->
    wrap_tag_(Tag,
      [
  