aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite')
-rw-r--r--gdb/testsuite/ChangeLog4
-rw-r--r--gdb/testsuite/gdb.gdb/observer.exp143
2 files changed, 4 insertions, 143 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index d2fb9a8..c648fc5 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2018-03-19 Tom Tromey <tom@tromey.com>
+
+ * gdb.gdb/observer.exp: Remove.
+
2018-03-19 Andreas Arnez <arnez@linux.vnet.ibm.com>
* gdb.trace/actions-changed.exp: Call gdb_breakpoint with the
diff --git a/gdb/testsuite/gdb.gdb/observer.exp b/gdb/testsuite/gdb.gdb/observer.exp
deleted file mode 100644
index 1b51464..0000000
--- a/gdb/testsuite/gdb.gdb/observer.exp
+++ /dev/null
@@ -1,143 +0,0 @@
-# Copyright 2003-2018 Free Software Foundation, Inc.
-
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-# This file was written by Joel Brobecker (brobecker@gnat.com), derived
-# from xfullpath.exp.
-
-load_lib selftest-support.exp
-
-proc attach_first_observer { message } {
- gdb_test_no_output "set \$first_obs = observer_attach_test_notification (&observer_test_first_notification_function)" \
- "$message; attach first observer"
-}
-
-proc attach_second_observer { message } {
- gdb_test_no_output "set \$second_obs = observer_attach_test_notification (&observer_test_second_notification_function)" \
- "$message; attach second observer"
-}
-
-proc attach_third_observer { message } {
- gdb_test_no_output "set \$third_obs = observer_attach_test_notification (&observer_test_third_notification_function)" \
- "$message; attach third observer"
-}
-
-proc detach_first_observer { message } {
- gdb_test_no_output "call observer_detach_test_notification (\$first_obs)" \
- "$message; detach first observer"
-}
-
-proc detach_second_observer { message } {
- gdb_test_no_output "call observer_detach_test_notification (\$second_obs)" \
- "$message; detach second observer"
-}
-
-proc detach_third_observer { message } {
- gdb_test_no_output "call observer_detach_test_notification (\$third_obs)" \
- "$message; detach third observer"
-}
-
-proc check_counters { first second third message } {
- gdb_test "print observer_test_first_observer" \
- ".\[0-9\]+ =.*$first" \
- "$message; check first observer counter value"
- gdb_test "print observer_test_second_observer" \
- ".\[0-9\]+ =.*$second" \
- "$message; check second observer counter value"
- gdb_test "print observer_test_third_observer" \
- ".\[0-9\]+ =.*$third" \
- "$message; check third observer counter value"
-}
-
-proc reset_counters { message } {
- gdb_test_no_output "set variable observer_test_first_observer = 0" \
- "$message; reset first observer counter"
- gdb_test_no_output "set variable observer_test_second_observer = 0" \
- "$message; reset second observer counter"
- gdb_test_no_output "set variable observer_test_third_observer = 0" \
- "$message; reset third observer counter"
-}
-
-proc test_notifications { first second third message args } {
- # Do any initialization
- for {set i 0} {$i < [llength $args]} {incr i} {
- [lindex $args $i] $message
- }
- reset_counters $message
- # Call observer_notify_test_notification. Note that this procedure
- # takes one argument, but this argument is ignored by the observer
- # callbacks we have installed. So we just pass an arbitrary value.
- gdb_test_no_output "call observer_notify_test_notification (0)" \
- "$message; sending notification"
- check_counters $first $second $third $message
-}
-
-proc test_observer {} {
- # First, try sending a notification without any observer attached.
- test_notifications 0 0 0 "no observer attached"
-
- # Now, attach one observer, and send a notification.
- test_notifications 0 1 0 "second observer attached" \
- attach_second_observer
-
- # Remove the observer, and send a notification.
- test_notifications 0 0 0 "second observer detached" \
- detach_second_observer
-
- # With a new observer.
- test_notifications 1 0 0 "1st observer added" \
- attach_first_observer
-
- # With 2 observers.
- test_notifications 1 1 0 "2nd observer added" \
- attach_second_observer
-
- # With 3 observers.
- test_notifications 1 1 1 "3rd observer added" \
- attach_third_observer
-
- # Remove middle observer.
- test_notifications 1 0 1 "2nd observer removed" \
- detach_second_observer
-
- # Remove first observer.
- test_notifications 0 0 1 "1st observer removed" \
- detach_first_observer
-
- # Remove last observer.
- test_notifications 0 0 0 "3rd observer removed" \
- detach_third_observer
-
- # Go back to 3 observers, and remove them in a different order...
- test_notifications 1 1 1 "three observers added" \
- attach_first_observer \
- attach_second_observer \
- attach_third_observer
-
- # Remove the third observer.
- test_notifications 1 1 0 "third observer removed" \
- detach_third_observer
-
- # Remove the second observer.
- test_notifications 1 0 0 "second observer removed" \
- detach_second_observer
-
- # Remove the first observer, no more observers.
- test_notifications 0 0 0 "first observer removed" \
- detach_first_observer
-
- return 0
-}
-
-do_self_tests captured_main test_observer