anchor.diff:          model.Cursor
   
       let Search searchStr cursorStart =
  -        let model = CreateModel Search cursorStart
  +        let model = CreateModel (Some Search) cursorStart
           model.CommandText <- searchStr
   
  -        let contr = CreateController
  +        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)
  
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:         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
  