anchor.diff:      let getNode _ = None
       let mutable created = None
       let create nodeType path = created <- Some (nodeType, path)
  -    let openPath p _ (model: MainModel) =
  +    let mutable selected = None
  +    let openPath p s (model: MainModel) =
           model.Path <- p
           model.Nodes <- newNodes
           model.Cursor <- 1
  +        selected <- Some s
       let createNode = newNodes.[1]
       let model = createModel()
       MainLogic.Action.create getNode create openPath Folder createNode.Name model
  
positive.code:     expected |> MainStatus.setActionExceptionStatus (CreatedItem createNode) ex
      assertAreEqual expected model
  
  // rename tests
  
  [<Test>]
  
negative.code:     let openPath _ _ _ = failwith "openPath should not be called"
      let newName = newNodes.[1].Name
      let model = createModel()
      MainLogic.Action.rename move openPath oldNodes.[1] newName model
  
      let expectedAction = RenamedItem (oldNodes.[1], newNodes.[1].Name)
      let expected = createModel()
      expected |> MainStatus.setActionExceptionStatus expectedAction ex
      assertAreEqual expected model
  
  