Check for miscompiled Tcl (CVS 204)

FossilOrigin-Name: 735d8b5c13b5e2602b37940377fced098be210c1

test/func.test

@@ -23,7 +23,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this file is testing built-in functions.
 #
-# $Id: func.test,v 1.2 2001/04/05 15:57:14 drh Exp $
+# $Id: func.test,v 1.3 2001/04/06 16:13:43 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -89,7 +89,7 @@ do_test func-2.8 {
 # Only do the following tests if TCL has UTF-8 capabilities and
 # the UTF-8 encoding is turned on in the SQLite library.
 #
-if {$::sqlite_encoding=="UTF-8" && "\u1234"!="u1234"} {
+if {[sqlite -encoding]=="UTF-8" && "\u1234"!="u1234"} {
 
 # Put some UTF-8 characters in the database
 #
@@ -131,6 +131,6 @@ do_test func-3.10 {
   execsql {SELECT substr(t1,-4,3) FROM tbl1 ORDER BY t1}
 } "ter ain i\u1234h TF-"
 
-} ;# End sqlite_encoding==UTF-8 and \u1234!=u1234
+} ;# End [sqlite -encoding]==UTF-8 and \u1234!=u1234
 
 finish_test