add unit test checking error message for non existing schema

Author: smoothdeveloper

src/Rezoom.SQL.Test/Environment.fs

@@ -19,15 +19,17 @@ let userModel1() = userModelByName "user-model-1"
 
 let userModel2() = userModelByName "user-model-2"
 
-let expectError (msg : string) (sql : string) =
+let expectErrorWithModel (mkMsg : Model -> string) (sql : string) =
     let userModel = userModel1()
     try
         ignore <| CommandEffect.OfSQL(userModel.Model, "anonymous", sql)
         failwith "Should've thrown an exception!"
     with
     | :? SourceException as exn ->
         printfn "\"%s\"" exn.Message
-        Assert.AreEqual(msg, exn.Reason.Trim())
+        Assert.AreEqual(mkMsg userModel.Model, exn.Reason.Trim())
+
+let expectError (msg : string) (sql : string) = expectErrorWithModel (fun _ -> msg) sql
 
 let dispenserParameterIndexer() =
     let dict = Dictionary()

src/Rezoom.SQL.Test/TestModelErrors.fs

@@ -45,4 +45,9 @@ let ``no such column to index on creation`` () =
 [<Test>]
 let ``can't drop table referenced by others`` () =
     expectError (Error.tableIsReferencedByFKs "main.Users" ["main.UserGroupMaps"])
-        "drop table Users"
+        "drop table Users"
+
+[<Test>]
+let ``non existing schema name`` () =
+    expectErrorWithModel (fun model -> Error.noSuchSchema model.Schemas "a")
+        "select * from a.b"