# WAD debugging module for Tcl.  This should be executed with wish

load ./debug[info sharedlibextension]

message .t -text "This program tests various program faults. Note: Not all of these errors can be gracefully handled."

button .b1 -text "Segmentation fault" -command "seg_crash" 
button .b2 -text "Bus error (not on Linux)" -command "bus_crash"
button .b3 -text "Abort" -command "abort_crash -1"
button .b4 -text "Math" -command "math_crash 3 0"
button .b5 -text "Blow Heap" -command "blowheap_crash"
button .b6 -text "Buffer overflow" -command "overflow_crash"
button .q -text "Quit" -command "exit"

pack .t -fill x

pack .b1 -fill x
pack .b2 -fill x
pack .b3 -fill x
pack .b4 -fill x
pack .b5 -fill x
pack .b6 -fill x
pack .q -fill x