test/tkt-bd484a090c.test

   1 # 2011 June 21
   2 #
   3 #    May you do good and not evil.
   4 #    May you find forgiveness for yourself and forgive others.
   5 #    May you share freely, never taking more than you give.
   6 #
   7 #***********************************************************************
   8 #
   9 # This file contains tests for SQLite. Specifically, it tests that SQLite
  10 # does not crash and an error is returned if localhost() fails. This
  11 # is the problem reported by ticket bd484a090c.
  12 #
  13
  14 set testdir [file dirname $argv0]
  15 source $testdir/tester.tcl
  16
  17 set testprefix tkt-bd484a090c
  18
  19
  20 do_test 1.1 {
  21   lindex [catchsql { SELECT datetime('now', 'localtime') }] 0
  22 } {0}
  23 do_test 1.2 {
  24   lindex [catchsql { SELECT datetime('now', 'utc') }] 0
  25 } {0}
  26
  27 sqlite3_test_control SQLITE_TESTCTRL_LOCALTIME_FAULT 1
  28
  29 do_test 2.1 {
  30   catchsql { SELECT datetime('now', 'localtime') }
  31 } {1 {local time unavailable}}
  32 do_test 2.2 {
  33   catchsql { SELECT datetime('now', 'utc') }
  34 } {1 {local time unavailable}}
  35
  36 sqlite3_test_control SQLITE_TESTCTRL_LOCALTIME_FAULT 0
  37
  38 finish_test