Abort I/O tests and save the files at first sign of problem.

This lets us examine the files to help determine what happened.

testsuite/expect/test9.1

@@ -106,14 +106,15 @@ for {set inx 0} {$inx < $cycle_count} {incr inx} {
 	}
 	if {$stdout_lines != $stdout_target} {
 		send_user "\nFAILURE: stdout is incomplete\n"
+		set cycle_count $inx
 		set exit_code 1
 	} else {
 		incr success_cnt
 	}
 }
-exec $bin_rm -f $file_in $file_out
 
 if {$exit_code == 0} {
+	exec $bin_rm -f $file_in $file_out
 	send_user "\nSUCCESS\n"
 } else {
 	send_user "\nFAILURE: Only $success_cnt of $cycle_count"

testsuite/expect/test9.2

@@ -96,14 +96,15 @@ for {set inx 0} {$inx < $cycle_count} {incr inx} {
 	}
 	if {$stdout_lines != $task_cnt} {
 		send_user "\nFAILURE:stdout is incomplete\n"
+		set cycle_count $inx
 		set exit_code 1
 	} else {
 		incr success_cnt
 	}
 }
-exec $bin_rm -f $file_out
 
 if {$exit_code == 0} {
+	exec $bin_rm -f $file_out
 	send_user "\nSUCCESS\n"
 } else {
 	send_user "\nFAILURE: Only $success_cnt of $cycle_count"

testsuite/expect/test9.3

@@ -106,17 +106,18 @@ for {set inx 0} {$inx < $cycle_count} {incr inx} {
 	}
 	if {$stdout_lines != $stdout_target} {
 		send_user "\nFAILURE:stdout is incomplete\n"
+		set cycle_count $inx
 		set exit_code 1
 	} else {
 		incr success_cnt
 	}
 }
-exec $bin_rm -f $file_in $file_out
 
 if {$exit_code == 0} {
+	exec $bin_rm -f $file_in $file_out
 	send_user "\nSUCCESS\n"
 } else {
-	send_user "\nFAILURE: Only $success_cnt of $cycle_count hostname"
-	send_user " output tests passed\n"
+	send_user "\nFAILURE: Only $success_cnt of $cycle_count I/O"
+	send_user " tests passed\n"
 }
 exit $exit_code

testsuite/expect/test9.6

@@ -107,14 +107,15 @@ for {set inx 0} {$inx < $cycle_count} {incr inx} {
 	}
 	if {$stdout_lines != $stdout_target} {
 		send_user "\nFAILURE:stdout is missing output\n"
+		set cycle_count $inx
 		set exit_code 1
 	} else {
 		incr success_cnt
 	}
 }
-exec $bin_rm -f $file_in $file_out
 
 if {$exit_code == 0} {
+	exec $bin_rm -f $file_in $file_out
 	send_user "\nSUCCESS\n"
 } else {
 	send_user "\nFAILURE: Only $success_cnt of $cycle_count hostname"