diff options
Diffstat (limited to 'test/tcl/memp008fsync.tcl')
| -rw-r--r-- | test/tcl/memp008fsync.tcl | 27 |
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." |