diff options
| author | Richard Sandiford <rdsandiford@googlemail.com> | 2013-12-08 11:00:20 +1100 |
|---|---|---|
| committer | Ben Elliston <bje@gnu.org> | 2013-12-08 11:00:20 +1100 |
| commit | a78bb783097d8a32dbaa0fe4f3a0d20297e5da15 (patch) | |
| tree | af071c8652c21bbedd3372165034914751c19efe /lib/dg.exp | |
| parent | 19449c886eb3a4224518e1d3d42b7cb7a58cfe9b (diff) | |
| download | dejagnu-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.exp | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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 |