anchor.diff:          Find 'b' 1 |> should equal 1
   
       [<Test>]
  -    member x.``Find a char that matches the next node should set the cursor to the next index``() =
  +    member x.``Find a char that matches the current and next node should set the cursor to the next index``() =
           Find 'c' 2 |> should equal 3
   
       [<Test>]
  
positive.code:         let model = MainModel.Create<MainModel>()
          model.Nodes <- "alice,bob,charlie,crystal,apple,cherry".Split(',') |> Nodes
          model.Cursor <- cursorStart
          model.CommandInputMode <- Some inputMode
          model
  
      let CreateController =
          let fileSys = Mock.Of<IFileSystemService>()
          let settingsFactory () = Mock.Of<Mvc<SettingsEvents, SettingsModel>>()
          MainController(fileSys, settingsFactory)
  
      let Find char cursorStart =
          let model = CreateModel Find cursorStart
  
          let contr = CreateController
          contr.CommandCharTyped char model
  
          model.CommandInputMode |> should equal None
  
negative.code:         model.Cursor
  
      let Search searchStr cursorStart =
          let model = CreateModel (Some Search) cursorStart
          model.CommandText <- searchStr
  
          let contr = CreateController()
          contr.ExecuteCommand model
  
          model.CommandInputMode |> should equal None
          model.LastSearch |> should equal (Some searchStr)
          model.Status |> should equal (sprintf "Search \"%s\"" searchStr)
          model.Cursor
  
      let SearchPrevious searchStr cursorStart =
          let model = CreateModel None cursorStart
          model.LastSearch <- Some searchStr
  
          let contr = CreateController()
          contr.SearchNext true model
  
          model.CommandInputMode |> should equal None
          model.LastSearch |> should equal (Some searchStr)
  