Try again and seems windows full_path have trailing slash

Author: yuxiaomao

src/core/classPaths.ml

@@ -169,7 +169,9 @@ class class_paths = object(self)
 				file
 			| path :: l ->
 				let path = path#path in
-				let spath = String.lowercase_ascii (slashes path) in
+				let path = slashes (Path.get_full_path path) in
+				let path = if String.length path > 0 && not (String.ends_with "/" path) then path ^ "/" else path in
+				let spath = String.lowercase_ascii path in
 				let slen = String.length spath in
 				if slen > 0 && slen < flen && String.sub fpath_lower 0 slen = spath then String.sub fpath slen (flen - slen) else loop l
 		in

tests/unit/src/unit/issues/Issue3348.hx

@@ -3,10 +3,10 @@ package unit.issues;
 class Issue3348 extends Test {
 
 	function test() {
-		eq("unit.issues.Issue3348,src/unit/issues/Issue3348.hx,6,test", getPos1());
-		eq("unit.issues.Issue3348,src/unit/issues/Issue3348.hx,7,test", getPos2());
-		eq("unit.issues.Issue3348,src/unit/issues/Issue3348.hx,8,test", getPos3("ok"));
-		eq("unit.issues.Issue3348,src/unit/issues/Issue3348.hx,9,test", getPos4(1));
+		eq("unit.issues.Issue3348,unit/issues/Issue3348.hx,6,test", getPos1());
+		eq("unit.issues.Issue3348,unit/issues/Issue3348.hx,7,test", getPos2());
+		eq("unit.issues.Issue3348,unit/issues/Issue3348.hx,8,test", getPos3("ok"));
+		eq("unit.issues.Issue3348,unit/issues/Issue3348.hx,9,test", getPos4(1));
 	}
 
 	static function getPosString(p:haxe.PosInfos) {

tests/unit/src/unitstd/haxe/Log.unit.hx

@@ -8,7 +8,7 @@ haxe.Log.trace = function(v, ?i) {
 trace("test trace");
 haxe.Log.trace = old;
 s == "test trace";
-p.fileName == "src/unitstd/haxe/Log.unit.hx";
+p.fileName == "unitstd/haxe/Log.unit.hx";
 p.lineNumber == 8;
 haxe.Log.trace = null;
 exc(function() trace("exc test"));