The Trunk: ToolsTests-bf.70.mcz

Bert Freudenberg uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-bf.70.mcz

==================== Summary ====================

Name: ToolsTests-bf.70
Author: bf
Time: 8 December 2014, 2:14:44.962 am
UUID: b5b69749-b461-4a51-80c4-24ff602e5202
Ancestors: ToolsTests-nice.69

Restore timestamps lost in assignment conversion.

=============== Diff against ToolsTests-nice.69 ===============

Item was changed:
  ----- Method: FileList2ModalDialogsTest>>testModalFileSelector (in category 'running') -----
  testModalFileSelector
  | window fileList2 |
  window := FileList2 morphicViewFileSelector.
  window openCenteredInWorld.
  fileList2 := window valueOfProperty: #fileListModel.
  fileList2 fileListIndex: 1.
  window delete.
  self assert: fileList2 getSelectedFile isNil.
  fileList2 okHit.
  self deny: fileList2 getSelectedFile isNil
 
 
  !

Item was changed:
  ----- Method: FileList2ModalDialogsTest>>testModalFileSelectorForSuffixes (in category 'running') -----
  testModalFileSelectorForSuffixes
  | window fileList2 |
  window := FileList2 morphicViewFileSelectorForSuffixes: nil.
  window openCenteredInWorld.
  fileList2 := window valueOfProperty: #fileListModel.
  fileList2 fileListIndex: 1.
  window delete.
  self assert: fileList2 getSelectedFile isNil.
  fileList2 okHit.
  self deny: fileList2 getSelectedFile isNil
  !

Item was changed:
  ----- Method: FileList2ModalDialogsTest>>testModalFolderSelector (in category 'running') -----
  testModalFolderSelector
  | window fileList2 |
  window := FileList2 morphicViewFolderSelector.
  fileList2 := window model.
  window openInWorld: self currentWorld extent: 300@400.
  fileList2 fileListIndex: 1.
  window delete.
  self assert: fileList2 getSelectedDirectory withoutListWrapper isNil.
  fileList2 okHit.
  self deny: fileList2 getSelectedDirectory withoutListWrapper isNil
 
  !

Item was changed:
  ----- Method: FileList2ModalDialogsTest>>testModalFolderSelectorForProjectLoad (in category 'running') -----
  testModalFolderSelectorForProjectLoad
  | window fileList2 w |
  window := FileList2
  morphicViewProjectLoader2InWorld: self currentWorld
  reallyLoad: false.
  fileList2 := window valueOfProperty: #FileList.
  w := self currentWorld.
  window position: w topLeft + (w extent - window extent // 2).
  window openInWorld: w.
  window delete.
  self assert: fileList2 getSelectedDirectory withoutListWrapper isNil.
  fileList2 okHit.
  self deny: fileList2 getSelectedDirectory withoutListWrapper isNil
  !