anchor.diff:        file:delete(RRDDump),
         file:delete(RRDRestoredFile),
         ?assertEnoent(RRDFile),
  -      ok = start() 
  -    end,
  -    fun(_) -> 
  -      ok = stop(),
  +      { ok, Pid } = start_link(),
  +      Pid
  +    end,
  +    fun(Pid) -> 
  +      stop_helper_(Pid),
         file:delete(RRDFile),
         file:delete(RRDDump),
         file:delete(RRDRestoredFile),
  
positive.code: 
  pass_newlines_test_() ->
    { setup,
      fun()  -> ok = start() end,
      fun(_) -> ok = stop() end, 
      [ 
        ?_assertMatch( { error, "No newlines" }, cd("..\n")),
        ?_assertMatch( { error, "No newlines" }, info("fart.rrd\n")),
  
negative.code:   { setup,
      fun()  -> 
        check_cwd_helper_(),
        { ok, Pid } = start_link("./dummyrrdtool -"),
        Pid
      end,
      fun stop_helper_/1,
  