Fix #3: Multiple parent directory .. references were resolved incorrectly

I would have liked to use the original commit by Camillo Bruni from 2014,
but in Pharo 8 the history stops in 2017 with bef708e99d12d365d18623abd94afe1e579caf6c
"sources converted." (to Tonel) and in Pharo 6.1 the Monticello history
of FileSystem-Core also stops in 2016 because FileSystem-Core-MarcusDenker.155
has no ancestors. How disappointing!

Author: j4yk

src/FS-Core.package/.squot-contents

@@ -1,4 +1,5 @@
 SquotTrackedObjectMetadata {
 	#objectClassName : #PackageInfo,
+	#objectsReplacedByNames : true,
 	#serializer : #SquotCypressCodeSerializer
 }

src/FS-Core.package/FSPath.class/class/addParentElementTo..st

@@ -1,6 +1,6 @@
 private
 addParentElementTo: result
-	result isEmpty
-		ifTrue: [result add: '..']
-		ifFalse: [result removeLast]
+	(result isEmpty or: [ result last = '..' ])
+		ifTrue: [ result add: '..' ]
+		ifFalse: [ result removeLast ]
 

src/FS-Core.package/FSPath.class/methodProperties.json

@@ -4,7 +4,7 @@
 		"/" : "CamilloBruni 8/15/2011 17:36",
 		"addElement:to:" : "CamilloBruni 1/19/2012 15:03",
 		"addEmptyElementTo:" : "cwp 10/26/2009 13:41",
-		"addParentElementTo:" : "cwp 10/26/2009 13:39",
+		"addParentElementTo:" : "CamilloBruni 2/14/2014 14:46",
 		"canonicalizeElements:" : "cwp 10/26/2009 13:30",
 		"extensionDelimiter" : "StephaneDucasse 2/18/2011 22:31",
 		"from:delimiter:" : "jr 7/19/2017 18:31",

src/FS-Tests-Core.package/FSPathTest.class/instance/testRelativeFromString.st

@@ -0,0 +1,11 @@
+tests
+testRelativeFromString
+
+	| path |
+	
+	path := Path from: 'plonk/griffle'.
+	
+	self assert: path isRelative.
+	self assert: path size equals: 2.
+	self assert: (path at: 1) equals: 'plonk'.
+	self assert: (path at: 2) equals: 'griffle'.

src/FS-Tests-Core.package/FSPathTest.class/instance/testRelativeFromStringNormalization.st

@@ -0,0 +1,10 @@
+tests
+testRelativeFromStringNormalization
+
+	| path |
+	
+	path := Path from: 'plonk/../griffle'.
+	
+	self assert: path isRelative.
+	self assert: path size equals: 1.
+	self assert: (path at: 1) equals: 'griffle'.

src/FS-Tests-Core.package/FSPathTest.class/instance/testRelativeFromStringNormalizationParent.st

@@ -0,0 +1,11 @@
+tests
+testRelativeFromStringNormalizationParent
+
+	| path |
+	
+	path := Path from: 'plonk/../../griffle'.
+	
+	self assert: path isRelative.
+	self assert: path size equals: 2.
+	self assert: (path at: 1) equals: '..'.
+	self assert: (path at: 2) equals: 'griffle'.

src/FS-Tests-Core.package/FSPathTest.class/instance/testRelativeFromStringParent.st

@@ -0,0 +1,11 @@
+tests
+testRelativeFromStringParent
+
+	| path |
+	
+	path := Path from: '../..'.
+	
+	self assert: path isRelative.
+	self assert: path size equals: 2.
+	self assert: (path at: 1) equals: '..'.
+	self assert: (path at: 2) equals: '..'.

src/FS-Tests-Core.package/FSPathTest.class/methodProperties.json

@@ -30,6 +30,10 @@
 		"testParseTrailingSlash" : "CamilloBruni 1/19/2012 15:00",
 		"testPrintRelativeWithParent" : "cwp 3/29/2011 16:46",
 		"testPrintWithDelimiter" : "cwp 2/26/2011 11:00",
+		"testRelativeFromString" : "CamilloBruni 2/14/2014 14:39",
+		"testRelativeFromStringNormalization" : "CamilloBruni 2/14/2014 14:41",
+		"testRelativeFromStringNormalizationParent" : "CamilloBruni 2/14/2014 14:41",
+		"testRelativeFromStringParent" : "CamilloBruni 2/14/2014 14:41",
 		"testRelativePrintString" : "cwp 2/27/2011 09:31",
 		"testRelativeTo" : "StephaneDucasse 2/18/2011 21:55",
 		"testRelativeToBranch" : "cwp 11/15/2009 00:21",