Move the locale/strict/warnings helper files back
[p5sagit/p5-mst-13.2.git] / t / lib / warnings / mg
1   mg.c  AOK
2
3   No such signal: SIG%s
4     $SIG{FRED} = sub {}
5
6   SIG%s handler \"%s\" not defined.
7     $SIG{"INT"} = "ok3"; kill "INT",$$;
8
9   Mandatory Warnings TODO
10   ------------------
11   Can't break at that line      [magic_setdbline]
12
13 __END__
14 # mg.c
15 use warnings 'signal' ;
16 $SIG{FRED} = sub {};
17 EXPECT
18 No such signal: SIGFRED at - line 3.
19 ########
20 # mg.c
21 no warnings 'signal' ;
22 $SIG{FRED} = sub {};
23 EXPECT
24
25 ########
26 # mg.c
27 use warnings 'signal' ;
28 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
29     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
30 }
31 $|=1;
32 $SIG{"INT"} = "fred"; kill "INT",$$;
33 EXPECT
34 SIGINT handler "fred" not defined.
35 ########
36 # mg.c
37 no warnings 'signal' ;
38 if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
39     print "SKIPPED\n# win32, can't kill() to raise()\n"; exit;
40 }
41 $|=1;
42 $SIG{"INT"} = "fred"; kill "INT",$$;
43 EXPECT
44