diff options
Diffstat (limited to 'gdb/testsuite/gdb.gdb/observer.exp')
| -rw-r--r-- | gdb/testsuite/gdb.gdb/observer.exp | 143 |
1 files changed, 0 insertions, 143 deletions
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 |