summaryrefslogtreecommitdiff
path: root/test/tcl/memp008fsync.tcl
diff options
context:
space:
mode:
authorLorry Tar Creator <lorry-tar-importer@baserock.org>2015-02-17 17:25:57 +0000
committer <>2015-03-17 16:26:24 +0000
commit780b92ada9afcf1d58085a83a0b9e6bc982203d1 (patch)
tree598f8b9fa431b228d29897e798de4ac0c1d3d970 /test/tcl/memp008fsync.tcl
parent7a2660ba9cc2dc03a69ddfcfd95369395cc87444 (diff)
downloadberkeleydb-master.tar.gz
Imported from /home/lorry/working-area/delta_berkeleydb/db-6.1.23.tar.gz.HEADdb-6.1.23master
Diffstat (limited to 'test/tcl/memp008fsync.tcl')
-rw-r--r--test/tcl/memp008fsync.tcl27
1 files changed, 27 insertions, 0 deletions
diff --git a/test/tcl/memp008fsync.tcl b/test/tcl/memp008fsync.tcl
new file mode 100644
index 00000000..93975d8c
--- /dev/null
+++ b/test/tcl/memp008fsync.tcl
@@ -0,0 +1,27 @@
+# See the file LICENSE for redistribution information.
+#
+# Copyright (c) 2013, 2015 Oracle and/or its affiliates. All rights reserved.
+#
+# $Id$
+#
+# Process for fsyncing MPOOL.
+
+source ./include.tcl
+source $test_path/test.tcl
+source $test_path/testutils.tcl
+
+puts "Memp008: Sub-test for MPOOL fsync."
+set targetenv [berkdb_env -home $testdir]
+set stop_fname "$testdir/memp008.stop"
+
+set targetmp [$targetenv mpool -create -pagesize 512\
+ -mode 0644 "memp008fsync.mem"]
+
+# Will keep fsyncing MPOOL.
+while { ![file exists $stop_fname] } {
+ $targetmp fsync
+}
+
+$targetmp close
+error_check_good envclose [$targetenv close] 0
+puts "Memp008: Sub-test for MPOOL fsync finished."