--- a/RegressionTests__ExternalStreamTest.st Mon Oct 16 10:43:48 2017 +0200
+++ b/RegressionTests__ExternalStreamTest.st Mon Oct 16 10:43:55 2017 +0200
@@ -41,16 +41,9 @@
!ExternalStreamTest methodsFor:'tests'!
testCopyFile1
- |nameOfSTXExecutable stxDirectory pathName1 pathName2|
+ |stxDirectory pathName1 pathName2|
- nameOfSTXExecutable := OperatingSystem nameOfSTXExecutable directory.
- (nameOfSTXExecutable pathName includesSubString:'quickSelfTest') ifTrue:[
- "this test is called by /stx/goodies/builder/quickSelfTest"
- stxDirectory := nameOfSTXExecutable asFilename directory directory directory / 'projects' / 'smalltalk'.
- ] ifFalse:[
- stxDirectory := nameOfSTXExecutable asFilename.
- ].
-
+ stxDirectory := Helper smalltalkDirectory.
pathName1 := (stxDirectory / 'smalltalk.rc') pathName.
pathName2 := (stxDirectory / 'smalltalk.rc2') pathName.
self assert:(pathName1 asFilename exists).