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:         model.Cursor
  
      let Search searchStr cursorStart =
          let model = CreateModel Search cursorStart
          model.CommandText <- searchStr
  
          let contr = CreateController
          contr.ExecuteCommand model
  
          model.CommandInputMode |> should equal None
          model.LastSearch |> should equal (Some searchStr)
  
negative.code:         Search "ob" 1 |> should equal 1
  
      [<Test>]
      member x.``Search that matches the current and next node should set the cursor to the next index``() =
          Search "a" 2 |> should equal 3
  
      [<Test>]
      member x.``Search that matches a node wrapping around should set the cursor to the that index``() =
          Search "ob" 2 |> should equal 1
  
  
      [<Test>]
      member x.``Search previous that matches nothing should not change the cursor``() =
          SearchPrevious "abc" 1 |> should equal 1
  
      [<Test>]
      member x.``Search previous that matches only the current node should not change the cursor``() =
          SearchPrevious "ob" 1 |> should equal 1
  
      [<Test>]
      member x.``Search previous that matches the current and previous node should set the cursor to the next index``() =
          SearchPrevious "a" 3 |> should equal 2
  
      [<Test>]
      member x.``Search previous that matches a node wrapping around should set the cursor to the that index``() =
          SearchPrevious "rys" 2 |> should equal 3
  