scandump.exp (scan-dump, [...]): Use printable pattern in test name.

* lib/scandump.exp (scan-dump, scan-dump-not, scan-dump-dem,
	scan-dump-dem-not): Use printable pattern in test name.

From-SVN: r188996
This commit is contained in:
Janis Johnson 2012-06-26 20:17:00 +00:00 committed by Janis Johnson
parent 8a0320ad5e
commit 2ef1bce664
2 changed files with 13 additions and 4 deletions

View File

@ -1,3 +1,8 @@
2012-06-26 Janis Johnson <janisjo@codesourcery.com>
* lib/scandump.exp (scan-dump, scan-dump-not, scan-dump-dem,
scan-dump-dem-not): Use printable pattern in test name.
2012-06-26 Sterling Augustine <saugustine@google.com>
Dominique Dhumieres <dominiq@lps.ens.fr>

View File

@ -47,8 +47,9 @@ proc scan-dump { args } {
set testcase [testname-for-summary]
set printable_pattern [make_pattern_printable [lindex $args 1]]
set suf [dump-suffix [lindex $args 2]]
set testname "$testcase scan-[lindex $args 0]-dump $suf \"[lindex $args 1]\""
set testname "$testcase scan-[lindex $args 0]-dump $suf \"$printable_pattern\""
set src [file tail [lindex $testcase 0]]
set output_file "[glob -nocomplain $src.[lindex $args 2]]"
if { $output_file == "" } {
@ -126,8 +127,9 @@ proc scan-dump-not { args } {
}
set testcase [testname-for-summary]
set printable_pattern [make_pattern_printable [lindex $args 1]]
set suf [dump-suffix [lindex $args 2]]
set testname "$testcase scan-[lindex $args 0]-dump-not $suf \"[lindex $args 1]\""
set testname "$testcase scan-[lindex $args 0]-dump-not $suf \"$printable_pattern\""
set src [file tail [lindex $testcase 0]]
set output_file "[glob -nocomplain $src.[lindex $args 2]]"
if { $output_file == "" } {
@ -178,8 +180,9 @@ proc scan-dump-dem { args } {
}
set testcase [testname-for-summary]
set printable_pattern [make_pattern_printable [lindex $args 1]]
set suf [dump-suffix [lindex $args 2]]
set testname "$testcase scan-[lindex $args 0]-dump-dem $suf \"[lindex $args 1]\""
set testname "$testcase scan-[lindex $args 0]-dump-dem $suf \"$printable_pattern\""
set src [file tail [lindex $testcase 0]]
set output_file "[glob -nocomplain $src.[lindex $args 2]]"
if { $output_file == "" } {
@ -229,8 +232,9 @@ proc scan-dump-dem-not { args } {
}
set testcase [testname-for-summary]
set printable_pattern [make_pattern_printable [lindex $args 1]
set suf [dump-suffix [lindex $args 2]]
set testname "$testcase scan-[lindex $args 0]-dump-dem-not $suf \"[lindex $args 1]\""
set testname "$testcase scan-[lindex $args 0]-dump-dem-not $suf \"$printable_pattern\""
set src [file tail [lindex $testcase 0]]
set output_file "[glob -nocomplain $src.[lindex $args 2]]"
if { $output_file == "" } {