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

     1  # 2018 May 8
     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 filterfault
    17  
    18  ifcapable !windowfunc {
    19    finish_test
    20    return
    21  }
    22  
    23  do_execsql_test 1.0 {
    24    CREATE TABLE t1(a, b, c, d);
    25    INSERT INTO t1 VALUES(1, 2, 3, 4);
    26    INSERT INTO t1 VALUES(5, 6, 7, 8);
    27    INSERT INTO t1 VALUES(9, 10, 11, 12);
    28  }
    29  faultsim_save_and_close
    30  
    31  do_faultsim_test 1 -faults oom-t* -prep {
    32    faultsim_restore_and_reopen
    33  } -body {
    34    execsql {
    35      SELECT sum(a) FILTER (WHERE b<5),
    36             count() FILTER (WHERE d!=c) 
    37        FROM t1 GROUP BY c ORDER BY 1;
    38    }
    39  } -test {
    40    faultsim_test_result {0 {{} 1 {} 1 1 1}}
    41  }
    42  
    43  
    44  finish_test