gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/altermalloc3.test (about)

     1  # 2021 February 18
     2  #
     3  # The author disclaims copyright to this source code.  In place of
     4  # a legal notice, here is a blessing:
     5  #
     6  #    May you do good and not evil.
     7  #    May you find forgiveness for yourself and forgive others.
     8  #    May you share freely, never taking more than you give.
     9  #
    10  #*************************************************************************
    11  #
    12  
    13  set testdir [file dirname $argv0]
    14  source $testdir/tester.tcl
    15  source $testdir/malloc_common.tcl
    16  set testprefix altermalloc3
    17  
    18  # If SQLITE_OMIT_ALTERTABLE is defined, omit this file.
    19  ifcapable !altertable {
    20    finish_test
    21    return
    22  }
    23  
    24  
    25  set ::TMPDBERROR [list 1 \
    26    {unable to open a temporary database file for storing temporary tables}
    27  ]
    28  
    29  do_execsql_test 1.0 {
    30    CREATE TABLE x1(
    31        one, two, three, PRIMARY KEY(one), 
    32        CHECK (three!="xyz"), CHECK (two!="one")
    33    ) WITHOUT ROWID;
    34    CREATE INDEX x1i ON x1(one+"two"+"four") WHERE "five";
    35    CREATE TEMP TRIGGER AFTER INSERT ON x1 BEGIN
    36      UPDATE x1 SET two=new.three || "new" WHERE one=new.one||"";
    37    END;
    38    CREATE TABLE t1(a, b, c, d, PRIMARY KEY(d, b)) WITHOUT ROWID;
    39    INSERT INTO t1 VALUES(1, 2, 3, 4);
    40  }
    41  faultsim_save_and_close
    42  
    43  do_faultsim_test 1 -prep {
    44    faultsim_restore_and_reopen
    45  } -body {
    46    execsql { ALTER TABLE t1 DROP COLUMN c }
    47  } -test {
    48    faultsim_test_result {0 {}} $::TMPDBERROR
    49  }
    50  
    51  
    52  #-------------------------------------------------------------------------
    53  # dbsqlfuzz e3dd84cda3848016a6a6024c7249d09bc2ef2615
    54  #
    55  reset_db
    56  do_execsql_test 2.0 {
    57    CREATE TABLE t2(k,v);
    58    CREATE TRIGGER r2 AFTER INSERT ON t2 BEGIN
    59      UPDATE t2 SET (k,v)= (
    60         (WITH cte1(a) AS ( SELECT 1 FROM ( SELECT * FROM t2 ) )
    61         SELECT a FROM cte1
    62      ), 1);
    63    END;
    64  
    65    CREATE TRIGGER r1 AFTER INSERT ON t2 BEGIN
    66      UPDATE t2 SET k=1 FROM t2 AS one, t2 AS two NATURAL JOIN t2 AS three 
    67      WHERE one.k=two.v;
    68    END;
    69  }
    70  
    71  faultsim_save_and_close
    72  faultsim_restore_and_reopen
    73  
    74  do_execsql_test 2.1 {
    75    ALTER TABLE t2 RENAME TO t2x;
    76  }
    77  
    78  do_faultsim_test 2.2 -prep {
    79    faultsim_restore_and_reopen
    80    db eval { SELECT * FROM sqlite_master } 
    81  } -body {
    82    execsql {
    83      ALTER TABLE t2 RENAME TO t2x;
    84    }
    85  } -test {
    86    faultsim_test_result {0 {}} $::TMPDBERROR
    87  }
    88  
    89  finish_test