| # Copyright 2003-2016 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 |