143 lines
4.9 KiB
Text
143 lines
4.9 KiB
Text
# Copyright 2003-2014 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
|