Tcl Source Code

Artifact eeab9572596de1b7c4c5abde9bcef748c0981fdb:

foreach filesize $filesize_list {

		if { $create_testfile } {
		file delete -force $testfile
	    if { [ HostFile::CreateRandom $testfile $filesize 1 local_md5sum ] } {
		Log::Error "Couldn't create a test file in [ file dirname $testfile ]. Aborting."
		set retval 1; break
	    }
		}
	
		for { set cnt 1 } { $counts } { incr cnt; incr counts $incr_val } {

	    Log::Step "${cnt}. PUT $testfile (size: $filesize)"
	    if { [ Ftp::Put $ftpfd $testfile put_delta_ms ] } { set retval 1; break }
	    Log::StepExit SUCCESS
		set buffer [ Expect::OutBuffer ]
		if { $buffer ne "" } { Log::Info "EXPECT => $buffer" }
		exec -- sleep $sleep

	    Log::Step "${cnt}. GET [ file tail $testfile ] (size: $filesize)"
	    if { [ Ftp::Get $ftpfd [ file tail $testfile ] get_delta_ms ] } {
		set retval 1; break
	    }
	    Log::StepExit SUCCESS
		set buffer [ Expect::OutBuffer ]
		if { $buffer ne "" } { Log::Error "EXPECT => $buffer" }
		exec -- sleep $sleep

		# -- Delete the temporary testfile from the GET transfer.
		file delete -force [ file tail $testfile ]

	    # -- Now print the result data.
		Log::Info "Time differences: PUT=$put_delta_ms ms and GET=$get_delta_ms ms"
		}

		if { $retval == 1 } { break }
		set counts [ expr $cnt - 1 ]
	}