anchor.diff:      let mapi () : unit =
           Assert.Ignore "Test not yet implemented."
   
  -    [<TestCase>]
  -    let fold () : unit =
  -        Assert.Ignore "Test not yet implemented."
  -
  -
  -/// Tests for the ExtCore.Control.Collections.State.TaggedArray module.
  -module TaggedArray =
  -    [<TestCase>]
  -    let mapi () : unit =
  -        Assert.Ignore "Test not yet implemented."
  -
  -    [<TestCase>]
  -    let mapiBack () : unit =
  -        Assert.Ignore "Test not yet implemented."
  -
  -    [<TestCase>]
  -    let foldi () : unit =
  -        Assert.Ignore "Test not yet implemented."
  -
  -
  -/// Tests for the ExtCore.Control.Collections.State.ArrayView module.
  -module ArrayView =
  +
  +/// Tests for the ExtCore.Control.Collections.State.Set module.
  +module Set =
       [<TestCase>]
       let iter () : unit =
           Assert.Ignore "Test not yet implemented."
   
       [<TestCase>]
  -    let iteri () : unit =
  -        Assert.Ignore "Test not yet implemented."
  -
  -    [<TestCase>]
  -    let map () : unit =
  -        Assert.Ignore "Test not yet implemented."
  -
  -    [<TestCase>]
  -    let mapi () : unit =
  -        Assert.Ignore "Test not yet implemented."
  -
  -
  -/// Tests for the ExtCore.Control.Collections.State.Set module.
  -module Set =
  -    [<TestCase>]
  -    let iter () : unit =
  -        Assert.Ignore "Test not yet implemented."
  -
  -    [<TestCase>]
       let iterBack () : unit =
           Assert.Ignore "Test not yet implemented."
   
  
positive.code:         (), state'
  
      /// Combines the length of a string with the state value.
      let private combineLength (str : string) (state : int) : unit * int =
          let state' =
              if state % 2 = 0 then str.Length + state
              else str.Length * state
          (), state'
  
      [<TestCase>]
      let iter () : unit =
          // Test case for an empty array.
  
negative.code: open FsUnit
  
  
  /// Helper functions for implementing tests.
  [<AutoOpen>]
  module private StateTestHelpers =
      /// Increments the counter (representing some global state) and
      /// combines it with a state value passed via the state workflow.
      let modifyState (counter : int ref) state : unit * int =
          let state' =
              let c = !counter
              if c % 2 = 0 then state + c else state * c
  