database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2026-01-06 08:01:16 +03:00
Code Activity

Remove use of the "clock" command in the test suite so that the tests

Browse Source 
will run in Tcl8.5.  Ticket #1445. (CVS 3380)

FossilOrigin-Name: bedbac54db173ceb74bd78acd021209f28aa30a8
This commit is contained in:
drh
2006-09-01 15:49:05 +00:00
parent b2f4d0173a
commit 9645d8d4b3
6 changed files with 36 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
test/tclsqlite.test
View File

@@ -15,7 +15,7 @@
# interface is pretty well tested. This file contains some addition
# tests for fringe issues that the main test suite does not cover.
#
# $Id: tclsqlite.test,v 1.55 2006/07/17 00:02:46 drh Exp $
# $Id: tclsqlite.test,v 1.56 2006/09/01 15:49:06 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@@ -325,11 +325,11 @@ do_test tcl-9.1 {
execsql {SELECT typeof(ret_str())}
} {text}
do_test tcl-9.2 {
db function ret_dbl {return [expr {[clock seconds]*0.5}]}
db function ret_dbl {return [expr {rand()*0.5}]}
execsql {SELECT typeof(ret_dbl())}
} {real}
do_test tcl-9.3 {
db function ret_int {clock seconds}
db function ret_int {return [expr {int(rand()*200)}]}
execsql {SELECT typeof(ret_int())}
} {integer}