anchor.diff:  %% @end
   %%-------------------------------------------------------------------------
   
  --spec triml(Characters :: string() | list(string()),
  +-spec trimr(Characters :: string() | list(string()),
               String :: string() | binary()) ->
       string() | binary().
   
  
positive.code:     {"this-is-all", "input"} = splitr($-, "this-is-all-input"),
      ok.
  
  findl_test() ->
      "..cd..ef" = findl(".", "ab..cd..ef"),
      <<"..cd..ef">> = findl(".", <<"ab..cd..ef">>),
      <<"..cd..ef">> = findl("..", <<"ab..cd..ef">>),
      "..cd..ef" = findl("..", "ab..cd..ef"),
      false = findl("x", <<"ab..cd..ef">>),
      false = findl("x", "ab..cd..ef"),
      ok.
  
  findr_test() ->
      ".ef" = findr(".", "ab..cd..ef"),
      <<".ef">> = findr(".", <<"ab..cd..ef">>),
      <<"..ef">> = findr("..", <<"ab..cd..ef">>),
      "..ef" = findr("..", "ab..cd..ef"),
      false = findr("x", <<"ab..cd..ef">>),
      false = findr("x", "ab..cd..ef"),
      ok.
  
  join_test() ->
      "ab..bc..cd" = join("..", ["ab","bc","cd"]),
      <<"ab..bc..cd">> = join(<<"..">>, [<<"ab">>,<<"bc">>,<<"cd">>]),
      <<"ab..bc....cd">> = join(<<"..">>, [<<"ab">>,<<"bc">>,<<>>,<<"cd">>]),
      ok.
  
  split_test() ->
      ["ab","bc","cd"] = split("..", "ab..bc..cd"),
      [<<"ab">>,<<"bc">>,<<"cd">>] = split(<<"..">>, <<"ab..bc..cd">>),
      [<<"ab">>,<<"bc">>,<<>>,<<"cd">>] = split(<<"..">>, <<"ab..bc....cd">>),
      ok.
  
  -endif.
  
negative.code:     "this-is-all" = beforer($-, "this-is-all-input"),
      ok.
  
  findl_test() ->
      "..cd..ef" = findl(".", "ab..cd..ef"),
      <<"..cd..ef">> = findl(".", <<"ab..cd..ef">>),
      <<"..cd..ef">> = findl("..", <<"ab..cd..ef">>),
      "..cd..ef" = findl("..", "ab..cd..ef"),
      false = findl("x", <<"ab..cd..ef">>),
      false = findl("x", "ab..cd..ef"),
      ok.
  
  findr_test() ->
      ".ef" = findr(".", "ab..cd..ef"),
      <<".ef">> = findr(".", <<"ab..cd..ef">>),
      <<"..ef">> = findr("..", <<"ab..cd..ef">>),
      "..ef" = findr("..", "ab..cd..ef"),
      false = findr("x", <<"ab..cd..ef">>),
      false = findr("x", "ab..cd..ef"),
      ok.
  
  join_test() ->
      "ab..bc..cd" = join("..", ["ab","bc","cd"]),
      <<"ab..bc..cd">> = join(<<"..">>, [<<"ab">>,<<"bc">>,<<"cd">>]),
      <<"ab..bc....cd">> = join(<<"..">>, [<<"ab">>,<<"bc">>,<<>>,<<"cd">>]),
      ok.
  
  split_test() ->
      ["ab","bc","cd"] = split("..", "ab..bc..cd"),
      [<<"ab">>,<<"bc">>,<<"cd">>] = split(<<"..">>, <<"ab..bc..cd">>),
      [<<"ab">>,<<"bc">>,<<>>,<<"cd">>] = split(<<"..">>, <<"ab..bc....cd">>),
      ok.
  
  splitl_test() ->
      {"this-is-all-input", ""} = splitl($/, "this-is-all-input", input),
      {"", ""} = splitl($/, "this-is-all-input", empty),
  