Index: third_party/sqlite/src/test/incrblob_err.test |
diff --git a/third_party/sqlite/src/test/incrblob_err.test b/third_party/sqlite/src/test/incrblob_err.test |
index a08bea3e4e6609ac396e96d07200f2a0279eec46..0db8b0dcba6bba8b23a99f19764846cea01308e7 100644 |
--- a/third_party/sqlite/src/test/incrblob_err.test |
+++ b/third_party/sqlite/src/test/incrblob_err.test |
@@ -24,12 +24,12 @@ ifcapable {!incrblob || !memdebug || !tclvar} { |
source $testdir/malloc_common.tcl |
unset -nocomplain ::fd ::data |
-set ::fd [open [info script]] |
+set ::fd [open $::cmdlinearg(INFO_SCRIPT)] |
set ::data [read $::fd] |
close $::fd |
do_malloc_test 1 -tclprep { |
- set bytes [file size [info script]] |
+ set bytes [file size $::cmdlinearg(INFO_SCRIPT)] |
execsql { |
CREATE TABLE blobs(k, v BLOB); |
INSERT INTO blobs VALUES(1, zeroblob($::bytes)); |