aboutsummaryrefslogtreecommitdiff
path: root/lib/dg.exp
diff options
context:
space:
mode:
authorRichard Sandiford <rdsandiford@googlemail.com>2013-12-08 11:00:20 +1100
committerBen Elliston <bje@gnu.org>2013-12-08 11:00:20 +1100
commita78bb783097d8a32dbaa0fe4f3a0d20297e5da15 (patch)
treeaf071c8652c21bbedd3372165034914751c19efe /lib/dg.exp
parent19449c886eb3a4224518e1d3d42b7cb7a58cfe9b (diff)
downloaddejagnu-a78bb783097d8a32dbaa0fe4f3a0d20297e5da15.zip
dejagnu-a78bb783097d8a32dbaa0fe4f3a0d20297e5da15.tar.gz
dejagnu-a78bb783097d8a32dbaa0fe4f3a0d20297e5da15.tar.bz2
* lib/dg.exp (dg-test): Don't put the expected and actual output
of a pattern test in the test name; send it to the log instead. Signed-off-by: Ben Elliston <bje@gnu.org>
Diffstat (limited to 'lib/dg.exp')
-rw-r--r--lib/dg.exp5
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/dg.exp b/lib/dg.exp
index 889585f..3eaccf1 100644
--- a/lib/dg.exp
+++ b/lib/dg.exp
@@ -851,10 +851,11 @@ proc dg-test { args } {
}
set texttmp [lindex ${dg-output-text} 1]
if { ![regexp $texttmp ${output}] } {
- fail "$name output pattern test, is ${output}, should match $texttmp"
+ fail "$name output pattern test"
+ send_log "Output was:\n${output}\nShould match:\n$texttmp\n"
verbose "Failed test for output pattern $texttmp" 3
} else {
- pass "$name output pattern test, $texttmp"
+ pass "$name output pattern test"
verbose "Passed test for output pattern $texttmp" 3
}
unset texttmp