anchor.diff:          Search "ob" 1 |> should equal 1
   
       [<Test>]
  -    member x.``Search that matches the next node should set the cursor to the next index``() =
  -        Search "ry" 2 |> should equal 3
  +    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
  
positive.code:         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``() =
          Find 'c' 2 |> should equal 3
  
      [<Test>]
  
negative.code:         let model = MainModel.Create<MainModel>()
          model.Nodes <- "alice,bob,charlie,crystal,apple,cherry".Split(',') |> Nodes
          model.Cursor <- cursorStart
          model.CommandInputMode <- 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 (Some Find) cursorStart
  
          let contr = CreateController()
          contr.CommandCharTyped char model
  
          model.CommandInputMode |> should equal None
  