db/test/recd007.tcl

184 	# Open the environment and set the copy/abort locations
186 	set copy [lindex $cmd 0]
188 	error_check_good copy_location [is_valid_create_loc $copy] 1
191 	if {([string first "logmeta" $copy] != -1 || \
195 		$env test copy none
225 			catch { file copy -force $dir/$dbfile $init_file } res
235 	# Set our locations to copy and abort
237 	set ret [eval $env test copy $copy]
286 		catch { file copy -force $dir/$dbfile $init_file } res
325 		# Need a new copy to get the right LSN into the file.
327 		catch { file copy -force $dir/$dbfile $init_file } res
334 	# If we didn't make a copy, then we are done.
336 	if {[string first "none" $copy] != -1} {
405 	# Open the environment and set the copy/abort locations
407 	set copy [lindex $cmd 0]
409 	error_check_good copy_location [is_valid_delete_loc $copy] 1
476 	# Set our locations to copy and abort
478 	set ret [eval $env test copy $copy]
484 	# Open our db, add some data, close and copy as our
500 	catch { file copy -force $dir/$dbfile $init_file } res
570 	catch { file copy -force $dir/$dbfile $init_file } res
612 	# If we didn't make a copy, then we are done.
614 	if {[string first "none" $copy] != -1} {
673 	# Open the environment and set the copy/abort locations
690 	# Open our db, add some data, close and copy as our
700 	file copy -force $testdir/$dbfile $testdir/${dbfile}.1
771 	file copy -force $testdir/${dbfile}.1 $testdir/$dbfile
800 	file copy -force $testdir/$dbfile $testdir/${dbfile}.2
855 	file copy -force $testdir/${dbfile}.2 $testdir/$dbfile