anchor.diff:          (), state'
   
       /// Combines the length of a string with the state value.
  -    let private combineLength (str : string) (state : int) : unit * int =
  +    let combineLength (str : string) (state : int) : unit * int =
           let state' =
               if state % 2 = 0 then str.Length + state
               else str.Length * state
           (), state'
   
  +
  +/// Tests for the ExtCore.Control.Collections.State.Array module.
  +module Array =
       [<TestCase>]
       let iter () : unit =
           // Test case for an empty array.
  
positive.code: module List =
      [<TestCase>]
      let iter () : unit =
          Assert.Ignore "Test not yet implemented."
  
      [<TestCase>]
  
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
  