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