-# This check fails because the file name in the title overwrites the
-# box.
-setup_xfail *-*-*
-Term::check_box "source box" 3 0 77 15
+# Get the first source line.
+set line [Term::get_line 1]
+# Send an up arrow.
+send_gdb "\033\[A"
+# Wait for a redraw and check that the first line changed.
+if {[Term::wait_for [string_to_regexp $line]] \
+ && [Term::get_line 1] != $line\
+ && [Term::get_line 2] == $line} {
+ pass "scroll up"
+} else {
+ fail "scroll up"
+}
+
+Term::check_box "source box" 0 0 80 15