anchor.diff:              do! x.TextWriter.WriteLineAsync x.DatabaseLocation |> Async.AwaitTask
               let! response = x.Host.Run([| "install" |]) |> Async.AwaitTask
               use connection = new SqlCeConnection(connStrings.["umbracoDbDSN"].ConnectionString)
  -
               connection.Open |> should throw typeof<SqlCeException>
           }
           |> Async.RunSynchronously
  
positive.code:     member x.``Creates known tables``() =
          x.TextReader.AddCommand "Y"
          async {
              do! x.TextWriter.WriteLineAsync x.DatabaseLocation |> Async.AwaitTask
              let! response = x.Host.Run([| "install" |]) |> Async.AwaitTask
              use connection = new SqlCeConnection(connStrings.["umbracoDbDSN"].ConnectionString)
              let cmd =
                  new SqlCeCommand("select table_name from information_schema.tables where TABLE_TYPE <> 'VIEW'",
                                   connection)
              connection.Open()
              let reader = cmd.ExecuteReader()
              while reader.Read() do
                  let tableName = reader.GetString 0
                  List.contains tableName knownTables |> should equal true
          }
          |> Async.RunSynchronously
  
  type ``Unsuccessfully setup the database``() =
      inherit UmbracoHostTestBase()
  
      [<Fact>]
      member x.``Won't create the database when you say not to``() =
          x.TextReader.AddCommand "N"
  
negative.code:     member x.``Results in a Continue response``() =
          x.TextReader.AddCommand "Y"
          async {
              do! x.DatabaseLocation
                  |> x.TextWriter.WriteLineAsync
                  |> Async.AwaitTask
              let! response = [| "install" |]
                              |> x.Host.Run
                              |> Async.AwaitTask
              response |> should equal DeliverableResponse.Continue
          }
          |> Async.RunSynchronously
  