Modify the workingDirectory test to also run when the Systems PathDel…

…imiter is not equal to $\

packages/MarkdownEditor-Tests.package/MarkdownLinkTest.class/instance/testWorkingDirectory.st

@@ -1,17 +1,16 @@
 tests
 testWorkingDirectory
 
-	| link  |
-	link := (MarkdownLink from: 1 to: 4) url: ''.
-	self assert: 
-		(link getAbsoluteUrlFromPath: MarkdownEditor new currentFilePath) pathForFile = 
-		FileDirectory default asUrl pathForFile.
+	| link delimiter path |
+	link := (MarkdownLink from: 1 to: 4) url: 'testWorkingDir'.
+	self assert: (link getAbsoluteUrlFromPath: '') pathForFile 
+		equals: FileDirectory default asUrl pathForFile, 'testWorkingDir'.
 
+	delimiter := FileDirectory pathNameDelimiter asString.
+	path := FileDirectory default pathName, delimiter, 'testWorkingDir', delimiter.
 	link url: 'testtest.jpg'.
-	self assert: 
-			(link getAbsoluteUrlFromPath: FileDirectory default pathName, '\testWorkingDir\test.md') pathForFile 
-		equals:
-			FileDirectory default pathName, '\testWorkingDir\testtest.jpg'.
+	self assert: (link getAbsoluteUrlFromPath: path, 'test.md') pathForFile 
+		equals: path, 'testtest.jpg'.
 
 
 

packages/MarkdownEditor-Tests.package/MarkdownLinkTest.class/methodProperties.json

@@ -12,4 +12,4 @@
 		"testSetRange" : "hsl 5/19/2020 22:35",
 		"testStartPositionsAreUnequal" : "cg 6/29/2020 23:50",
 		"testUrl" : "hsl 5/28/2020 13:16",
-		"testWorkingDirectory" : "C.H. 5/28/2021 10:26" } }
+		"testWorkingDirectory" : "C.H. 5/28/2021 11:24" } }