anchor.diff:  
   absname(Config) when is_list(Config) ->
       case os:type() of
  -	{win32, _} -> 
  -	    ?line [Drive|_] = ?config(priv_dir, Config),
  -	    ?line Temp = filename:join([Drive|":/"], "temp"),
  -	    ?line case file:make_dir(Temp) of
  -		      ok -> ok;
  -		      {error,eexist} -> ok
  -		  end,
  -	    ?line {ok,Cwd} = file:get_cwd(),
  -	    ?line ok = file:set_cwd(Temp),
  -	    ?line [Drive|":/temp/foo"] = filename:absname(foo),
  -	    ?line [Drive|":/temp/foo"] = filename:absname("foo"),
  -	    ?line [Drive|":/temp/../ebin"] = filename:absname("../ebin"),
  -	    ?line [Drive|":/erlang"] = filename:absname("/erlang"),
  -	    ?line [Drive|":/erlang/src"] = filename:absname("/erlang/src"),
  -	    ?line [Drive|":/erlang/src"] = filename:absname("\\erlang\\src"),
  -	    ?line [Drive|":/temp/erlang"] = filename:absname([Drive|":erlang"]),
  -	    ?line [Drive|":/temp/erlang/src"] =
  -		filename:absname([Drive|":erlang/src"]),
  -	    ?line [Drive|":/temp/erlang/src"] =
  -		filename:absname([Drive|":erlang\\src\\"]),
  -	    ?line "a:/erlang" = filename:absname("a:erlang"),
  -	    
  -	    ?line file:set_cwd([Drive|":/"]),
  -	    ?line [Drive|":/foo"] = filename:absname(foo),
  -	    ?line [Drive|":/foo"] = filename:absname("foo"),
  -	    ?line [Drive|":/../ebin"] = filename:absname("../ebin"),
  -	    ?line [Drive|":/erlang"] = filename:absname("/erlang"),
  -	    ?line [Drive|":/erlang/src"] = filename:absname("/erlang/src"),
  -	    ?line [Drive|":/erlang/src"] = filename:absname(["/erlang",'/src']),
  -	    ?line [Drive|":/erlang/src"] = filename:absname("\\erlang\\\\src"),
  -	    ?line [Drive|":/erlang"] = filename:absname([Drive|":erlang"]),
  -	    ?line [Drive|":/erlang/src"] = filename:absname([Drive|":erlang/src"]),
  -	    ?line "a:/erlang" = filename:absname("a:erlang"),
  -	    
  -	    ?line file:set_cwd(Cwd),
  -	    ok;
  -	{unix, _} ->
  -            ?line ok = file:set_cwd("/usr"),
  -            ?line "/usr/foo" = filename:absname(foo),
  -            ?line "/usr/foo" = filename:absname("foo"),
  -            ?line "/usr/../ebin" = filename:absname("../ebin"),
  -	    ?line file:set_cwd("/"),
  -	    ?line "/foo" = filename:absname(foo),
  -	    ?line "/foo" = filename:absname("foo"),
  -	    ?line "/../ebin" = filename:absname("../ebin"),
  -	    ?line "/erlang" = filename:absname("/erlang"),
  -	    ?line "/erlang/src" = filename:absname("/erlang/src"),
  -	    ?line "/erlang/src" = filename:absname(["/erl",'ang/s',"rc"]),
  -	    ?line "/erlang/src" = filename:absname(["/erl",'a','ng',"/",'s',"rc"]),
  -	    ?line "/erlang/src" = filename:absname("/erlang///src"),
  -	    ?line "/file_sorter.erl" = filename:absname([file_sorter|'.erl']),
  -	    ok
  +        {win32, _} -> 
  +            [Drive|_] = ?config(priv_dir, Config),
  +            Temp = filename:join([Drive|":/"], "temp"),
  +            case file:make_dir(Temp) of
  +                ok -> ok;
  +                {error,eexist} -> ok
  +            end,
  +            {ok,Cwd} = file:get_cwd(),
  +            ok = file:set_cwd(Temp),
  +            [Drive|":/temp/foo"] = filename:absname(foo),
  +            [Drive|":/temp/foo"] = filename:absname("foo"),
  +            [Drive|":/temp/../ebin"] = filename:absname("../ebin"),
  +            [Drive|":/erlang"] = filename:absname("/erlang"),
  +            [Drive|":/erlang/src"] = filename:absname("/erlang/src"),
  +            [Drive|":/erlang/src"] = filename:absname("\\erlang\\src"),
  +            [Drive|":/temp/erlang"] = filename:absname([Drive|":erlang"]),
  +            [Drive|":/temp/erlang/src"] =
  +                filename:absname([Drive|":erlang/src"]),
  +            [Drive|":/temp/erlang/src"] =
  +                filename:absname([Drive|":erlang\\src\\"]),
  +            "a:/erlang" = filename:absname("a:erlang"),
  +
  +            file:set_cwd([Drive|":/"]),
  +            [Drive|":/foo"] = filename:absname(foo),
  +            [Drive|":/foo"] = filename:absname("foo"),
  +            [Drive|":/../ebin"] = filename:absname("../ebin"),
  +            [Drive|":/erlang"] = filename:absname("/erlang"),
  +            [Drive|":/erlang/src"] = filename:absname("/erlang/src"),
  +            [Drive|":/erlang/src"] = filename:absname(["/erlang",'/src']),
  +            [Drive|":/erlang/src"] = filename:absname("\\erlang\\\\src"),
  +            [Drive|":/erlang"] = filename:absname([Drive|":erlang"]),
  +            [Drive|":/erlang/src"] = filename:absname([Drive|":erlang/src"]),
  +            "a:/erlang" = filename:absname("a:erlang"),
  +
  +            file:set_cwd(Cwd),
  +            ok;
  +        {unix, _} ->
  +            ok = file:set_cwd("/usr"),
  +            "/usr/foo" = filename:absname(foo),
  +            "/usr/foo" = filename:absname("foo"),
  +            "/usr/../ebin" = filename:absname("../ebin"),
  +
  +            file:set_cwd("/"),
  +            "/foo" = filename:absname(foo),
  +            "/foo" = filename:absname("foo"),
  +            "/../ebin" = filename:absname("../ebin"),
  +            "/erlang" = filename:absname("/erlang"),
  +            "/erlang/src" = filename:absname("/erlang/src"),
  +            "/erlang/src" = filename:absname(["/erl",'ang/s',"rc"]),
  +            "/erlang/src" = filename:absname(["/erl",'a','ng',"/",'s',"rc"]),
  +            "/erlang/src" = filename:absname("/erlang///src"),
  +            "/file_sorter.erl" = filename:absname([file_sorter|'.erl']),
  +            ok
       end.
   
   
  
