From 5e8ade236109349137ac4aaf9f2b0cc83290a4ca Mon Sep 17 00:00:00 2001
From: Jim Kingdon <jkingdon@engr.sgi.com>
Date: Wed, 8 Mar 1995 21:32:37 +0000
Subject: [PATCH] 	* *.exp: Skip all tests silently if skip_chill_tests
 returns true.

	* misc.exp: Remove reference to non-existent variable passcount.
---
 gdb/testsuite/gdb.chill/ChangeLog     | 6 ++++++
 gdb/testsuite/gdb.chill/callch.exp    | 2 ++
 gdb/testsuite/gdb.chill/chexp.exp     | 2 ++
 gdb/testsuite/gdb.chill/chillvars.exp | 2 ++
 gdb/testsuite/gdb.chill/misc.exp      | 3 ++-
 gdb/testsuite/gdb.chill/pr-4975.exp   | 2 ++
 gdb/testsuite/gdb.chill/pr-5016.exp   | 2 ++
 gdb/testsuite/gdb.chill/pr-5020.exp   | 2 ++
 gdb/testsuite/gdb.chill/pr-5022.exp   | 2 ++
 gdb/testsuite/gdb.chill/pr-5646.exp   | 2 ++
 gdb/testsuite/gdb.chill/pr-5984.exp   | 2 ++
 gdb/testsuite/gdb.chill/pr-6292.exp   | 2 ++
 gdb/testsuite/gdb.chill/result.exp    | 2 ++
 gdb/testsuite/gdb.chill/string.exp    | 2 ++
 gdb/testsuite/gdb.chill/tuples.exp    | 2 ++
 15 files changed, 34 insertions(+), 1 deletion(-)

diff --git a/gdb/testsuite/gdb.chill/ChangeLog b/gdb/testsuite/gdb.chill/ChangeLog
index 32cbaa37b2d..def9ee49bea 100644
--- a/gdb/testsuite/gdb.chill/ChangeLog
+++ b/gdb/testsuite/gdb.chill/ChangeLog
@@ -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>
 
 	* string.ch, string.exp, Makefile.in:  New test case.
