1 | "{ Encoding: utf8 }" !
|
---|
2 | !WorkspaceApplicationTests methodsFor:'tests'!
|
---|
3 |
|
---|
4 | test_issue255
|
---|
5 | "Check if the file is stored in the correct directory after changing the default directory path
|
---|
6 |
|
---|
7 | Test saving file with same name as directory
|
---|
8 | 1. Create a temporary directory
|
---|
9 | 2. Pasting a String into a Workspace - to indicate what is going on
|
---|
10 | 3. Trying to save Workspace with ctrl + s
|
---|
11 | 4. Changing to the temporary directory
|
---|
12 | 5. Trying to save the file into the changed directory
|
---|
13 | 6. Check if it was saved into correct place
|
---|
14 | 7. Check if the directory was correctly deleted
|
---|
15 | "
|
---|
16 | | randomDirectoryPath pathToTest |
|
---|
17 |
|
---|
18 | randomDirectoryPath := Filename newTemporaryDirectory.
|
---|
19 |
|
---|
20 | pathToTest := (randomDirectoryPath asString, '\', 'testing') asFilename.
|
---|
21 | pathToTest recursiveMakeDirectory.
|
---|
22 | [
|
---|
23 | textView contents: '''Testing directory vs. filename naming collision.'''.
|
---|
24 | "/ trying to save the Workspace
|
---|
25 | textViewInteractor type: #Ctrls.
|
---|
26 | "/ selecting the path at the dialog screen
|
---|
27 | textViewInteractor type: #ShiftHome.
|
---|
28 | "/ saving directory path into the clipboard
|
---|
29 | textView setClipboardText: pathToTest asString.
|
---|
30 |
|
---|
31 | "/ pasting the directory path and trying to change into the directory
|
---|
32 | textViewInteractor type: #Paste.
|
---|
33 | textViewInteractor type: #Return.
|
---|
34 |
|
---|
35 | "/ selecting the path back again
|
---|
36 | textViewInteractor type: #ShiftHome.
|
---|
37 | "/ typing a file names
|
---|
38 | textViewInteractor type: 'WorkspaceFile.st'.
|
---|
39 | "/ saving it
|
---|
40 | textViewInteractor type: #Return.
|
---|
41 |
|
---|
42 | "/ the saved Workspace must exist at the changed path
|
---|
43 | self assert: (pathToTest asString,'\','WorkspaceFile.st') asFilename exists.
|
---|
44 |
|
---|
45 | ] ensure: [
|
---|
46 | randomDirectoryPath asFilename recursiveRemove.
|
---|
47 | self assert: randomDirectoryPath exists not
|
---|
48 | ]
|
---|
49 |
|
---|
50 | "Created: / 12-12-2018 / 10:20:14 / svestkap"
|
---|
51 | ! !
|
---|
52 |
|
---|