diff options
| author | Cy Schubert <cy@FreeBSD.org> | 2025-07-07 23:45:18 +0000 |
|---|---|---|
| committer | Cy Schubert <cy@FreeBSD.org> | 2025-07-07 23:45:18 +0000 |
| commit | 89922daaa168292633b1a7a523bcd0559487c6ad (patch) | |
| tree | 8867accbd62790559ea9b2609fa40b3ce995a04f /tea/_teaish.tester.tcl.in | |
| parent | 657ea345f331704c612a35e5a74968bef9ffcfd8 (diff) | |
sqlite3: Vendor import of sqlite3 3.50.2vendor/sqlite3
Release notes at https://www.sqlite.org/releaselog/3_50_2.html.
Obtained from: https://www.sqlite.org/2025/sqlite-autoconf-3500200.tar.gz
Diffstat (limited to 'tea/_teaish.tester.tcl.in')
| -rw-r--r-- | tea/_teaish.tester.tcl.in | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/tea/_teaish.tester.tcl.in b/tea/_teaish.tester.tcl.in new file mode 100644 index 000000000000..59d11f0a8f6e --- /dev/null +++ b/tea/_teaish.tester.tcl.in @@ -0,0 +1,49 @@ +# -*- tcl -*- +# +# Unless this file is named _teaish.tester.tcl.in, you are probably +# looking at an automatically generated/filtered copy and should +# probably not edit it. +# +# This is the wrapper script invoked by teaish's "make test" recipe. +# It gets passed 3 args: +# +# $1 = the DLL name, or "" if the extension has no DLL +# +# $2 = the "load prefix" for Tcl's [load] or empty if $1 is empty +# +# $3 = the /path/to/teaish/tester.tcl (test utility code) +# +@if TEAISH_VSATISFIES_CODE +@TEAISH_VSATISFIES_CODE@ +@endif +if {[llength [lindex $::argv 0]] > 0} { + load [file normalize [lindex $::argv 0]] [lindex $::argv 1]; + # ----^^^^^^^ needed on Haiku when argv 0 is just a filename, else + # load cannot find the file. +} +source -encoding utf-8 [lindex $::argv 2]; # teaish/tester.tcl +@if TEAISH_PKGINIT_TCL +apply {{file} { + set dir [file dirname $::argv0] + source -encoding utf-8 $file +}} [join {@TEAISH_PKGINIT_TCL@}] +@endif +@if TEAISH_TM_TCL +apply {{file} { + set dir [file dirname $::argv0] + source -encoding utf-8 $file +}} [join {@TEAISH_TM_TCL@}] +@endif +@if TEAISH_TEST_TCL +apply {{file} { + # Populate state for [tester.tcl::teaish-build-flag*] + array set ::teaish__BuildFlags @TEAISH__DEFINES_MAP@ + set dir [file normalize [file dirname $file]] + #test-fail "Just testing" + source -encoding utf-8 $file +}} [join {@TEAISH_TEST_TCL@}] +@else # TEAISH_TEST_TCL +# No $TEAISH_TEST_TCL provided, so here's a default test which simply +# loads the extension. +puts {Extension @TEAISH_NAME@ @TEAISH_VERSION@ successfully loaded from @TEAISH_TESTER_TCL@} +@endif |
