anchor.diff:              value |> shouldEqual "thing")
   
           testTask "Cloud Blob Client relates to the same data as the type provider" {
  -          let! r = containerResult
  +          let! r = getContainerResult
             Expect.contains r "samples" ""
           }
  -
  -        testCase "Cloud Blob Container relates to the same data as the type provider" (fun _ ->
  -            let client = container.AsCloudBlobContainer()
  -            let blobs = 
  -                client.ListBlobsSegmentedAsync(null).Result
  -                |> fun s -> s.Results
  -                |> Seq.choose(function | :? CloudBlockBlob as b -> Some b | _ -> None) |> Seq.map(fun c -> c.Name) |> Seq.toList
  -            blobs |> shouldEqual [ "data.xml"; "file1.txt"; "file2.txt"; "file3.txt"; "sample.txt" ])
  +        
  +        testTask "Cloud Blob Container relates to the same data as the type provider" {
  +            let blobContainer = container.AsCloudBlobContainer()
  +            let! blobs = getBlobs blobContainer
  +            blobs |> shouldEqual [ "data.xml"; "file1.txt"; "file2.txt"; "file3.txt"; "sample.txt" ]
  +        }
   
           testCase "CloudBlockBlob relates to the same data as the type provider" (fun _ ->
               let blob = container.``data.xml``.AsCloudBlockBlob()
  
positive.code:     return results |> Seq.map(fun c -> c.Name)
  }
  
  [<Tests>]
  let blobCompilationTests =
      testList "Blob Compilation Tests" [
  
negative.code: let container = Local.Containers.samples
  
  
  let getContainerResult = task {
      let rec getResults token = task {
          let! blobsSeqmented = Local.Containers.CloudBlobClient.ListContainersSegmentedAsync(token)
          let token =  blobsSeqmented.ContinuationToken
  