mirror of
https://github.com/sqlite/sqlite.git
synced 2025-07-30 19:03:16 +03:00
2.0-Alpha-2 release (CVS 258)
FossilOrigin-Name: d2a1aac46782c0d3852e34a3b32a6b2ccd93a256
This commit is contained in:
@ -11,7 +11,7 @@
|
||||
# This file implements regression tests for SQLite library. The
|
||||
# focus of this file is testing the sqlite_*_printf() interface.
|
||||
#
|
||||
# $Id: printf.test,v 1.3 2001/09/16 00:13:28 drh Exp $
|
||||
# $Id: printf.test,v 1.4 2001/09/20 01:44:43 drh Exp $
|
||||
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
@ -39,6 +39,9 @@ foreach v {1 2 5 10 99 100 1000000 999999999 0 -1 -2 -5 -10 -99 -100 -9999999} {
|
||||
incr n
|
||||
}
|
||||
|
||||
|
||||
if {$::tcl_platform(platform)!="windows"} {
|
||||
|
||||
set m 1
|
||||
foreach {a b} {1 1 5 5 10 10 10 5} {
|
||||
set n 1
|
||||
@ -63,6 +66,8 @@ foreach {a b} {1 1 5 5 10 10 10 5} {
|
||||
incr m
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
do_test printf-3.1 {
|
||||
sqlite_mprintf_str {A String: (%*.*s)} 10 10 {This is the string}
|
||||
} [format {A String: (%*.*s)} 10 10 {This is the string}]
|
||||
|
Reference in New Issue
Block a user