equal
deleted
inserted
replaced
39 ! ! |
39 ! ! |
40 |
40 |
41 !ExternalStreamTest methodsFor:'tests'! |
41 !ExternalStreamTest methodsFor:'tests'! |
42 |
42 |
43 testCopyFile1 |
43 testCopyFile1 |
44 |stxDirectory pathName1 pathName2| |
44 |nameOfSTXExecutable stxDirectory pathName1 pathName2| |
45 |
45 |
46 stxDirectory := OperatingSystem nameOfSTXExecutable asFilename directory. |
46 nameOfSTXExecutable := OperatingSystem nameOfSTXExecutable. |
47 pathName1 := (stxDirectory / 'smalltalk.rc') pathName. |
47 (nameOfSTXExecutable includesSubString:'quickSelfTest') ifTrue:[ |
48 pathName2 := (stxDirectory / 'smalltalk.rc2') pathName. |
48 "this test is called by /stx/goodies/builder/quickSelfTest/quickSelfTest" |
|
49 stxDirectory := nameOfSTXExecutable asFilename directory directory directory directory /'projects'/'smalltalk'. |
|
50 ] ifFalse:[ |
|
51 stxDirectory := nameOfSTXExecutable asFilename directory. |
|
52 ]. |
|
53 |
|
54 pathName1 := (stxDirectory / 'smalltalk.rc') pathName. |
|
55 pathName2 := (stxDirectory / 'smalltalk.rc2') pathName. |
49 self assert:(pathName1 asFilename exists). |
56 self assert:(pathName1 asFilename exists). |
50 |
57 |
51 pathName1 asFilename copyTo:pathName2. |
58 pathName1 asFilename copyTo:pathName2. |
52 |
59 |
53 self assert:(pathName1 asFilename fileSize = pathName2 asFilename fileSize). |
60 self assert:(pathName1 asFilename fileSize = pathName2 asFilename fileSize). |
54 self assert:(pathName1 asFilename contentsOfEntireFile = pathName2 asFilename contentsOfEntireFile). |
61 self assert:(pathName1 asFilename contentsOfEntireFile = pathName2 asFilename contentsOfEntireFile). |
55 pathName2 asFilename delete. |
62 pathName2 asFilename delete. |