github.com/jdgcs/sqlite3@v1.12.1-0.20210908114423-bc5f96e4dd51/testdata/tcl/tkt-bd484a090c.test (about)

     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