Perl-Critic-Pulp-99/t/MyTestHelpers.pm

67       MyTestHelpers::diag ("Saw $warning_count warning(s):");
69         MyTestHelpers::diag ($stacktraces);
71         MyTestHelpers::diag('(Devel::StackTrace not available for backtrace)');
73       MyTestHelpers::diag ('Exit code 1 for warnings');
79 sub diag {  subroutine
81     Test::More::diag (@_);
92     MyTestHelpers::diag (Data::Dumper::Dumper ($thing));
94     MyTestHelpers::diag ("Data::Dumper not available");
106     MyTestHelpers::diag ("Keys: ",
113     MyTestHelpers::diag (Devel::FindRef::track($obj, 8));
115     MyTestHelpers::diag ("Devel::FindRef not available -- ", $@);
125   MyTestHelpers::diag ("Test-Weaken leaks $unfreed_count objects");
130     MyTestHelpers::diag ("  unfreed ", $proberef);
133     MyTestHelpers::diag ("search ", $proberef);
147   if (DEBUG) { MyTestHelpers::diag ("main_iterations() ..."); }
153       MyTestHelpers::diag ("main_iterations(): oops, bailed out after $count events/iterations");
157   MyTestHelpers::diag ("main_iterations(): ran $count events/iterations");
183     MyTestHelpers::diag ("Perl-Gtk1    version ",Gtk->VERSION);
186     MyTestHelpers::diag ("Perl-Gtk2    version ",Gtk2->VERSION);
189     MyTestHelpers::diag ("Perl-Glib    version ",Glib->VERSION);
190     MyTestHelpers::diag ("Compiled against Glib version ",
194     MyTestHelpers::diag ("Running on       Glib version ",
200     MyTestHelpers::diag ("Compiled against Gtk version ",
204     MyTestHelpers::diag ("Running on       Gtk version ",
210     MyTestHelpers::diag ("Running on       Gtk version ",
227     MyTestHelpers::diag ("$obj signal handlers connected: $connected");
236   if (DEBUG) { MyTestHelpers::diag ("wait_for_event() $signame on ",$widget); }
241        if (DEBUG) { MyTestHelpers::diag ("wait_for_event()   $signame received"); }
249        MyTestHelpers::diag ("wait_for_event() oops, timeout waiting for $signame on ",$widget);
262     if (DEBUG >= 2) { MyTestHelpers::diag ("wait_for_event()   iteration $count"); }
266   MyTestHelpers::diag ("wait_for_event(): '$signame' ran $count events/iterations\n");
289   MyTestHelpers::diag("");
290   MyTestHelpers::diag("X server info");
291   MyTestHelpers::diag("vendor: ",$X->{'vendor'});
292   MyTestHelpers::diag("release_number: ",$X->{'release_number'});
293   MyTestHelpers::diag("protocol_major_version: ",$X->{'protocol_major_version'});
294   MyTestHelpers::diag("protocol_minor_version: ",$X->{'protocol_minor_version'});
295   MyTestHelpers::diag("byte_order: ",$X->{'byte_order'});
296   MyTestHelpers::diag("num screens: ",scalar(@{$X->{'screens'}}));
297   MyTestHelpers::diag("width_in_pixels:  ",$X->{'width_in_pixels'});
298   MyTestHelpers::diag("height_in_pixels: ",$X->{'height_in_pixels'});
299   MyTestHelpers::diag("width_in_millimeters:  ",$X->{'width_in_millimeters'});
300   MyTestHelpers::diag("height_in_millimeters: ",$X->{'height_in_millimeters'});
302   MyTestHelpers::diag("root_visual: ",$X->{'root_visual'});
304   MyTestHelpers::diag("  depth: ",$visual_info->{'depth'});
305   MyTestHelpers::diag("  class: ",$visual_info->{'class'},
307   MyTestHelpers::diag("  colormap_entries: ",$visual_info->{'colormap_entries'});
308   MyTestHelpers::diag("  bits_per_rgb_value: ",$visual_info->{'bits_per_rgb_value'});
309   MyTestHelpers::diag("  red_mask:   ",sprintf('%#X',$visual_info->{'red_mask'}));
310   MyTestHelpers::diag("  green_mask: ",sprintf('%#X',$visual_info->{'green_mask'}));
311   MyTestHelpers::diag("  blue_mask:  ",sprintf('%#X',$visual_info->{'blue_mask'}));
313   MyTestHelpers::diag("ima"."ge_byte_order: ",$X->{'ima'.'ge_byte_order'},
315   MyTestHelpers::diag("black_pixel: ",sprintf('%#X',$X->{'black_pixel'}));
316   MyTestHelpers::diag("white_pixel: ",sprintf('%#X',$X->{'white_pixel'}));
319       MyTestHelpers::diag("chosen screen: $_");
322   MyTestHelpers::diag("");