* *.exp: Skip all tests silently if skip_chill_tests returns true.
* misc.exp: Remove reference to non-existent variable passcount.
This commit is contained in:
parent
a331c834c1
commit
5e8ade2361
|
@ -1,3 +1,9 @@
|
||||||
|
Wed Mar 8 13:26:36 1995 Jim Kingdon (kingdon@lioth.cygnus.com)
|
||||||
|
|
||||||
|
* *.exp: Skip all tests silently if skip_chill_tests returns true.
|
||||||
|
|
||||||
|
* misc.exp: Remove reference to non-existent variable passcount.
|
||||||
|
|
||||||
Tue Mar 7 19:30:05 1995 Per Bothner <bothner@kalessin.cygnus.com>
|
Tue Mar 7 19:30:05 1995 Per Bothner <bothner@kalessin.cygnus.com>
|
||||||
|
|
||||||
* string.ch, string.exp, Makefile.in: New test case.
|
* string.ch, string.exp, Makefile.in: New test case.
|
||||||
|
|
|
@ -61,6 +61,8 @@ proc do_tests {} {
|
||||||
set binfile "callch.exe"
|
set binfile "callch.exe"
|
||||||
set srcfile $binfile.ch
|
set srcfile $binfile.ch
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
warning "$binfile does not exist; tests suppressed."
|
warning "$binfile does not exist; tests suppressed."
|
||||||
} else {
|
} else {
|
||||||
|
|
|
@ -428,6 +428,8 @@ proc test_arithmetic_expressions {} {
|
||||||
|
|
||||||
# Start with a fresh gdb.
|
# Start with a fresh gdb.
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
gdb_exit
|
gdb_exit
|
||||||
gdb_start
|
gdb_start
|
||||||
gdb_reinitialize_dir $srcdir/$subdir
|
gdb_reinitialize_dir $srcdir/$subdir
|
||||||
|
|
|
@ -291,6 +291,8 @@ proc test_structs {} {
|
||||||
set binfile "chillvars.exe"
|
set binfile "chillvars.exe"
|
||||||
set srcfile $binfile.ch
|
set srcfile $binfile.ch
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
warning "$binfile does not exist; tests suppressed."
|
warning "$binfile does not exist; tests suppressed."
|
||||||
} else {
|
} else {
|
||||||
|
|
|
@ -55,7 +55,8 @@ proc set_lang_chill {} {
|
||||||
# Start with a fresh gdb.
|
# Start with a fresh gdb.
|
||||||
|
|
||||||
set binfile "misc.exe"
|
set binfile "misc.exe"
|
||||||
global passcount
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
gdb_exit
|
gdb_exit
|
||||||
gdb_start
|
gdb_start
|
||||||
|
|
|
@ -51,6 +51,8 @@ proc do_tests {} {
|
||||||
set binfile "pr-4975.exe"
|
set binfile "pr-4975.exe"
|
||||||
set srcfile $binfile.ch
|
set srcfile $binfile.ch
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
|
warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
|
||||||
} else {
|
} else {
|
||||||
|
|
|
@ -52,6 +52,8 @@ proc do_tests {} {
|
||||||
set binfile "pr-5016.exe"
|
set binfile "pr-5016.exe"
|
||||||
set srcfile $binfile.ch
|
set srcfile $binfile.ch
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
warning "$binfile does not exist; tests suppressed."
|
warning "$binfile does not exist; tests suppressed."
|
||||||
} else {
|
} else {
|
||||||
|
|
|
@ -79,6 +79,8 @@ proc test_pr_5020 {} {
|
||||||
set binfile "pr-5020.exe"
|
set binfile "pr-5020.exe"
|
||||||
set srcfile $binfile.ch
|
set srcfile $binfile.ch
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
|
warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
|
||||||
} else {
|
} else {
|
||||||
|
|
|
@ -64,6 +64,8 @@ proc test_pr_5022 {} {
|
||||||
set binfile "pr-5022.exe"
|
set binfile "pr-5022.exe"
|
||||||
set srcfile $binfile.ch
|
set srcfile $binfile.ch
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
warning "$binfile does not exist; tests suppressed."
|
warning "$binfile does not exist; tests suppressed."
|
||||||
} else {
|
} else {
|
||||||
|
|
|
@ -50,6 +50,8 @@ proc do_tests {} {
|
||||||
set binfile "pr-5646.exe"
|
set binfile "pr-5646.exe"
|
||||||
set srcfile $binfile.ch
|
set srcfile $binfile.ch
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
warning "$binfile does not exist; tests suppressed."
|
warning "$binfile does not exist; tests suppressed."
|
||||||
} else {
|
} else {
|
||||||
|
|
|
@ -51,6 +51,8 @@ proc do_tests {} {
|
||||||
set binfile "pr-5984.exe"
|
set binfile "pr-5984.exe"
|
||||||
set srcfile $binfile.ch
|
set srcfile $binfile.ch
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
warning "$binfile does not exist; tests suppressed."
|
warning "$binfile does not exist; tests suppressed."
|
||||||
} else {
|
} else {
|
||||||
|
|
|
@ -52,6 +52,8 @@ proc do_tests {} {
|
||||||
set binfile "pr-6292.exe"
|
set binfile "pr-6292.exe"
|
||||||
set srcfile $binfile.ch
|
set srcfile $binfile.ch
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
warning "$binfile does not exist; tests suppressed."
|
warning "$binfile does not exist; tests suppressed."
|
||||||
} else {
|
} else {
|
||||||
|
|
|
@ -62,6 +62,8 @@ proc do_tests {} {
|
||||||
set binfile "result.exe"
|
set binfile "result.exe"
|
||||||
set srcfile $binfile.ch
|
set srcfile $binfile.ch
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
|
warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
|
||||||
} else {
|
} else {
|
||||||
|
|
|
@ -55,6 +55,8 @@ proc do_tests {} {
|
||||||
set binfile "string.exe"
|
set binfile "string.exe"
|
||||||
set srcfile $binfile.ch
|
set srcfile $binfile.ch
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
warning "$binfile does not exist; tests suppressed."
|
warning "$binfile does not exist; tests suppressed."
|
||||||
} else {
|
} else {
|
||||||
|
|
|
@ -117,6 +117,8 @@ proc do_tests {} {
|
||||||
set binfile "tuples.exe"
|
set binfile "tuples.exe"
|
||||||
set srcfile $binfile.ch
|
set srcfile $binfile.ch
|
||||||
|
|
||||||
|
if [skip_chill_tests] then { continue }
|
||||||
|
|
||||||
if ![file exists $objdir/$subdir/$binfile] then {
|
if ![file exists $objdir/$subdir/$binfile] then {
|
||||||
warning "$binfile does not exist; tests suppressed."
|
warning "$binfile does not exist; tests suppressed."
|
||||||
} else {
|
} else {
|
||||||
|
|
Loading…
Reference in New Issue