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 32cbaa3..def9ee4 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 610af19..3f4541b 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 6da127c..0b4a77d 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 05a9810..78d9f01 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 a12bdb8..3a13868 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 cd11f34..00756ea 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 0e4f83d..612a16f 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 902bb05..79a00fb 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 9b77713..ce518c4 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 e819110..f4ee9cc 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 9ba7c57..e4aba5a 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 a01e08b..2af77ce 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 ba3f024..c84e062 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 daf6ff9..2c5ed5a 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 4f7803a..2251a04 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.7.4