add simple tcl tests

This commit is contained in:
Nikita Sivukhin
2025-02-02 19:43:13 +04:00
parent 300f278ff3
commit 8d513b229f

View File

@@ -123,3 +123,23 @@ do_execsql_test select-is-not-null {
select 4 is not null, '4' is not null, 0 is not null, (1 / 2) is not null;
} {0|0|0|0
1|1|1|1}
do_execsql_test select_bin_shr {
select 997623670 >> 0, 997623670 >> 1, 997623670 >> 10, 997623670 >> 30;
select -997623670 >> 0, -997623670 >> 1, -997623670 >> 10, -997623670 >> 30;
select 997623670 << 0, 997623670 << -1, 997623670 << -10, 997623670 << -30;
select -997623670 << 0, -997623670 << -1, -997623670 << -10, -997623670 << -30;
} {997623670|498811835|974241|0
-997623670|-498811835|-974242|-1
997623670|498811835|974241|0
-997623670|-498811835|-974242|-1}
do_execsql_test select_bin_shl {
select 997623670 << 0, 997623670 << 1, 997623670 << 10, 997623670 << 30;
select -997623670 << 0, -997623670 << 1, -997623670 << 10, -997623670 << 30;
select 997623670 >> 0, 997623670 >> -1, 997623670 >> -10, 997623670 >> -30;
select -997623670 >> 0, -997623670 >> -1, -997623670 >> -10, -997623670 >> -30;
} {997623670|1995247340|1021566638080|1071190259091374080
-997623670|-1995247340|-1021566638080|-1071190259091374080
997623670|1995247340|1021566638080|1071190259091374080
-997623670|-1995247340|-1021566638080|-1071190259091374080}