anchor.diff:  
   -include_lib("test_server/include/test_server.hrl").
   
  -% Default timetrap timeout (set in init_per_testcase).
  +%% Default timetrap timeout (set in init_per_testcase).
   -define(default_timeout, ?t:minutes(1)).
   
   init_per_testcase(_Case, Config) ->
  -    ?line Dog = ?t:timetrap(?default_timeout),
  +    Dog = ?t:timetrap(?default_timeout),
       [{watchdog, Dog} | Config].
   end_per_testcase(_Case, Config) ->
       Dog = ?config(watchdog, Config),
  
positive.code: quoted_fun(suite) ->
      [];
  quoted_fun(Config) when is_list(Config) ->
      ?line {module,expand_test} = c:l(expand_test),
      ?line {module,expand_test1} = c:l(expand_test1),
      %% should be no colon after test this time
      ?line {yes, "test", []} = edlin_expand:expand(lists:reverse("expand_")),
      ?line {no, [], []} = edlin_expand:expand(lists:reverse("expandXX_")),
      ?line {no,[],[{"'#weird-fun-name'",1},
  		  {"'Quoted_fun_name'",0},
  		  {"'Quoted_fun_too'",0},
  		  {"a_fun_name",1},
  		  {"a_less_fun_name",1},
  		  {"b_comes_after_a",1},
  		  {"module_info",0},
  		  {"module_info",1}]} = edlin_expand:expand(
  					  lists:reverse("expand_test1:")),
      ?line {yes,"_",[]} = edlin_expand:expand(
  			   lists:reverse("expand_test1:a")),
      ?line {yes,[],[{"a_fun_name",1},
  		   {"a_less_fun_name",1}]} = edlin_expand:expand(
  					       lists:reverse("expand_test1:a_")),
      ?line {yes,[],
  	   [{"'#weird-fun-name'",1},
  	    {"'Quoted_fun_name'",0},
  	    {"'Quoted_fun_too'",0}]} = edlin_expand:expand(
  					 lists:reverse("expand_test1:'")),
      ?line {yes,"uoted_fun_",[]} = edlin_expand:expand(
  				    lists:reverse("expand_test1:'Q")),
      ?line {yes,[],
  	   [{"'Quoted_fun_name'",0},
  	    {"'Quoted_fun_too'",0}]} = edlin_expand:expand(
  					 lists:reverse("expand_test1:'Quoted_fun_")),
      ?line {yes,"weird-fun-name'(",[]} = edlin_expand:expand(
  					  lists:reverse("expand_test1:'#")),
      ok.
  
  quoted_module(doc) ->
  
negative.code: normal(suite) ->
      [];
  normal(Config) when is_list(Config) ->
      {module,expand_test} = c:l(expand_test),
      %% These tests might fail if another module with the prefix
      %% "expand_" happens to also be loaded.
      {yes, "test:", []} = do_expand("expand_"),
      {no, [], []} = do_expand("expandXX_"),
      {no,[],
       [{"a_fun_name",1},
        {"a_less_fun_name",1},
        {"b_comes_after_a",1},
        {"expand0arity_entirely",0},
        {"module_info",0},
        {"module_info",1}]} = do_expand("expand_test:"),
      {yes,[],[{"a_fun_name",1},
  	     {"a_less_fun_name",1}]} = do_expand("expand_test:a_"),
      {yes,"arity_entirely()",[]} = do_expand("expand_test:expand0"),
      ok.
  
  quoted_fun(doc) ->
  