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: quoted_module(suite) ->
      [];
  quoted_module(Config) when is_list(Config) ->
      {module,'ExpandTestCaps'} = c:l('ExpandTestCaps'),
      {yes, "Caps':", []} = do_expand("'ExpandTest"),
      {no,[],
       [{"a_fun_name",1},
        {"a_less_fun_name",1},
        {"b_comes_after_a",1},
        {"module_info",0},
        {"module_info",1}]} = do_expand("'ExpandTestCaps':"),
      {yes,[],[{"a_fun_name",1},
  	     {"a_less_fun_name",1}]} = do_expand("'ExpandTestCaps':a_"),
      ok.
  
  quoted_both(suite) ->
      [];
  quoted_both(Config) when is_list(Config) ->
      {module,'ExpandTestCaps'} = c:l('ExpandTestCaps'),
      {module,'ExpandTestCaps1'} = c:l('ExpandTestCaps1'),
      %% should be no colon (or quote) after test this time
      {yes, "Caps", []} = do_expand("'ExpandTest"),
      {no,[],[{"'#weird-fun-name'",0},
  	    {"'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}]} = do_expand("'ExpandTestCaps1':"),
      {yes,"_",[]} = do_expand("'ExpandTestCaps1':a"),
      {yes,[],[{"a_fun_name",1},
  	     {"a_less_fun_name",1}]} = do_expand("'ExpandTestCaps1':a_"),
      {yes,[],
       [{"'#weird-fun-name'",0},
        {"'Quoted_fun_name'",0},
        {"'Quoted_fun_too'",0}]} = do_expand("'ExpandTestCaps1':'"),
      {yes,"uoted_fun_",[]} = do_expand("'ExpandTestCaps1':'Q"),
      {yes,[],
       [{"'Quoted_fun_name'",0},
        {"'Quoted_fun_too'",0}]} = do_expand("'ExpandTestCaps1':'Quoted_fun_"),
      {yes,"weird-fun-name'()",[]} = do_expand("'ExpandTestCaps1':'#"),
      ok.
  
  do_expand(String) ->
      edlin_expand:expand(lists:reverse(String)).
  