xref: /sqlite-3.40.0/test/atomic.test (revision 2912da02) 
1# 2015-11-07
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.  The
12# focus of this file is testing the WITH clause.
13#
14
15set testdir [file dirname $argv0]
16source $testdir/tester.tcl
17set ::testprefix atomic
18
19db close
20if {[atomic_batch_write test.db]==0} {
21  puts "No f2fs atomic-batch-write support. Skipping tests..."
22  finish_test
23  return
24}
25
26reset_db
27
28do_execsql_test 1.0 {
29  CREATE TABLE t1(x, y);
30  BEGIN;
31    INSERT INTO t1 VALUES(1, 2);
32}
33
34do_test 1.1 { file exists test.db-journal } {0}
35
36do_execsql_test 1.2 {
37  COMMIT;
38}
39
40
41finish_test
42