anchor.diff:          tgs:module(SluggedModName ++ "_tests"),
           nl,
           tgs:include_lib("erl_exercism/include/exercism.hrl"),
  -        tgs:include_lib("eunit/include/eunit.hrl"),
  -        nl,
  -        nl] ++ inter(nl, lists:flatten(Tests)),
  +        tgs:include_lib("eunit/include/eunit.hrl")],
  +
  +    Preamble=prepare_test_module(Module),
  +
  +    Body=inter(nl, lists:flatten(Tests)),
  +
  +    Content=Abstract ++ [nl, nl] ++ Preamble ++ [nl, nl] ++ Body,
   
       {SluggedModName ++ "_tests", lists:flatten(
           lists:map(
               fun (nl) -> io_lib:format("~n", []);
                   (Tree) -> io_lib:format("~s~n", [erl_prettypr:format(Tree)])
  -            end, Abstract))}.
  +            end, Content))}.
   
   inter(_, []) -> [];
   inter(_, [X]) -> [X];
  
positive.code: slugify([C|Name], true, Acc) when C>=$A andalso C=<$Z -> slugify(Name, false, [C-$A+$a, $_|Acc]);
  slugify([_|Name], AllowSnail, Acc) -> slugify(Name, AllowSnail, Acc).
  
  generate_stub_module(ModuleName, Props) ->
      SluggedModName = slugify(ModuleName),
  
      Funs = lists:map(fun
  
negative.code:         false -> Tests
      end.
  
  generate_test_module(Module, ModuleName, Tests, TestVersion) ->
      SluggedModName = slugify(ModuleName),
  
      Abstract = [
  