Added the possibility of contextual help on user functions.

Добавлена возможность просмотра скриптов создания пользовательских объектов
в контестной помощи. В скриптах имена других объектов заменяются на ссылки.
Описание Readme.md
This commit is contained in:
lsv 2025-11-21 16:23:26 +05:00
parent 560bf4c080
commit 1f7decd73f
18 changed files with 1016 additions and 159 deletions

17
tests/CMakeLists.txt Normal file
View file

@ -0,0 +1,17 @@
find_package(Catch2)
add_executable(test_Formatter test_Formatter.cpp ../utils/FormatterSQL.cpp)
#target_include_directories(test_Formatter PRIVATE ${CMAKE_SOURCE_DIR}/include)
#target_link_libraries(test_Formatter Catch2::Catch2)
#add_library(test_sources test_Formatter.cpp )
#target_link_libraries(test_sources Catch2::Catch2)
#add_executable(tests test.cpp)
#target_link_libraries(tests -Wl,--whole-archive test_sources -Wl,--no-whole-archive)
#target_link_libraries(tests Catch2::Catch2)
#include(CTest)
include(Catch)
catch_discover_tests(test_Formatter)

325
tests/test_Formatter.cpp Normal file
View file

@ -0,0 +1,325 @@
#define CATCH_CONFIG_MAIN // This tells Catch to provide a main() - only do this in one cpp file
#include <catch2/catch.hpp>
#include "utils/FormatterSQL.h"
using namespace FSQL;
TEST_CASE( "FormatterSQL build autocomplite", "[fmtsql]" ) {
wxString s = "select a.* from a aa,b";
FormatterSQL f(s);
wxString act1;
wxString act,cl,t,exp;
SECTION( "Простой запрос" ) {
int e = f.ParseSql(0);
act1=f.BuildAutoComplite(0, 0);
wxString act2 = f.GetListTable(0);
exp = "[ a,aa] \n[ b,] \n";
CHECK(act2==exp);
}
SECTION( "GetColsList cols" ) {
int e = f.ParseSql(0);
act1=f.BuildAutoComplite(0, 0);
act1 = f.GetColsList("aa.f1",cl, t);
CHECK(act1.ToStdWstring().length()==0 );
}
SECTION( "GetColsList table" ) {
int e = f.ParseSql(0);
act1=f.BuildAutoComplite(0, 0);
act1 = f.GetColsList("aa.f1", cl, t);
CHECK( t=="a");
}
SECTION( "GetColsList cols 2" ) {
int e = f.ParseSql(0);
act1=f.BuildAutoComplite(0, 0);
act1 = f.GetColsList("b.*", cl, t);
CHECK(act1.ToStdWstring().length()==0);
}
SECTION( "GetColsList table 2" ) {
int e = f.ParseSql(0);
act1 = f.BuildAutoComplite(0, 0);
act1 = f.GetColsList("b.*", cl, t);
CHECK(t=="b");
}
SECTION( "Функция 1" ) {
int e;
f.SetSql("select 2 from f() a");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
exp = "[ @,a] \n";
CHECK(act==exp);
}
SECTION( "func2" ) {
int e;
FSQL::FormatterSQL f3(L"select now() from f() a(f1,\"ф2\")");
wxString act3;
e = f3.ParseSql(0);
CHECK(e==0);
act = f3.BuildAutoComplite(0, 0); act = f3.GetListTable(0);
exp=R"([ @,a] f1,"ф2"
)";
CHECK(act3==exp);
act3 = f3.GetListTable(1);
//act3=f3.printParseArray();
//act3=wxString::Format(" len: %d",act3.Len());
exp = "[ now,] \n[ f,] \n[ a,] \n";
//std::cerr << act3;
CHECK(act3==exp);
}
SECTION( "Функция 2a" ) {
int e;
f.SetSql("select 2 from f(p1,(1+2)) a(f1 int,\"ф2\" text)");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
exp = "[ @,a] f1,\"ф2\"\n";
CHECK(act==exp);
}
SECTION( "Функция 2b" ) {
int e;
f.SetSql("select 2 from f(p1,(1+2)) a(f1 int,\"ф2\" text), t2");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
exp = "[ @,a] f1,\"ф2\"\n[ t2,] \n";
CHECK(act==exp);
}
SECTION( "Подзапрос 1" ) {
int e;
f.SetSql("select 2 from (select it.* from it) t1, t2");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
exp = "[ it,] \n[ @,t1] it.*\n[ t2,] \n";
CHECK(act==exp);
}
SECTION( "Подзапрос 2" ) {
int e;
f.SetSql("select 2 from (select it.* from it) t1(f1,f2), t2 al(f3,f4)");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
exp = "[ it,] \n[ @,t1] f1,f2\n[ t2,al] f3,f4\n";
CHECK(act==exp);
act = f.GetListTable(1);
exp = "[ t1,] \n[ al,] \n";
CHECK(act==exp);
}
SECTION( "Подзапрос 3" ) {
int e;
f.SetSql("select 2 from (select it.dt::time at zone Ndt,it.col2 from it) t1, t2 al(f3,f4)");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
exp = "[ it,] \n[ @,t1] Ndt,it.col2\n[ t2,al] f3,f4\n";
CHECK(act==exp);
}
SECTION( "GetColsList cols 3" ) {
int e;
f.SetSql("select 2 from (select it.dt::time at zone Ndt,it.col2 from it) t1, t2 al(f3,f4)");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
exp = "[ it,] \n[ @,t1] Ndt,it.col2\n[ t2,al] f3,f4\n";
act = f.GetColsList("t1.n", cl, t);
exp = "Ndt";
CHECK(act==exp);
}
SECTION( "GetColsList table" ) {
int e;
f.SetSql("select 2 from (select it.dt::time at zone Ndt,it.col2 from it) t1, t2 al(f3,f4)");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
act1 = f.GetColsList("t1.n", cl, t);
exp = "t1";
CHECK(t==exp);
}
SECTION( "GetColsList cols 4" ) {
int e;
f.SetSql("select 2 from (select it.dt::time at zone Ndt,it.col2 from it) t1, t2 al(f3,f4)");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
exp = "[ it,] \n[ @,t1] Ndt,it.col2\n[ t2,al] f3,f4\n";
CHECK(act==exp);
act1 = f.GetColsList("t1.*", cl, t);
exp = "Ndt\tcol2";
CHECK(act1==exp);
}
SECTION( "Join 1" ) {
int e;
// join
f.SetSql("select * from def join param on def.id=param.def join inv_type c on c.id=param.type limit 5");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
exp = "[ def,] \n[ param,] \n[ inv_type,c] \n";
CHECK(act==exp);
}
SECTION( "Join 1.1" ) {
int e;
f.SetSql("select * from def d join param p on d.id=p.def join inv_type c on c.id=p.type where");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
exp = L"[ def,d] \n[ param,p] \n[ inv_type,c] \n";
CHECK(act==exp);
}
SECTION( "Join 2" ) {
int e;
f.SetSql("select def.*,param.* from def join ( select f2,f3 from a) param on def.id=param.def join inv_type c on c.id=param.type");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
exp = "[ def,] \n[ a,] \n[ @,param] f2,f3\n[ inv_type,c] \n";
CHECK(act==exp);
}
SECTION( "with 1" ) {
int e;
// with
f.SetSql("with a as (select in1,i2 from def), b(b1,b2) as (select t3 from z2) select * from b");
e = f.ParseSql(0);
act = f.BuildAutoComplite(0, 0); act = f.GetListTable(0);
exp = "[ def,] \n[ @,a] in1,i2\n[ z2,] \n[ @,b] b1,b2\n[ b,] \n";
CHECK(act==exp);
}
}
TEST_CASE( "FormatterSQL parse", "[parsesql]" ) {
int e;
FormatterSQL f2("()");
wxString exp,o,s;
SECTION( "simple 1" ) {
wxString s = "select * from table t1,table t2 where t1.f=t2.f order by 1 desc limit 2";
FormatterSQL f(s);
int e=f.ParseSql(0);
CHECK(e==0);
}
SECTION( "empty braket" ) {
e = f2.ParseSql(0);
CHECK(e==0);
o = f2.printParseArray();
exp = "Index: 0 Jump 1 Type: 5 widt: 1 Flag: 0 Val : (\nIndex: 1 Jump 0 Type: 5 widt: 1 Flag: 0 Val : )\n";
CHECK(o==exp);
}
SECTION( "variant1" ) {
f2.SetSql("a.* 0:1 b::t (m).c 2~!@6"); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 7 widt: 1 Flag: 0 Val : a\nIndex: 1 Type: 4 widt: 2 Flag: 0 Val : .*\nIndex: 2 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 3 Type: 8 widt: 1 Flag: 0 Val : 0\nIndex: 4 Type: 4 widt: 1 Flag: 0 Val : :\nIndex: 5 Type: 8 widt: 1 Flag: 0 Val : 1\nIndex: 6 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 7 Type: 7 widt: 1 Flag: 0 Val : b\nIndex: 8 Type: 4 widt: 2 Flag: 0 Val : ::\nIndex: 9 Type: 7 widt: 1 Flag: 256 Val : t\nIndex: 10 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 11 Jump 13 Type: 5 widt: 1 Flag: 0 Val : (\nIndex: 12 Type: 7 widt: 1 Flag: 0 Val : m\nIndex: 13 Jump 11 Type: 5 widt: 1 Flag: 0 Val : )\nIndex: 14 Type: 4 widt: 1 Flag: 0 Val : .\nIndex: 15 Type: 7 widt: 1 Flag: 0 Val : c\nIndex: 16 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 17 Type: 8 widt: 1 Flag: 0 Val : 2\nIndex: 18 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 19 Type: 4 widt: 3 Flag: 0 Val : ~!@\nIndex: 20 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 21 Type: 8 widt: 1 Flag: 0 Val : 6\n";
CHECK(o==exp);
}
SECTION( "many variantns" ) {
f2.SetSql( "--1" ); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 10 widt: 3 Flag: 0 Val : --1\n";
CHECK(o==exp);
f2.SetSql("$$ fsdf "); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 3 widt: 8 Flag: 0 Val : $$ fsdf \n";
CHECK(o==exp);
f2.SetSql("E' "); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "";
CHECK(o==exp);
f2.SetSql("/*"); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 10 widt: 2 Flag: 0 Val : /*\n";
CHECK(o==exp);
s = "a.b"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 6 widt: 3 Flag: 0 Val : a.b\n";
CHECK(o==exp);
s = "a::b"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 7 widt: 1 Flag: 0 Val : a\nIndex: 1 Type: 4 widt: 2 Flag: 0 Val : ::\nIndex: 2 Type: 7 widt: 1 Flag: 0 Val : b\n";
CHECK(o==exp);
s = "is not null"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 2 widt: 11 Flag: 0 Val : is not null\n";
CHECK(o==exp);
s = "*,+:%@!~"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 4 widt: 1 Flag: 0 Val : *\nIndex: 1 Type: 4 widt: 1 Flag: 0 Val : ,\nIndex: 2 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 3 Type: 4 widt: 6 Flag: 0 Val : +:%@!~\n";
CHECK(o==exp);
s = "1||2"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 8 widt: 1 Flag: 0 Val : 1\nIndex: 1 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 2 Type: 4 widt: 2 Flag: 0 Val : ||\nIndex: 3 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 4 Type: 8 widt: 1 Flag: 0 Val : 2\n";
CHECK(o==exp);
s = "1+2"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 8 widt: 1 Flag: 0 Val : 1\nIndex: 1 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 2 Type: 4 widt: 1 Flag: 0 Val : +\nIndex: 3 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 4 Type: 8 widt: 1 Flag: 0 Val : 2\n";
CHECK(o==exp);
s = "e'\\n'"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 3 widt: 5 Flag: 0 Val : e'\\n'\n";
CHECK(o==exp);
s = "u&'d\\0061t\\+000061'"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 3 widt: 19 Flag: 0 Val : u&'d\\0061t\\+000061'\n";
CHECK(o==exp);
s = "$$ $$"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 3 widt: 5 Flag: 0 Val : $$ $$\n";
CHECK(o==exp);
s = "$a$ $ $a$"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 3 widt: 9 Flag: 0 Val : $a$ $ $a$\n";
CHECK(o==exp);
s = "$0"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "\n";
//Assert::AreEqual(exp.ToStdWstring(), o.ToStdWstring(), s);
s = "f(a,b)"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 7 widt: 1 Flag: 256 Val : f\nIndex: 1 Jump 6 Type: 5 widt: 1 Flag: 0 Val : (\nIndex: 2 Type: 7 widt: 1 Flag: 0 Val : a\nIndex: 3 Type: 4 widt: 1 Flag: 0 Val : ,\nIndex: 4 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 5 Type: 7 widt: 1 Flag: 0 Val : b\nIndex: 6 Jump 1 Type: 5 widt: 1 Flag: 0 Val : )\n";
//Assert::AreEqual(exp.ToStdWstring(), o.ToStdWstring(), s);
s = ")"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "\n";
CHECK(e==-1);
s = "("; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
CHECK(e==-1);
exp = "\n";
//Assert::AreEqual(exp.ToStdWstring(), o.ToStdWstring(), s);
s = "like"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 2 widt: 4 Flag: 0 Val : like\n";
CHECK(o==exp);
s = "("; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "\n";
//Assert::AreEqual(exp.ToStdWstring(), o.ToStdWstring(), s);
s = "x=ANY([1,2,3])"; f2.SetSql(s); e = f2.ParseSql(0); o = f2.printParseArray();
exp = "Index: 0 Type: 7 widt: 1 Flag: 0 Val : x\nIndex: 1 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 2 Type: 4 widt: 1 Flag: 0 Val : =\nIndex: 3 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 4 Type: 7 widt: 3 Flag: 256 Val : ANY\nIndex: 5 Jump 15 Type: 5 widt: 1 Flag: 0 Val : (\nIndex: 6 Jump 14 Type: 5 widt: 1 Flag: 0 Val : [\nIndex: 7 Type: 8 widt: 1 Flag: 0 Val : 1\nIndex: 8 Type: 4 widt: 1 Flag: 0 Val : ,\nIndex: 9 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 10 Type: 8 widt: 1 Flag: 0 Val : 2\nIndex: 11 Type: 4 widt: 1 Flag: 0 Val : ,\nIndex: 12 Type: 1 widt: 1 Flag: 0 Val : \nIndex: 13 Type: 8 widt: 1 Flag: 0 Val : 3\nIndex: 14 Jump 6 Type: 5 widt: 1 Flag: 0 Val : ]\nIndex: 15 Jump 5 Type: 5 widt: 1 Flag: 0 Val : )\n";
CHECK(o==exp);
}
}
TEST_CASE( "FormatterSQL parsePlpgsql", "[parsesql]" ) {
int e;
wxString exp,o,s;
SECTION( "variant1" ) {
FormatterSQL f2(R"(
declare
begin
end
)");
std::vector<complite_element> list = f2.ParsePLpgsql(); o=f2.GetListTable(list);
exp = "";
CHECK(o==exp);
}
SECTION( "plpgsql 1" ) {
FormatterSQL f2(R"(
declare
x record;
iobj varchar(50) :=add_part(now(),'1 month');
begin
for i in 11..22
loop
end loop;
end
)");
std::vector<complite_element> list = f2.ParsePLpgsql(); o=f2.GetListTable(list);
exp = "[ add_part,] \n[ now,] \n";
CHECK(o==exp);
}
SECTION( "plpgsql 2" ) {
FormatterSQL f2(R"(
declare
x record;
begin
for i in 11..22
loop
case f1() when f2() else
select a into ii from tab1 t where f3() and f4() in ('a');
case end;
delete from t2 using t4,t5 where t4.id=t5 and t2.id=t4.id returning t2.id;
end loop;
end
)");
std::vector<complite_element> list = f2.ParsePLpgsql(); o=f2.GetListTable(list);
exp = "[ f1,] \n[ f2,] \n[ tab1,] \n[ f3,] \n[ f4,] \n[ t2,] \n[ t5,] \n";
CHECK(o==exp);
}
}