OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

mauve.exp (find_mauve_sources): New proc.

Browse Source 
* libjava.mauve/mauve.exp (find_mauve_sources): New proc.
	(test_mauve): Use it.
	(test_mauve_sim): Likewise.

From-SVN: r58725
This commit is contained in:
Tom Tromey 2002-11-01 19:32:21 +00:00 committed by Tom Tromey
parent 23ae3eb1f8
commit 0e75523eb4
2 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libjava/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2002-11-01 Tom Tromey <tromey@redhat.com>
* libjava.mauve/mauve.exp (find_mauve_sources): New proc.
(test_mauve): Use it.
(test_mauve_sim): Likewise.
2002-10-24 Tom Tromey <tromey@redhat.com>
* libjava.lang/Primes.java: Removed.

19
libjava/testsuite/libjava.mauve/mauve.exp
View File

@ -52,12 +52,27 @@ proc mauve_compute_uses {aName} {
return [lsort [array names uses]]
}
# Find Mauve sources. At end, env(MAUVEDIR) points to sources.
# Returns 0 if sources not found, 1 otherwise.
proc find_mauve_sources {} {
global env srcdir
if {[info exists env(MAUVEDIR)]} {
return 1
} elseif {[file isdirectory $srcdir/libjava.mauve/mauve]} {
set env(MAUVEDIR) $srcdir/libjava.mauve/mauve
return 1
}
return 0
}
# Run all the Mauve tests. Return 1 on success, 0 on any failure. If
# the tests are skipped, that is treated like success.
proc test_mauve {} {
global srcdir objdir subdir env
if {! [info exists env(MAUVEDIR)]} then {
if {! [find_mauve_sources]} then {
verbose "MAUVEDIR not set; not running Mauve tests"
return 1
}
@ -220,7 +235,7 @@ proc test_mauve {} {
proc test_mauve_sim {} {
global srcdir subdir env
if {! [info exists env(MAUVEDIR)]} then {
if {! [find_mauve_sources]} then {
verbose "MAUVEDIR not set; not running Mauve tests"
return 1
}