we also need to be able to convert a file reference to a locator

pharo-project · May 29, 2020 · 2564418 · 2564418
1 parent cd4c5f8
commit 2564418
Show file tree

Hide file tree

Showing 2 changed files with 32 additions and 0 deletions.
diff --git a/src/FileSystem-Core/FileReference.class.st b/src/FileSystem-Core/FileReference.class.st
@@ -96,6 +96,11 @@ FileReference >> asAbsolute [
 		ifFalse: [ filesystem referenceTo: (filesystem resolve: path) ]
 ]
 
+{ #category : #converting }
+FileReference >> asFileLocatorOrReference [
+	^ self path asFileLocatorOrReference
+]
+
 { #category : #converting }
 FileReference >> asFileReference [
 	^ self

diff --git a/src/FileSystem-Tests-Core/FileReferenceTest.class.st b/src/FileSystem-Tests-Core/FileReferenceTest.class.st
@@ -99,6 +99,33 @@ FileReferenceTest >> testAsAbsoluteIdentity [
 	self assert: ref asAbsolute identicalTo: ref
 ]
 
+{ #category : #tests }
+FileReferenceTest >> testAsFileLocatorOrReferenceReturnsALocatorWhenStringRefersToAKnownOrigin [
+	| fileRef locator |
+	fileRef := (FileLocator home / 'foo') asFileReference.
+
+	locator := fileRef asFileLocatorOrReference.
+
+	self
+		assert: locator origin
+		equals: #home.
+	self
+		assert: locator fullName
+		equals: fileRef fullName.
+]
+
+{ #category : #tests }
+FileReferenceTest >> testAsFileLocatorOrReferenceReturnsAReferenceWhenStringDoesNotReferToAKnownOrigin [
+	| fileRef result |
+	fileRef := '/foo' asFileReference.
+
+	result := fileRef asFileLocatorOrReference.
+
+	self
+		assert: result
+		equals: fileRef.
+]
+
 { #category : #tests }
 FileReferenceTest >> testAsReference [
 	| ref |