Index: third_party/sqlite/src/test/bigfile.test |
diff --git a/third_party/sqlite/src/test/bigfile.test b/third_party/sqlite/src/test/bigfile.test |
index 52d74edbe60d1f8e631d4f9a05494b4f955e6e4e..31c632322c726b085a543fde874aeaa63b3cb472 100644 |
--- a/third_party/sqlite/src/test/bigfile.test |
+++ b/third_party/sqlite/src/test/bigfile.test |
@@ -15,6 +15,9 @@ |
# $Id: bigfile.test,v 1.12 2009/03/05 04:27:08 shane Exp $ |
# |
+if {[file exists skip-big-file]} return |
+if {$tcl_platform(os)=="Darwin"} return |
+ |
set testdir [file dirname $argv0] |
source $testdir/tester.tcl |
@@ -69,7 +72,7 @@ do_test bigfile-1.1 { |
# large files. So skip all of the remaining tests in this file. |
# |
db close |
-if {[catch {fake_big_file 4096 [pwd]/test.db} msg]} { |
+if {[catch {fake_big_file 4096 [get_pwd]/test.db} msg]} { |
puts "**** Unable to create a file larger than 4096 MB. *****" |
finish_test |
return |
@@ -109,7 +112,7 @@ do_test bigfile-1.4 { |
} $::MAGIC_SUM |
db close |
-if {[catch {fake_big_file 8192 [pwd]/test.db}]} { |
+if {[catch {fake_big_file 8192 [get_pwd]/test.db}]} { |
puts "**** Unable to create a file larger than 8192 MB. *****" |
finish_test |
return |
@@ -148,7 +151,7 @@ do_test bigfile-1.9 { |
} $::MAGIC_SUM |
db close |
-if {[catch {fake_big_file 16384 [pwd]/test.db}]} { |
+if {[catch {fake_big_file 16384 [get_pwd]/test.db}]} { |
puts "**** Unable to create a file larger than 16384 MB. *****" |
finish_test |
return |