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