anchor.diff:              "with StaticTestFactory" =>
                   fun _ ->
                       let testType = typeof<ATestFixtureWithStaticTestFactories>
  -                    let test = MbUnitTestToFuchu testType
  +                    let test = lazy MbUnitTestToFuchu testType
                       let testName = testType.Name
  -                    match test with
  +                    match test.Value with
                       | TestList 
                           (Seq.One (TestLabel(_, TestList 
                                                    (Seq.One (TestLabel("suite name", 
  
positive.code:                         | _ -> Assert.Fail (sprintf "Expected test with categories, found %A" test)
                  yield "in test" =>
                      fun _ ->
                          match test with
                          | TestList t -> 
                              match Seq.toList t with
                              | [ TestLabel(_, TestList t)] -> 
  
negative.code:                     | _ -> Assert.Fail(sprintf "Should have been TestList [], but was %A" test)
  
              "basic" =>> [
                  let test = lazy MbUnitTestToFuchu typeof<ATestFixture>
                  let result = lazy evalSilent test.Value
                  yield "read tests" =>
                      fun () ->
                          Assert.AreEqual(2, result.Value.Length)
  