anchor.diff:  
   
   page_full_path_test() ->
  -	CWD = filename:absname(""),
  -	?assertEqual(filename:join([CWD, priv, "pages/home.html"]), page_full_path([])),
  -	?assertEqual(filename:join([CWD, priv, "pages/home.html"]), page_full_path(undefined)),
  -	?assertEqual(filename:join([CWD, priv, "pages/home.html"]), page_full_path("")),
  -	?assertEqual(filename:join([CWD, priv, "pages/home.html"]), page_full_path("/")),
  -	?assertEqual(filename:join([CWD, priv, "pages/home.html"]), page_full_path("/home")),
  -	?assertEqual(filename:join([CWD, priv, "pages/docs.html"]), page_full_path("/docs")),
  -	?assertEqual(filename:join([CWD, priv, "pages/docs/index.html"]), page_full_path("/docs/")),
  -	?assertEqual(filename:join([CWD, priv, "pages/doc/toc.html"]), page_full_path("/doc/toc")),
  +	?assertEqual(filename:join([priv, "pages/home.html"]), page_full_path([])),
  +	?assertEqual(filename:join([priv, "pages/home.html"]), page_full_path(undefined)),
  +	?assertEqual(filename:join([priv, "pages/home.html"]), page_full_path("")),
  +	?assertEqual(filename:join([priv, "pages/home.html"]), page_full_path("/")),
  +	?assertEqual(filename:join([priv, "pages/home.html"]), page_full_path("/home")),
  +	?assertEqual(filename:join([priv, "pages/docs.html"]), page_full_path("/docs")),
  +	?assertEqual(filename:join([priv, "pages/docs/index.html"]), page_full_path("/docs/")),
  +	?assertEqual(filename:join([priv, "pages/doc/toc.html"]), page_full_path("/doc/toc")),
   	?assertEqual(undefined, page_full_path("/../home")),
   	?assertEqual(undefined, page_full_path("../home")).
   
   
   static_full_path_test() ->
  -	CWD = filename:absname(""),
  -	?assertEqual(filename:join([CWD, priv, "lib/css/site.css"]), static_full_path("/lib/css/site.css", lib)),
  -	?assertEqual(filename:join([CWD, priv, "lib/css/site.css"]), static_full_path("lib/css/site.css", lib)),
  -	?assertEqual(filename:join([CWD, priv, "lib/image/logo.jpg"]), static_full_path("/lib/image/logo.jpg", lib)),
  -	?assertEqual(filename:join([CWD, priv, "lib/image/logo.jpg"]), static_full_path("lib/image/logo.jpg", lib)),
  -	?assertEqual(filename:join([CWD, priv, "lib/js/test.js"]), static_full_path("/lib/js/test.js", lib)),
  -	?assertEqual(filename:join([CWD, priv, "lib/js/test.js"]), static_full_path("lib/js/test.js", lib)),
  -	?assertEqual(filename:join([CWD, priv, "files/test.jpg"]), static_full_path("/files/test.jpg", file)),
  -	?assertEqual(filename:join([CWD, priv, "files/test.jpg"]), static_full_path("files/test.jpg", file)),
  -	?assertEqual(filename:join([CWD, priv, "files/doc/doc.doc"]), static_full_path("/files/doc/doc.doc", file)),
  -	?assertEqual(filename:join([CWD, priv, "files/doc/doc.doc"]), static_full_path("files/doc/doc.doc", file)),
  -	?assertEqual(filename:join([CWD, priv, "misc/favicon.ico"]), static_full_path("/favicon.ico", misc)),
  -	?assertEqual(filename:join([CWD, priv, "misc/favicon.ico"]), static_full_path("favicon.ico", misc)),
  -	?assertEqual(filename:join([CWD, priv, "misc/robots.txt"]), static_full_path("/robots.txt", misc)),
  -	?assertEqual(filename:join([CWD, priv, "misc/robots.txt"]), static_full_path("robots.txt", misc)),
  +	?assertEqual(filename:join([priv, "lib/css/site.css"]), static_full_path("/lib/css/site.css", lib)),
  +	?assertEqual(filename:join([priv, "lib/css/site.css"]), static_full_path("lib/css/site.css", lib)),
  +	?assertEqual(filename:join([priv, "lib/image/logo.jpg"]), static_full_path("/lib/image/logo.jpg", lib)),
  +	?assertEqual(filename:join([priv, "lib/image/logo.jpg"]), static_full_path("lib/image/logo.jpg", lib)),
  +	?assertEqual(filename:join([priv, "lib/js/test.js"]), static_full_path("/lib/js/test.js", lib)),
  +	?assertEqual(filename:join([priv, "lib/js/test.js"]), static_full_path("lib/js/test.js", lib)),
  +	?assertEqual(filename:join([priv, "files/test.jpg"]), static_full_path("/files/test.jpg", file)),
  +	?assertEqual(filename:join([priv, "files/test.jpg"]), static_full_path("files/test.jpg", file)),
  +	?assertEqual(filename:join([priv, "files/doc/doc.doc"]), static_full_path("/files/doc/doc.doc", file)),
  +	?assertEqual(filename:join([priv, "files/doc/doc.doc"]), static_full_path("files/doc/doc.doc", file)),
  +	?assertEqual(filename:join([priv, "misc/favicon.ico"]), static_full_path("/favicon.ico", misc)),
  +	?assertEqual(filename:join([priv, "misc/favicon.ico"]), static_full_path("favicon.ico", misc)),
  +	?assertEqual(filename:join([priv, "misc/robots.txt"]), static_full_path("/robots.txt", misc)),
  +	?assertEqual(filename:join([priv, "misc/robots.txt"]), static_full_path("robots.txt", misc)),
   	?assertEqual(undefined, static_full_path("/../files/test.jpg", file)),
   	?assertEqual(undefined, static_full_path("/files/test.jpg", foobar)).
   
   
   template_full_path_test() ->
  -	CWD = filename:absname(""),
  -	?assertEqual(filename:join([CWD, priv, "templates"]), template_full_path()).
  -
  -
  -full_path_test() ->
  -	CWD = filename:absname(""),
  -	% full_path/1
  -	?assertEqual(filename:join([CWD, priv, "home"]), full_path("/home")),
  -	?assertEqual(filename:join([CWD, priv, "home"]), full_path("home")),
  -	?assertEqual(filename:join([CWD, priv, "home/dir"]), full_path("/home/dir")),
  -	?assertEqual(undefined, full_path("/../home")),
  -	?assertEqual(undefined, full_path("../home")),
  -	% full_path/2
  -	?assertEqual(filename:join([CWD, priv, "files/home"]), full_path("files", "/home")),
  -	?assertEqual(filename:join([CWD, priv, "files/home"]), full_path("files", "home")),
  -	?assertEqual(filename:join([CWD, priv, "files/home/dir"]), full_path("files", "/home/dir")),
  -	?assertEqual(undefined, full_path("files", "/../home")),
  -	?assertEqual(undefined, full_path("files", "../home")).
  +	?assertEqual(filename:join([priv, "templates"]), template_full_path()).
  +
  +
  +get_fs_path_test() ->
  +	% get_fs_path/1
  +	?assertEqual(filename:join([priv, "home"]), get_fs_path("/home")),
  +	?assertEqual(filename:join([priv, "home"]), get_fs_path("home")),
  +	?assertEqual(filename:join([priv, "home/dir"]), get_fs_path("/home/dir")),
  +	?assertEqual(undefined, get_fs_path("/../home")),
  +	?assertEqual(undefined, get_fs_path("../home")),
  +	% get_fs_path/2
  +	?assertEqual(filename:join([priv, "files/home"]), get_fs_path("files", "/home")),
  +	?assertEqual(filename:join([priv, "files/home"]), get_fs_path("files", "home")),
  +	?assertEqual(filename:join([priv, "files/home/dir"]), get_fs_path("files", "/home/dir")),
  +	?assertEqual(undefined, get_fs_path("files", "/../home")),
  +	?assertEqual(undefined, get_fs_path("files", "../home")).
   
   
   cleanup_test() ->
  
positive.code: 				undefined ->
  					undefined;
  				CleanUri ->
  					filename:join([filename:absname(""), priv, CleanSubDir, CleanUri])
  			end
  	end.
  
  
negative.code: %% @end
  %% -------------------------------------------------------------------
  template_full_path() ->
  	get_fs_path("templates").
  
  
  %% ===================================================================
  