Lines Matching full:warnings

2 use warnings;
6 our @warnings;
8     $SIG{'__WARN__'} = sub { push @warnings, @_ };
18     @warnings = ();
21     cmp_ok(scalar(@warnings),'==',1,'odd count');
22     cmp_ok(substr($warnings[0],0,length($fail_odd)),'eq',$fail_odd,'odd  msg');
24     @warnings = ();
26     cmp_ok(scalar(@warnings),'==',1,'scalar count');
27     cmp_ok(substr($warnings[0],0,length($fail_odd)),'eq',$fail_odd,'scalar msg');
29     @warnings = ();
31     cmp_ok(scalar(@warnings),'==',2,'odd hashref count');
32     cmp_ok(substr($warnings[0],0,length($fail_odd_anon)),'eq',$fail_odd_anon,'odd hashref msg 1');
33     cmp_ok(substr($warnings[1],0,length($fail_ref)),'eq',$fail_ref,'odd hashref msg 2');
35     @warnings = ();
37     cmp_ok(scalar(@warnings),'==',1,'arrayref count');
38     cmp_ok(substr($warnings[0],0,length($fail_ref)),'eq',$fail_ref,'arrayref msg');
40     @warnings = ();
42     cmp_ok(scalar(@warnings),'==',1,'coderef count');
43     cmp_ok(substr($warnings[0],0,length($fail_odd)),'eq',$fail_odd,'coderef msg');
45     @warnings = ();
47     cmp_ok(scalar(@warnings),'==',0,'hashref assign');