From 8d513b229f7ae05e5eb0495cb0c3c4ab30c8cdfe Mon Sep 17 00:00:00 2001 From: Nikita Sivukhin Date: Sun, 2 Feb 2025 19:43:13 +0400 Subject: [PATCH] add simple tcl tests --- testing/select.test | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/testing/select.test b/testing/select.test index 13cff8892..934c4e879 100755 --- a/testing/select.test +++ b/testing/select.test @@ -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}