positive.code:     relative = filename:pathtype(<<"foo/bar">>),
      relative = filename:pathtype('foo/bar'),
      case os:type() of
  	{win32, _} ->
  	    volumerelative = filename:pathtype(<<"/usr/local/bin">>),
  	    volumerelative = filename:pathtype(<<"A:usr/local/bin">>),
  	    ok;
  	_ ->
  	    absolute = filename:pathtype(<<"/">>),
  	    absolute = filename:pathtype(<<"/usr/local/bin">>),
  	    ok
      end.
  
  rootname_bin(Config) when is_list(Config) ->
  
negative.code:     [<<"/">>] = filename:split(<<"/">>),
      [] = filename:split(<<"">>),
      case os:type() of
          {win32,_} ->
              [<<"a:/">>,<<"msdev">>,<<"include">>] =
                  filename:split(<<"a:/msdev/include">>),
              [<<"a:/">>,<<"msdev">>,<<"include">>] =
                  filename:split(<<"A:/msdev/include">>),
              [<<"msdev">>,<<"include">>] =
                  filename:split(<<"msdev\\include">>),
              [<<"a:/">>,<<"msdev">>,<<"include">>] =
                  filename:split(<<"a:\\msdev\\include">>),
              [<<"a:">>,<<"msdev">>,<<"include">>] =
                  filename:split(<<"a:msdev\\include">>),
              ok;
          _ ->
              ok
      end.
  
  t_nativename_bin(Config) when is_list(Config) ->
      <<"abcedf">> = filename:nativename(<<"abcedf">>),
      case os:type() of
          {win32, _} ->
              <<"a:\\temp\\arne.exe">> =
                  filename:nativename(<<"A:/temp//arne.exe/">>);
          _ ->
              <<"/usr/tmp/arne">> =
                  filename:nativename(<<"/usr/tmp//arne/">>)
      end.
  