anchor.diff:      {"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.
  +-endif.
  
positive.code: %% @end
  %%-------------------------------------------------------------------------
  
  -spec triml(Characters :: string() | list(string()),
              String :: string() | binary()) ->
      string() | binary().
  
  
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),
  