Scratch pad of code to verify some photos were moved successfully (works in Pharo)

file_copy_verify.st

dropBox := (FileLocator home / 'Dropbox/source_folder').
dbFiles := dropBox allFiles reject: [ :e | e basename = '.DS_Store' ].
targetFolder := '/path/to/target' asFileReference.
targetFiles := targetFolder allFiles reject: [ :e | e basename = '.DS_Store' ].
[ :job | 
	(targetFiles last: (targetFiles size - 1369)) do: [ :tf |
		| suffix matches |
		suffix := tf basename copyAfterLast: $_.
		matches := dbFiles select: [ :sf |
			| currentSuffix |
			currentSuffix := (tf base copyAfterLast: $_) asNumber < 1000
			ifFalse: [ sf basename copyAfterLast: $_ ]
			ifTrue: [ sf basename copyAfterLast: $  ].
			currentSuffix = suffix ].
		self assert: matches size = 1.
		(tf isMD5Equal: matches first) ifFalse: [ self error: 'file changed!' ].
		job increment ] ] asJob
	max: targetFiles size;
	run.
	
"Experiment to isolate problemically-named files"  
problemIndices := OrderedCollection new.
dbFiles doWithIndex: [ :e :i | 
	(e basename copyAfterLast: $_) = '' ifTrue: [ problemIndices add: i ] ].
dbFiles detectIndex: [ :e | (e basename copyAfterLast: $_) = '351.JPG' ].

problemIndices collect: [ :i | (dbFiles at: i) basename copyAfterLast: $  ].