modernc.org/cc@v1.0.1/v2/testdata/_sqlite/test/pragma4.test (about)

     1  # 2017 Jan 4
     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  # This file implements regression tests for SQLite library.
    12  #
    13  
    14  set testdir [file dirname $argv0]
    15  source $testdir/tester.tcl
    16  set testprefix pragma4
    17  
    18  proc do_pragma_ncol_test {tn sql nCol} {
    19    set ::stmt 0
    20    set ::stmt [sqlite3_prepare_v2 db $sql -1 dummy]
    21    uplevel [list do_test $tn { sqlite3_column_count $::stmt } $nCol]
    22    sqlite3_finalize $::stmt
    23  }
    24  
    25  # If there is no RHS argument, the following PRAGMA statements operate as
    26  # queries, returning a single row containing a single column.
    27  #
    28  # Or, if there is RHS argument, they return zero rows of zero columns.
    29  #
    30  foreach {tn sql} {
    31    1 "PRAGMA application_id = 10"
    32    2 "PRAGMA automatic_index = 1"
    33    3 "PRAGMA auto_vacuum = 1"
    34    4 "PRAGMA cache_size = -100"
    35    5 "PRAGMA cache_spill = 1"
    36    6 "PRAGMA cell_size_check = 1"
    37    7 "PRAGMA checkpoint_fullfsync = 1"
    38    8 "PRAGMA count_changes = 1"
    39    9 "PRAGMA default_cache_size = 100"
    40   10 "PRAGMA defer_foreign_keys = 1"
    41   11 "PRAGMA empty_result_callbacks = 1"
    42   12 "PRAGMA encoding = 'utf-8'"
    43   13 "PRAGMA foreign_keys = 1"
    44   14 "PRAGMA full_column_names = 1"
    45   15 "PRAGMA fullfsync = 1"
    46   16 "PRAGMA ignore_check_constraints = 1"
    47   17 "PRAGMA legacy_file_format = 1"
    48   18 "PRAGMA page_size = 511"
    49   19 "PRAGMA page_size = 512"
    50   20 "PRAGMA query_only = false"
    51   21 "PRAGMA read_uncommitted = true"
    52   22 "PRAGMA recursive_triggers = false"
    53   23 "PRAGMA reverse_unordered_selects = false"
    54   24 "PRAGMA schema_version = 211"
    55   25 "PRAGMA short_column_names = 1"
    56   26 "PRAGMA synchronous = full"
    57   29 "PRAGMA temp_store = memory"
    58   30 "PRAGMA user_version = 405"
    59   31 "PRAGMA writable_schema = 1"
    60  } {
    61    reset_db
    62  
    63    # Without RHS:
    64    do_pragma_ncol_test 1.$tn.1 [lindex [split $sql =] 0] 1
    65  
    66    # With RHS:
    67    do_pragma_ncol_test 1.$tn.2 $sql  0
    68  }
    69  
    70  # These pragmas should never return any values.
    71  #
    72  foreach {tn sql} {
    73    1 "PRAGMA shrink_memory"
    74    2 "PRAGMA shrink_memory = 10"
    75    3 "PRAGMA case_sensitive_like = 0"
    76    4 "PRAGMA case_sensitive_like = 1"
    77    5 "PRAGMA case_sensitive_like"
    78  } {
    79  
    80    do_pragma_ncol_test 1.$tn.1 $sql 0
    81  }
    82  
    83  # EXPLAIN on a PRAGMA integrity_check.
    84  # Verify that that P4_INTARRAY argument to OP_IntegrityCk is rendered
    85  # correctly.
    86  #
    87  db close
    88  forcedelete test.db
    89  sqlite3 db test.db
    90  do_test pragma4-2.100 {
    91    db eval {
    92      PRAGMA page_size=512;
    93      CREATE TABLE t1(x);
    94      WITH RECURSIVE c(x) AS (VALUES(1) UNION ALL SELECT x+1 FROM c WHERE x<10000)
    95      INSERT INTO t1(x) SELECT zeroblob(300) FROM c;
    96      CREATE TABLE t2(y);
    97      DROP TABLE t1;
    98    }
    99    string map {\[ x \] x \173 {} \175 {}} \
   100      [db eval {EXPLAIN PRAGMA integrity_check}]
   101  } {/ IntegrityCk 2 2 1 x[0-9]+,1x /}
   102  
   103  finish_test