Ticket #255: WorkspaceApplicationTests-test_issue255.st

"{ Encoding: utf8 }" !
!WorkspaceApplicationTests methodsFor:'tests'!

test_issue255
    "Check if the file is stored in the correct directory after changing the default directory path

     Test saving file with same name as directory
        1. Create a temporary directory
        2. Pasting a String into a Workspace - to indicate what is going on
        3. Trying to save Workspace with ctrl + s 
        4. Changing to the temporary directory        
        5. Trying to save the file into the changed directory
        6. Check if it was saved into correct place
        7. Check if the directory was correctly deleted
    "
    | randomDirectoryPath pathToTest |

    randomDirectoryPath := Filename newTemporaryDirectory.

    pathToTest := (randomDirectoryPath asString, '\', 'testing') asFilename. 
    pathToTest recursiveMakeDirectory.   
    [ 
        textView contents: '''Testing directory vs. filename naming collision.'''.
        "/ trying to save the Workspace
        textViewInteractor type: #Ctrls.
        "/ selecting the path at the dialog screen
        textViewInteractor type: #ShiftHome.
        "/ saving directory path into the clipboard
        textView setClipboardText: pathToTest asString.

        "/ pasting the directory path and trying to change into the directory
        textViewInteractor type: #Paste.
        textViewInteractor type: #Return.

        "/ selecting the path back again
        textViewInteractor type: #ShiftHome.
        "/ typing a file names
        textViewInteractor type: 'WorkspaceFile.st'.
        "/ saving it
        textViewInteractor type: #Return.

        "/ the saved Workspace must exist at the changed path
        self assert: (pathToTest asString,'\','WorkspaceFile.st') asFilename exists.

    ] ensure: [ 
        randomDirectoryPath asFilename recursiveRemove.        
        self assert: randomDirectoryPath exists not
    ]

    "Created: / 12-12-2018 / 10:20:14 / svestkap"
! !