diff --git a/gdb/testsuite/gdb.chill/callch.exp b/gdb/testsuite/gdb.chill/callch.exp
index 610af194313..3f4541b5d7b 100644
--- a/gdb/testsuite/gdb.chill/callch.exp
+++ b/gdb/testsuite/gdb.chill/callch.exp
@@ -61,6 +61,8 @@ proc do_tests {} {
 set binfile "callch.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {
diff --git a/gdb/testsuite/gdb.chill/chexp.exp b/gdb/testsuite/gdb.chill/chexp.exp
index 6da127cd5d9..0b4a77d7315 100644
--- a/gdb/testsuite/gdb.chill/chexp.exp
+++ b/gdb/testsuite/gdb.chill/chexp.exp
@@ -428,6 +428,8 @@ proc test_arithmetic_expressions {} {
 
 # Start with a fresh gdb.
 
+if [skip_chill_tests] then { continue }
+
 gdb_exit
 gdb_start
 gdb_reinitialize_dir $srcdir/$subdir
diff --git a/gdb/testsuite/gdb.chill/chillvars.exp b/gdb/testsuite/gdb.chill/chillvars.exp
index 05a9810506e..78d9f01d671 100644
--- a/gdb/testsuite/gdb.chill/chillvars.exp
+++ b/gdb/testsuite/gdb.chill/chillvars.exp
@@ -291,6 +291,8 @@ proc test_structs {} {
 set binfile "chillvars.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {
diff --git a/gdb/testsuite/gdb.chill/misc.exp b/gdb/testsuite/gdb.chill/misc.exp
index a12bdb88e84..3a1386881d4 100644
--- a/gdb/testsuite/gdb.chill/misc.exp
+++ b/gdb/testsuite/gdb.chill/misc.exp
@@ -55,7 +55,8 @@ proc set_lang_chill {} {
 # Start with a fresh gdb.
 
 set binfile "misc.exe"
-global passcount
+
+if [skip_chill_tests] then { continue }
 
 gdb_exit
 gdb_start
diff --git a/gdb/testsuite/gdb.chill/pr-4975.exp b/gdb/testsuite/gdb.chill/pr-4975.exp
index cd11f34c153..00756eaeb47 100644
--- a/gdb/testsuite/gdb.chill/pr-4975.exp
+++ b/gdb/testsuite/gdb.chill/pr-4975.exp
@@ -51,6 +51,8 @@ proc do_tests {} {
 set binfile "pr-4975.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
 	warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
 } else {
diff --git a/gdb/testsuite/gdb.chill/pr-5016.exp b/gdb/testsuite/gdb.chill/pr-5016.exp
index 0e4f83d2829..612a16f6bda 100644
--- a/gdb/testsuite/gdb.chill/pr-5016.exp
+++ b/gdb/testsuite/gdb.chill/pr-5016.exp
@@ -52,6 +52,8 @@ proc do_tests {} {
 set binfile "pr-5016.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {
diff --git a/gdb/testsuite/gdb.chill/pr-5020.exp b/gdb/testsuite/gdb.chill/pr-5020.exp
index 902bb059e86..79a00fb738e 100644
--- a/gdb/testsuite/gdb.chill/pr-5020.exp
+++ b/gdb/testsuite/gdb.chill/pr-5020.exp
@@ -79,6 +79,8 @@ proc test_pr_5020 {} {
 set binfile "pr-5020.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
 	warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
 } else {
diff --git a/gdb/testsuite/gdb.chill/pr-5022.exp b/gdb/testsuite/gdb.chill/pr-5022.exp
index 9b777135402..ce518c4415b 100644
--- a/gdb/testsuite/gdb.chill/pr-5022.exp
+++ b/gdb/testsuite/gdb.chill/pr-5022.exp
@@ -64,6 +64,8 @@ proc test_pr_5022 {} {
 set binfile "pr-5022.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {
diff --git a/gdb/testsuite/gdb.chill/pr-5646.exp b/gdb/testsuite/gdb.chill/pr-5646.exp
index e819110d719..f4ee9ccb937 100644
--- a/gdb/testsuite/gdb.chill/pr-5646.exp
+++ b/gdb/testsuite/gdb.chill/pr-5646.exp
@@ -50,6 +50,8 @@ proc do_tests {} {
 set binfile "pr-5646.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {
diff --git a/gdb/testsuite/gdb.chill/pr-5984.exp b/gdb/testsuite/gdb.chill/pr-5984.exp
index 9ba7c578e18..e4aba5a73a5 100644
--- a/gdb/testsuite/gdb.chill/pr-5984.exp
+++ b/gdb/testsuite/gdb.chill/pr-5984.exp
@@ -51,6 +51,8 @@ proc do_tests {} {
 set binfile "pr-5984.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {
diff --git a/gdb/testsuite/gdb.chill/pr-6292.exp b/gdb/testsuite/gdb.chill/pr-6292.exp
index a01e08b23db..2af77cee587 100644
--- a/gdb/testsuite/gdb.chill/pr-6292.exp
+++ b/gdb/testsuite/gdb.chill/pr-6292.exp
@@ -52,6 +52,8 @@ proc do_tests {} {
 set binfile "pr-6292.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {
diff --git a/gdb/testsuite/gdb.chill/result.exp b/gdb/testsuite/gdb.chill/result.exp
index ba3f02461cb..c84e062e5b8 100644
--- a/gdb/testsuite/gdb.chill/result.exp
+++ b/gdb/testsuite/gdb.chill/result.exp
@@ -62,6 +62,8 @@ proc do_tests {} {
 set binfile "result.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
 	warning "$objdir/$subdir/$binfile does not exist; tests suppressed."
 } else {
diff --git a/gdb/testsuite/gdb.chill/string.exp b/gdb/testsuite/gdb.chill/string.exp
index daf6ff9a2f0..2c5ed5a05d4 100644
--- a/gdb/testsuite/gdb.chill/string.exp
+++ b/gdb/testsuite/gdb.chill/string.exp
@@ -55,6 +55,8 @@ proc do_tests {} {
 set binfile "string.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {
diff --git a/gdb/testsuite/gdb.chill/tuples.exp b/gdb/testsuite/gdb.chill/tuples.exp
index 4f7803a8a90..2251a049fbe 100644
--- a/gdb/testsuite/gdb.chill/tuples.exp
+++ b/gdb/testsuite/gdb.chill/tuples.exp
@@ -117,6 +117,8 @@ proc do_tests {} {
 set binfile "tuples.exe"
 set srcfile $binfile.ch
 
+if [skip_chill_tests] then { continue }
+
 if ![file exists $objdir/$subdir/$binfile] then {
     warning "$binfile does not exist; tests suppressed."
 } else {
-- 
2.30.2