third_party/sqlite/sqlite-src-3080704/test/diskfull.test - Issue 2363173002: [sqlite] Remove obsolete reference version 3.8.7.4.

Side by Side Diff: third_party/sqlite/sqlite-src-3080704/test/diskfull.test

Issue 2363173002: [sqlite] Remove obsolete reference version 3.8.7.4. (Closed)

Patch Set: Created 4 years, 2 months ago

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Jump to:

OLD	NEW
	(Empty)
1 # 2001 October 12

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 for correct handling of disk full

13 # errors.

14 #

15 # $Id: diskfull.test,v 1.8 2008/07/12 14:52:20 drh Exp $

16

17 set testdir [file dirname $argv0]

18 source $testdir/tester.tcl

19

20 set sqlite_io_error_persist 0

21 set sqlite_io_error_hit 0

22 set sqlite_io_error_pending 0

23 do_test diskfull-1.1 {

24 execsql {

25 CREATE TABLE t1(x);

26 INSERT INTO t1 VALUES(randstr(1000,1000));

27 INSERT INTO t1 SELECT * FROM t1;

28 INSERT INTO t1 SELECT * FROM t1;

29 INSERT INTO t1 SELECT * FROM t1;

30 INSERT INTO t1 SELECT * FROM t1;

31 CREATE INDEX t1i1 ON t1(x);

32 CREATE TABLE t2 AS SELECT x AS a, x AS b FROM t1;

33 CREATE INDEX t2i1 ON t2(b);

34 }

35 } {}

36 set sqlite_diskfull_pending 0

37 integrity_check diskfull-1.2

38 do_test diskfull-1.3 {

39 set sqlite_diskfull_pending 1

40 catchsql {

41 INSERT INTO t1 SELECT * FROM t1;

42 }

43 } {1 {database or disk is full}}

44 set sqlite_diskfull_pending 0

45 integrity_check diskfull-1.4

46 do_test diskfull-1.5 {

47 set sqlite_diskfull_pending 1

48 catchsql {

49 DELETE FROM t1;

50 }

51 } {1 {database or disk is full}}

52 set sqlite_diskfull_pending 0

53 set sqlite_io_error_hit 0

54 integrity_check diskfull-1.6

55

56 proc do_diskfull_test {prefix sql} {

57 set ::go 1

58 set ::sql $sql

59 set ::i 1

60 while {$::go} {

61 incr ::i

62 do_test ${prefix}.$::i.1 {

63 set ::sqlite_diskfull_pending $::i

64 set ::sqlite_diskfull 0

65 set r [catchsql $::sql]

66 if {!$::sqlite_diskfull} {

67 set r {1 {database or disk is full}}

68 set ::go 0

69 }

70 if {$r=="1 {disk I/O error}"} {

71 set r {1 {database or disk is full}}

72 }

73 set r

74 } {1 {database or disk is full}}

75 set ::sqlite_diskfull_pending 0

76 db close

77 sqlite3 db test.db

78 integrity_check ${prefix}.$::i.2

79 }

80 }

81

82 do_diskfull_test diskfull-2 VACUUM

83

84 # db close

85 # forcedelete test.db

86 # forcedelete test.db-journal

87 # sqlite3 db test.db

88 #

89 # do_test diskfull-3.1 {

90 # execsql {

91 # PRAGMA default_cache_size = 10;

92 # CREATE TABLE t3(a, b, UNIQUE(a, b));

93 # INSERT INTO t3 VALUES( randstr(100, 100), randstr(100, 100) );

94 # INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;

95 # INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;

96 # INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;

97 # INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;

98 # INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;

99 # INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;

100 # INSERT INTO t3 SELECT randstr(100, 100), randstr(100, 100) FROM t3;

101 # UPDATE t3

102 # SET b = (SELECT a FROM t3 WHERE rowid = (SELECT max(rowid)-1 FROM t3))

103 # WHERE rowid = (SELECT max(rowid) FROM t3);

104 # PRAGMA cache_size;

105 # }

106 # } {10}

107 #

108 # do_diskfull_test diskfull-3.2 {

109 # BEGIN;

110 # INSERT INTO t3 VALUES( randstr(100, 100), randstr(100, 100) );

111 # UPDATE t3 SET a = b;

112 # COMMIT;

113 # }

114

115 finish_test

OLD	NEW