fix some tests to take the right branch on OS/2 (hope I got the Tcl syntax right) (CVS 5593)

FossilOrigin-Name: 10e62d4700c99faf07140a8204d3cd81481206ac
This commit is contained in:
pweilbacher
2008-08-22 13:57:39 +00:00
parent 7fc76d8c5a
commit e7c8a5c75d
5 changed files with 18 additions and 16 deletions
+2 -2
View File
@@ -11,7 +11,7 @@
# This file implements regression tests for SQLite library. The
# focus of this script is extension loading.
#
# $Id: loadext.test,v 1.14 2008/08/02 03:50:39 drh Exp $
# $Id: loadext.test,v 1.15 2008/08/22 13:57:39 pweilbacher Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@@ -23,7 +23,7 @@ ifcapable !load_ext {
# The name of the test extension varies by operating system.
#
if {$::tcl_platform(platform) eq "windows"} {
if {$::tcl_platform(platform) eq "windows" || $::tcl_platform(platform) eq "os2"} {
set testextension ./testloadext.dll
} else {
set testextension ./libtestloadext.so
+2 -2
View File
@@ -10,7 +10,7 @@
#***********************************************************************
# This file implements regression tests for SQLite library.
#
# $Id: misc7.test,v 1.23 2008/08/02 03:50:40 drh Exp $
# $Id: misc7.test,v 1.24 2008/08/22 13:57:39 pweilbacher Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@@ -367,7 +367,7 @@ set sqlite_pager_n_sort_bucket 0
# These tests do not work on windows due to restrictions in the
# windows file system.
#
if {$tcl_platform(platform)!="windows"} {
if {$tcl_platform(platform)!="windows" && $tcl_platform(platform)!="os2"} {
# Some network filesystems (ex: AFP) do not support setting read-only
# permissions. Only run these tests if full unix permission setting