anchor.diff:    }.
   
   pass_newlines_test_() ->
  +  M = "No newlines",
     { setup,
       fun start_helper_/0,
       fun stop_helper_/1,
       [ 
  -      ?_assertMatch( { error, "No newlines" }, cd("..\n")),
  -      ?_assertMatch( { error, "No newlines" }, info("fart.rrd\n")),
  -      ?_assertMatch( { error, "No newlines" }, 
  +      ?_assertMatch( { error, M }, cd("..\n")),
  +      ?_assertMatch( { error, M }, info("fart.rrd\n")),
  +      ?_assertMatch( { error, M }, 
           create(["foo.rrd bar baz", [[[[<<"blahdedah\n">>]]]], "haha"])
         ),
         fun() -> ok end
       ]
     }.
  +
  +graph_to_stdout_saftey_test_() -> 
  +  M = { error, "Graphing to stdout not supported." },
  +  [
  +    ?_assertMatch( M, graph(" -")),
  +    ?_assertMatch( M, graph("-")),
  +    ?_assertMatch( M, graph(" - ")),
  +    ?_assertMatch( M, graph([" ", "-"," "])),
  +    ?_assertMatch( M, graph([" ", [[["-"]]]," "])),
  +    ?_assertMatch( M, graph([" ", [[["-"]]]])),
  +    ?_assertMatch( M, graph([[[["-"]]]," "])),
  +    ?_assertMatch( M, graph([" ", [[[<<"-">>]]]," "])),
  +    ?_assertMatch( M, graph([" ", [[[<<"-">>]]]])),
  +    ?_assertMatch( M, graph([[[[<<"-">>]]]," "])),
  +    fun() -> ok end
  +  ].
   
   p_func(X,Steps) -> 
     Pi = math:pi(),
  
positive.code:     }
    }.
  
  remote_cmd_test_() ->
    Dir = "makadir",
    { setup,
      fun() -> 
  
negative.code: %%         Check 
  %% [http://oss.oetiker.ch/rrdtool/doc/rrdgraph.en.html rrdgraph].
  graph      (Args) when is_list(Args) -> 
    % TODO: scan for this pattern w/out flattening the io_list? 
    % TODO: support  graphing to stdout!!! :) 
    Flat = erlang:binary_to_list(erlang:iolist_to_binary(Args)),
    case regexp:match(Flat, "(^| )-( |$)") of
      { match, _, _ } -> 
        % graph to stdout will break this Ports parsing of reponses..
        { error, "Graphing to stdout not supported." };
  