* *.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

@@ -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.

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 {

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

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 {

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

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 {

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 {

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 {

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 {

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 {

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 {

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 {

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 {

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 {

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 {