diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index ce0b72f565..e3343ae619 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2014-05-14  Yao Qi  <yao@codesourcery.com>
+
+	* boards/local-remote-host-notty.exp (${board}_file): New
+	proc.
+
 2014-05-07  Kyle McMartin  <kyle@redhat.com>
 
 	Pushed by Joel Brobecker  <brobecker@adacore.com>.
diff --git a/gdb/testsuite/boards/local-remote-host-notty.exp b/gdb/testsuite/boards/local-remote-host-notty.exp
index 6ff8f18e16..dd3ee5ae78 100644
--- a/gdb/testsuite/boards/local-remote-host-notty.exp
+++ b/gdb/testsuite/boards/local-remote-host-notty.exp
@@ -33,6 +33,13 @@ set_board_info rsh_prog /usr/bin/ssh
 set_board_info rcp_prog /usr/bin/scp
 set_board_info file_transfer "rsh"
 
+proc ${board}_file { dest op args } {
+    if { $op == "delete" } {
+	return 0
+    }
+    return [eval [list standard_file $dest $op] $args]
+}
+
 proc ${board}_download { board src dest } {
 
     # If file name is a relative, convert it to absolute, otherwise file can't