Merge pull request #1862 from AllenInstitute/bugfix/1862-get-all-file…

…s-backport

.gitignore

@@ -59,3 +59,5 @@ CheckIfConfigurationRestoresMCCFilterGain.json
 
 # Renamed experiments during tests
 Packages/tests/**/20*.pxp
+
+Packages/tests/Basic/test*

Packages/MIES/MIES_Utilities.ipf

@@ -2867,7 +2867,7 @@ Function/S GetAllFilesRecursivelyFromPath(pathName, [extension])
 		KillPath/Z $subFolderPathName
 
 		if(!isEmpty(files))
-			allFiles = AddListItem(files, allFiles, FILE_LIST_SEP, Inf)
+			allFiles = AddListItem(RemoveEnding(files, FILE_LIST_SEP), allFiles, FILE_LIST_SEP, Inf)
 		endif
 	endfor
 

Packages/tests/Basic/UTF_Utils.ipf

@@ -7202,3 +7202,38 @@ static Function TestUpperCaseFirstChar()
 	CHECK_EQUAL_STR(UpperCaseFirstChar("a1a"), "A1a")
 	CHECK_EQUAL_STR(UpperCaseFirstChar("b"), "B")
 End
+
+static Function TestGetAllFilesRecursivelyFromPath()
+
+	string folder, symbPath, list
+
+	folder = GetFolder(FunctionPath("")) + "testFolder:"
+
+	symbPath = GetUniqueSymbolicPath()
+	NewPath/Q/O/C/Z $symbPath, folder
+	CHECK(!V_Flag)
+
+	CreateFolderOnDisk(folder + "b:")
+	CreateFolderOnDisk(folder + "c:")
+
+	SaveTextFile("", folder + "file.txt")
+	SaveTextFile("", folder + "b:file1.txt")
+	SaveTextFile("", folder + "c:file2.txt")
+
+	CreateAliasShortcut/Z/P=$symbPath "file.txt" "alias.txt"
+	CHECK(!V_flag)
+
+	list = GetAllFilesRecursivelyFromPath(symbPath, extension = ".txt")
+	CHECK_PROPER_STR(list)
+
+	WAVE/T result = ListToTextWave(list, FILE_LIST_SEP)
+	result[] = RemovePrefix(result[p], start = folder)
+	CHECK_EQUAL_TEXTWAVES(result, {"file.txt", "b:file1.txt", "c:file2.txt"})
+
+	// no matches
+	list = GetAllFilesRecursivelyFromPath(symbPath, extension = ".abc")
+	CHECK_EMPTY_STR(list)
+
+	KillPath $symbPath
+	CHECK_NO_RTE()
+End