test:do_catchsql_test(
        test_prefix.."1.0.1",
        "CREATE TABLE t1 (a int primary key);")

test:do_catchsql_test(
        test_prefix.."1.0.2",
        "CREATE TABLE t2 (a int primary key);")

test:do_catchsql_test(
        test_prefix.."1.0.3",
        [[
                CREATE TRIGGER TRIG1 BEFORE INSERT ON T1
                begin
                        insert into t2 values(new.a);
                end;]],
        {0})

local testcases = {
        {"1",
                [[insert into t1 values(1);
                select * from t1 union all select * from t2;]],
                {0,{1,1}} },
        {"3",
                [[begin;
                savepoint s1_1;
                savepoint s1_2;]],
                {0} },
        {"4",
                [[rollback to savepoint s1_1;
                rollback to savepoint s1_1;
                select * from t1 union all select * from t2;]],
                {0,{1,1}}},
        {"5",
                [[rollback to savepoint s1_2;]],
                {1, "no such savepoint: S1_2"}},