test/symlink.test

   1 # 2015 October 31
   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 that SQLite can follow symbolic links.
  13 #
  14
  15 set testdir [file dirname $argv0]
  16 source $testdir/tester.tcl
  17 set testprefix symlink
  18
  19 # This only runs on unix.
  20 if {$::tcl_platform(platform)!="unix"} {
  21   finish_test
  22   return
  23 }
  24
  25 # Ensure that test.db has been created.
  26 #
  27 do_execsql_test 1.0 {
  28   CREATE TABLE t1(x, y);
  29 }
  30
  31 # Test that SQLite follows symlinks when opening files.
  32 #
  33 forcedelete test.db2
  34 do_test 1.1 {
  35   file link test.db2 test.db
  36   sqlite3 db2 test.db2
  37   sqlite3_db_filename db2 main
  38 } [file join [pwd] test.db]
  39
  40 # Test that if the symlink points to a file that does not exists, it is
  41 # created when it is opened.
  42 #
  43 do_test 1.2.1 {
  44   db2 close
  45   db close
  46   forcedelete test.db
  47   file exists test.db
  48 } 0
  49 do_test 1.2.2 {
  50   sqlite3 db2 test.db2
  51   file exists test.db
  52 } 1
  53 do_test 1.2.3 {
  54   sqlite3_db_filename db2 main
  55 } [file join [pwd] test.db]
  56 db2 close
  57
  58 # Test that a loop of symlinks cannot be opened.
  59 #
  60 do_test 1.3 {
  61   forcedelete test.db
  62   # Note: Tcl [file link] command is too smart to create loops of symlinks.
  63   exec ln -s test.db2 test.db
  64   list [catch { sqlite3 db test.db } msg] $msg
  65 } {1 {unable to open database file}}
  66
  67 # Test that overly large paths cannot be opened.
  68 #
  69 do_test 1.4 {
  70   set name "test.db[string repeat x 502]"
  71   list [catch { sqlite3 db $name } msg] $msg
  72 } {1 {unable to open database file}}
  73 do_test 1.5 {
  74   set r [expr 510 - [string length test.db] - [string length [pwd]]]
  75   set name "test.db[string repeat x $r]"
  76   list [catch { sqlite3 db $name } msg] $msg
  77 } {1 {unable to open database file}}
  78
  79 #-------------------------------------------------------------------------
  80 # Test that journal and wal files are created next to the real file,
  81 # not the symlink.
  82 #
  83 do_test 2.0 {
  84   catch { db close }
  85   catch { db2 close }
  86   forcedelete test.db test.db2 test.db3
  87   sqlite3 db test.db
  88   execsql { CREATE TABLE t1(x) }
  89   file link test.db2 test.db
  90   file link test.db3 test.db2
  91   set {} {}
  92 } {}
  93
  94 foreach {tn f} {1 test.db2 2 test.db3} {
  95   do_test 2.$tn.1 {
  96     sqlite3 db2 $f
  97     file exists test.db-journal
  98   } 0
  99   do_test 2.$tn.2 {
 100     execsql {
 101       BEGIN;
 102         INSERT INTO t1 VALUES(1);
 103     } db2
 104     file exists test.db-journal
 105   } 1
 106   do_test 2.$tn.3 {
 107     list [file exists test2.db-journal] [file exists test3.db-journal]
 108   } {0 0}
 109   do_test 2.$tn.4 {
 110     execsql {
 111       COMMIT;
 112       PRAGMA journal_mode = wal;
 113       INSERT INTO t1 VALUES(2);
 114     } db2
 115     file exists test.db-wal
 116   } 1
 117   do_test 2.$tn.5 {
 118     list [file exists test2.db-wal] [file exists test3.db-wal]
 119   } {0 0}
 120   do_execsql_test 2.$tn.6 {
 121     SELECT * FROM t1;
 122   } {1 2}
 123   db2 close
 124   do_execsql_test 2.$tn.7 {
 125     DELETE FROM t1;
 126     PRAGMA journal_mode = delete;
 127   } delete
 128 }
 129
 130 # Try to open a ridiculously long pathname.  Bug found by
 131 # Kostya Serebryany using libFuzzer on 2015-11-30.
 132 #
 133 do_test 3.1 {
 134   db close
 135   catch {sqlite3 db [string repeat [string repeat x 100]/ 6]} res
 136   set res
 137 } {unable to open database file}
 138
 139 #-------------------------------------------------------------------------
 140 # Test that relative symlinks that are not located in the cwd work.
 141 #
 142 do_test 4.1 {
 143   forcedelete x y z
 144   file mkdir x
 145   file mkdir y
 146   file mkdir z
 147   sqlite3 db x/test.db
 148   file link y/test.db ../x/test.db
 149   file link z/test.db ../y/test.db
 150   execsql {
 151     PRAGMA journal_mode = wal;
 152     CREATE TABLE t1(x, y);
 153     INSERT INTO t1 VALUES('hello', 'world');
 154   }
 155 } {wal}
 156
 157 do_test 4.2.1 {
 158   db close
 159   sqlite3 db y/test.db
 160   db eval { SELECT * FROM t1 }
 161 } {hello world}
 162 do_test 4.2.2 {
 163   list [file exists x/test.db-wal] [file exists y/test.db-wal]
 164 } {1 0}
 165
 166 do_test 4.3.1 {
 167   db close
 168   sqlite3 db z/test.db
 169   db eval { SELECT * FROM t1 }
 170 } {hello world}
 171 do_test 4.3.2 {
 172   list [file exists x/test.db-wal] [file exists y/test.db-wal] \
 173        [file exists z/test.db-wal]
 174 } {1 0 0}
 175
 176 do_test 4.4.0 {
 177   forcedelete w
 178   file mkdir w
 179   file link w/test.db [file join [pwd] x/test.db]
 180   set {} {}
 181 } {}
 182 do_test 4.4.1 {
 183   db close
 184   sqlite3 db w/test.db
 185   db eval { SELECT * FROM t1 }
 186 } {hello world}
 187 do_test 4.4.2 {
 188   list [file exists x/test.db-wal] [file exists w/test.db-wal]
 189 } {1 0}
 190
 191 finish_test