verify.exp (gcj_verify_list_tests): Only change directory if new directory exists.
* libjava.verify/verify.exp (gcj_verify_list_tests): Only change directory if new directory exists. From-SVN: r69590
This commit is contained in:
parent
703ad42b4b
commit
01482e6ded
2 changed files with 12 additions and 5 deletions
|
@ -1,3 +1,8 @@
|
|||
2003-07-19 Tom Tromey <tromey@redhat.com>
|
||||
|
||||
* libjava.verify/verify.exp (gcj_verify_list_tests): Only change
|
||||
directory if new directory exists.
|
||||
|
||||
2003-07-13 Tom Tromey <tromey@redhat.com>
|
||||
|
||||
* libjava.verify/verify.exp: Fixed variable init.
|
||||
|
|
|
@ -11,12 +11,14 @@ set {gcj_verify_xfail(gij verify of subr.fail.jsr8)} 1
|
|||
|
||||
proc gcj_verify_list_tests {srcdir} {
|
||||
set result {}
|
||||
set here [pwd]
|
||||
cd $srcdir
|
||||
foreach item [lsort [glob -nocomplain */*/*.class]] {
|
||||
lappend result [file rootname $item]
|
||||
if {[file exists $srcdir]} {
|
||||
set here [pwd]
|
||||
cd $srcdir
|
||||
foreach item [lsort [glob -nocomplain */*/*.class]] {
|
||||
lappend result [file rootname $item]
|
||||
}
|
||||
cd $here
|
||||
}
|
||||
cd $here
|
||||
return $result
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue