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