anchor.diff:  
       member __.InitAll() =
           async {
  -            let! _ = Async.AwaitTask <| __.TableClient.GetTableReference(config.RuntimeTable).CreateIfNotExistsAsync()
  -            let! _ = Async.AwaitTask <| __.TableClient.GetTableReference(config.RuntimeLogsTable).CreateIfNotExistsAsync()
  -            let! _ = Async.AwaitTask <| __.TableClient.GetTableReference(config.UserDataTable).CreateIfNotExistsAsync()
  -            let! _ = Async.AwaitTask <| __.BlobClient.GetContainerReference(config.RuntimeContainer).CreateIfNotExistsAsync()
  -            let! _ = Async.AwaitTask <| __.BlobClient.GetContainerReference(config.UserDataContainer).CreateIfNotExistsAsync()
  -            ()
  +            try
  +                let! _ = Async.AwaitTask <| __.TableClient.GetTableReference(config.RuntimeTable).CreateIfNotExistsAsync()
  +                let! _ = Async.AwaitTask <| __.TableClient.GetTableReference(config.RuntimeLogsTable).CreateIfNotExistsAsync()
  +                let! _ = Async.AwaitTask <| __.TableClient.GetTableReference(config.UserDataTable).CreateIfNotExistsAsync()
  +                let! _ = Async.AwaitTask <| __.BlobClient.GetContainerReference(config.RuntimeContainer).CreateIfNotExistsAsync()
  +                let! _ = Async.AwaitTask <| __.BlobClient.GetContainerReference(config.UserDataContainer).CreateIfNotExistsAsync()
  +                ()
  +            with e ->
  +                raise <| InvalidConfigurationException("Invalid Storage Account Configuration", e)
  +            try
  +                let! _ = Async.AwaitTask <| __.NamespaceClient.QueueExistsAsync(config.RuntimeQueue)
  +                ()
  +            with e ->
  +                raise <| InvalidConfigurationException("Invalid Service Bus Configuration", e)
           }
   
   [<Sealed;AbstractClass>]
  
positive.code: open Microsoft.ServiceBus
  open Microsoft.ServiceBus.Messaging
  open Microsoft.WindowsAzure.Storage
  open Nessos.FsPickler
  open MBrace.Runtime
  open Nessos.Vagabond
  open System
  open System.Collections.Concurrent
  open System.Reflection
  open System.Security.Cryptography
  open System.Text
  open System.Threading
  open MBrace.Azure
  
  [<AutoSerializable(false)>]
  type ClientProvider (config : Configuration) =
      let acc = CloudStorageAccount.Parse(config.StorageConnectionString)
      do System.Net.ServicePointManager.Expect100Continue <- false
      do System.Net.ServicePointManager.UseNagleAlgorithm <- false
  
      member __.TableClient = acc.CreateCloudTableClient()
      member __.BlobClient = 
          let client = acc.CreateCloudBlobClient()
          client.DefaultRequestOptions.ParallelOperationThreadCount <- System.Nullable(4 * System.Environment.ProcessorCount)
          client.DefaultRequestOptions.SingleBlobUploadThresholdInBytes <- System.Nullable(1L <<< 23) // 8MB, possible ranges: 1..64MB, default 32MB
          client.DefaultRequestOptions.MaximumExecutionTime <- Nullable<_>(TimeSpan.FromMinutes(10.))
  
negative.code:           UserDataContainer = this.UserDataContainer.ToLower()
            UserDataTable = this.UserDataTable.ToLower()
          }
       
      /// Return a new copy with altered Id.
      member this.WithId(id) =
          { this with Id = id }
  
      /// Return a new copy with altered runtime Queues, Containers and Tables.
      member this.WithRuntimeFolders(runtimeQueue, runtimeTopic, runtimeContainer, runtimeTable, runtimeLogsTable, userDataContainer, userDataTable) =
          { this with
              RuntimeQueue      = runtimeQueue
              RuntimeTopic      = runtimeTopic
              RuntimeContainer  = runtimeContainer
              RuntimeTable      = runtimeTable
              RuntimeLogsTable  = runtimeLogsTable
              UserDataContainer = userDataContainer
              UserDataTable     = userDataTable }
  
      /// Return a new copy with altered storage connection string.
      member this.WithStorageConnectionString(conn : string) =
          { this with StorageConnectionString = conn }
  
      /// Return a new copy with altered service bus connection string.
      member this.WithServiceBusConnectionString(conn : string) =
          { this with ServiceBusConnectionString = conn }
  
  