Fix bugs with parsing alter database (+add ut on compiling)

commit_hash:7e6d742dce448b1c5f815abebd781049e7b22b46

Author: flown4qqqq

yql/essentials/sql/v1/node.h

@@ -1278,7 +1278,7 @@ namespace NSQLTranslationV1 {
     };
 
     struct TAlterDatabaseParameters {
-        TString DbPath;
+        TDeferredAtom DbPath;
         std::optional<TDeferredAtom> Owner;
     };
 

yql/essentials/sql/v1/query.cpp

@@ -1337,15 +1337,13 @@ class TAlterDatabaseNode final : public TAstListNode {
 
         auto options = Y(Q(Y(Q("mode"), Q("alterDatabase"))));
 
-        options = L(options, Q(Y(Q("dbPath"), Q(Params.DbPath))));
-
         if (Params.Owner.has_value()) {
-            options = L(options, Q(Y(Q("owner"), Q(Params.Owner.value().Build()))));
+            options = L(options, Q(Y(Q("owner"), Params.Owner.value().Build())));
         }
 
         Add("block", Q(Y(
             Y("let", "sink", Y("DataSink", BuildQuotedAtom(Pos, Service), cluster)),
-            Y("let", "world", Y(TString(WriteName), "world", "sink", Q(options))),
+            Y("let", "world", Y(TString(WriteName), "world", "sink", Y("Key", Q(Y(Q("databasePath"), Y("String", Params.DbPath.Build())))), Y("Void"), Q(options))),
             Y("return", ctx.PragmaAutoCommit ? Y(TString(CommitName), "world", "sink") : AstNode("world"))
             )));
 

yql/essentials/sql/v1/sql_query.cpp

@@ -1939,7 +1939,7 @@ bool TSqlQuery::Statement(TVector<TNodePtr>& blocks, const TRule_sql_stmt_core&
 
             TAlterDatabaseParameters alterDatabaseParams;
             alterDatabaseParams.Owner = roleName;
-            alterDatabaseParams.DbPath = Id(node.GetRule_an_id_schema3(), *this);
+            alterDatabaseParams.DbPath = TDeferredAtom(Ctx.Pos(), Id(node.GetRule_an_id_schema3(), *this));
 
             const TPosition pos = Ctx.Pos();
             TString service = Ctx.Scoped->CurrService;

yql/essentials/sql/v1/sql_ut.cpp

@@ -977,7 +977,7 @@ Y_UNIT_TEST_SUITE(SqlParsingOnly) {
             Y_UNUSED(word);
 
             UNIT_ASSERT_VALUES_UNEQUAL(TString::npos, line.find(
-                R"(let world (Write! world sink '('('mode 'alterDatabase) '('dbPath '/Root/test) '('owner ''"user1"))))"
+                R"(let world (Write! world sink (Key '('databasePath (String '"/Root/test"))) (Void) '('('mode 'alterDatabase) '('owner '"user1"))))"
             ));
         };
 

yql/essentials/sql/v1/sql_ut_antlr4.cpp

@@ -1095,7 +1095,7 @@ Y_UNIT_TEST_SUITE(SqlParsingOnly) {
             Y_UNUSED(word);
 
             UNIT_ASSERT_VALUES_UNEQUAL(TString::npos, line.find(
-                R"(let world (Write! world sink '('('mode 'alterDatabase) '('dbPath '/Root/test) '('owner ''"user1"))))"
+                R"(let world (Write! world sink (Key '('databasePath (String '"/Root/test"))) (Void) '('('mode 'alterDatabase) '('owner '"user1"))))"
             ));
         };