anchor.diff:      static member List (name, setup: Func<_,_>, [<ParamArray>] tests) =
           let tests = tests |> Array.map (fun (name, test) -> Test.Case(name, setup.Invoke test))
           Test.List(name, tests)
  -
  -    [<Extension>]
  -    static member WithLabel (test, label) = TestLabel (label, test)
   
       [<Extension>]
       static member Run tests = TestList tests |> run
  
positive.code:         TestCase f.Invoke
  
      static member Case (label, f: Action) = 
          TestCase f.Invoke |> withLabel label
  
      static member Case (label: string, f: Action<_>) = 
          label ==> f
  
      [<Extension>]
      static member List (tests, name) = 
          TestList tests |> withLabel name
  
      [<Extension>]
      static member List ([<ParamArray>] tests) = 
          TestList tests
  
      static member List (name, [<ParamArray>] tests) = 
          TestList tests |> withLabel name
  
      static member List (name, tests: Func<Test seq>) = 
          Test.List(name, tests.Invoke() |> Seq.toArray)
  
negative.code: 
  [<AutoOpen; Extension>]
  module Fuchu =
      let inline (=>>) label testList =
          TestLabel(label, TestList testList)
  
      let inline (=>) label t = 
          TestLabel(label, TestCase t)
  
      let inline (+>) f =
           Seq.map (fun (name, partialTest) ->
  