[p5sagit/p5-mst-13.2.git] / t / pragma / warn / 9enabled

Check warnings::enabled & warnings::warn

__END__

--FILE-- abc.pm
package abc ;
use warnings "io" ;
print "ok1\n" if ! warnings::enabled('all') ;
print "ok2\n" if ! warnings::enabled("io") ;
1;
--FILE-- 
no warnings;
use abc ;
EXPECT
ok1
ok2
########

--FILE-- abc.pm
package abc ;
no warnings ;
print "ok1\n" if !warnings::enabled('all') ;
print "ok2\n" if warnings::enabled("syntax") ;
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
EXPECT
ok1
ok2
########

--FILE-- abc.pm
package abc ;
use warnings 'syntax' ;
print "ok1\n" if   warnings::enabled('io') ;
print "ok2\n" if ! warnings::enabled("syntax") ;
1;
--FILE-- 
use warnings 'io' ;
use abc ;
EXPECT
ok1
ok2
########

--FILE-- abc
no warnings ;
print "ok1\n" if !warnings::enabled('all') ;
print "ok2\n" if warnings::enabled("syntax") ;
1;
--FILE-- 
use warnings 'syntax' ;
require "abc" ;
EXPECT
ok1
ok2
########

--FILE-- abc
use warnings 'syntax' ;
print "ok1\n" if ! warnings::enabled('all') ;
print "ok2\n" if ! warnings::enabled("syntax") ;
print "ok3\n" if   warnings::enabled("io") ;
1;
--FILE-- 
use warnings 'io' ;
require "abc" ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
no warnings ;
sub check {
  print "ok1\n" if !warnings::enabled('all') ;
  print "ok2\n" if warnings::enabled("syntax") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
abc::check() ;
EXPECT
ok1
ok2
########

--FILE-- abc.pm
package abc ;
use warnings 'io' ;
sub check {
  print "ok1\n" if ! warnings::enabled('all') ;
  print "ok2\n" if   warnings::enabled("syntax") ;
  print "ok3\n" if ! warnings::enabled("io") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
abc::check() ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc
package abc ;
no warnings ;
sub check {
  print "ok1\n" if !warnings::enabled('all') ;
  print "ok2\n" if warnings::enabled("syntax") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
require "abc" ;
abc::check() ;
EXPECT
ok1
ok2
########

--FILE-- abc
package abc ;
use warnings 'io' ;
sub check {
  print "ok1\n" if ! warnings::enabled('all') ;
  print "ok2\n" if   warnings::enabled("syntax") ;
  print "ok3\n" if ! warnings::enabled("io") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
require "abc" ;
abc::check() ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
use warnings "io" ;
print "ok1\n" if ! warnings::enabled('all') ;
print "ok2\n" if ! warnings::enabled("io") ;
1;
--FILE-- def.pm
no warnings;
use abc ;
1;
--FILE-- 
use warnings;
use def ;
EXPECT
ok1
ok2
########

--FILE-- abc.pm
package abc ;
no warnings ;
print "ok1\n" if ! warnings::enabled('all') ;
print "ok2\n" if warnings::enabled("syntax") ;
print "ok3\n" if !warnings::enabled("io") ;
1;
--FILE-- def.pm
use warnings 'syntax' ;
print "ok4\n" if !warnings::enabled('all') ;
print "ok5\n" if warnings::enabled("io") ;
use abc ;
1;
--FILE--
use warnings 'io' ;
use def ;
EXPECT
ok1
ok2
ok3
ok4
ok5
########

--FILE-- abc.pm
package abc ;
no warnings ;
sub check {
  print "ok1\n" if !warnings::enabled('all') ;
  print "ok2\n" if warnings::enabled("syntax") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
eval { abc::check() ; };
print $@ ;
EXPECT
ok1
ok2
########

--FILE-- abc.pm
package abc ;
use warnings 'io' ;
sub check {
  print "ok1\n" if ! warnings::enabled('all') ;
  print "ok2\n" if   warnings::enabled("syntax") ;
  print "ok3\n" if ! warnings::enabled("io") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
eval { abc::check() ; } ;
print $@ ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc
package abc ;
no warnings ;
sub check {
  print "ok1\n" if !warnings::enabled('all') ;
  print "ok2\n" if warnings::enabled("syntax") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
require "abc" ;
eval { abc::check() ; } ;
print $@ ;
EXPECT
ok1
ok2
########

--FILE-- abc
package abc ;
use warnings 'io' ;
sub check {
  print "ok1\n" if !warnings::enabled('all') ;
  print "ok2\n" if warnings::enabled("syntax") ;
  print "ok3\n" if warnings::enabled("io") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
require "abc" ;
eval { use warnings 'io' ; abc::check() ; };
abc::check() ; 
print $@ ;
EXPECT
ok1
ok2
ok3
ok1
ok2
########

--FILE-- abc.pm
package abc ;
use warnings 'io' ;
sub check {
  print "ok1\n" if ! warnings::enabled('all') ;
  print "ok2\n" if  warnings::enabled("syntax") ;
  print "ok3\n" if ! warnings::enabled("io") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
sub fred { abc::check() }
fred() ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
use warnings 'io' ;
sub check {
  print "ok1\n" if  ! warnings::enabled('all') ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
sub fred { no warnings ; abc::check() }
fred() ;
EXPECT
ok1
########

--FILE-- abc.pm
package abc ;
use warnings 'misc' ;
sub check {
  print "ok1\n" if  ! warnings::enabled('all') ;
  print "ok2\n" if  warnings::enabled("syntax") ;
  print "ok3\n" if  warnings::enabled("io") ;
  print "ok4\n" if  ! warnings::enabled("misc") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
sub fred { use warnings 'io'  ; abc::check() }
fred() ;
EXPECT
ok1
ok2
ok3
ok4
########

# check warnings::warn
use warnings ;
eval { warnings::warn() } ;
print $@ ;
eval { warnings::warn("fred", "joe") } ;
print $@ ;
EXPECT
Usage: warnings::warn([category,] 'message') at - line 4
unknown warnings category 'fred' at - line 6
	eval {...} called at - line 6
########

--FILE-- abc.pm
package abc ;
use warnings 'misc' ;
sub check { warnings::warn("io", "hello") }
1;
--FILE--
use warnings "io" ;
use abc;
abc::check() ;
EXPECT
hello at - line 3
########

--FILE-- abc.pm
package abc ;
use warnings 'misc' ;
sub check { warnings::warn("misc", "hello") }
1;
--FILE--
use warnings "io" ;
use abc;
abc::check() ;
EXPECT
hello at - line 3
########

--FILE-- abc.pm
package abc ;
use warnings 'misc' ;
sub check { warnings::warn("io", "hello") }
1;
--FILE--
use warnings qw( FATAL deprecated ) ;
use abc;
eval { abc::check() ; } ;
print "[[$@]]\n";
EXPECT
hello at - line 3
[[]]
########

--FILE-- abc.pm
package abc ;
use warnings 'misc' ;
sub check { warnings::warn("io", "hello") }
1;
--FILE--
use warnings qw( FATAL io ) ;
use abc;
eval { abc::check() ; } ;
print "[[$@]]\n";
EXPECT
[[hello at - line 3
]]
########
-W
--FILE-- abc.pm
package abc ;
use warnings "io" ;
print "ok1\n" if warnings::enabled("io") ;
print "ok2\n" if warnings::enabled("all") ;
1;
--FILE-- 
no warnings;
use abc ;
EXPECT
ok1
ok2
########
-X
--FILE-- abc.pm
package abc ;
use warnings "io" ;
print "ok1\n" if !warnings::enabled("io") ;
print "ok2\n" if !warnings::enabled("all") ;
1;
--FILE-- 
use warnings;
use abc ;
EXPECT
ok1
ok2
########

--FILE-- abc.pm
package abc ;
no warnings ;
sub check {
  print "ok\n" if ! warnings::enabled() ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
abc::check() ;
EXPECT
package 'abc' not registered for warnings at - line 3
########

--FILE-- abc.pm
package abc ;
use warnings 'io' ;
use warnings::register ;
sub check {
  print "ok1\n" if  warnings::enabled ;
  print "ok2\n" if  warnings::enabled("syntax") ;
  print "ok3\n" if !warnings::enabled("io") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
use warnings 'abc' ;
abc::check() ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
use warnings 'io' ;
use warnings::register ;
sub check {
  print "ok1\n" if !warnings::enabled ;
  print "ok2\n" if  warnings::enabled("syntax") ;
  print "ok3\n" if !warnings::enabled("io") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
abc::check() ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
no warnings ;
use warnings::register ;
sub check {
  print "ok1\n" if warnings::enabled ;
  print "ok2\n" if warnings::enabled("syntax") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
use warnings 'abc' ;
eval { abc::check() ; };
print $@ ;
EXPECT
ok1
ok2
########

--FILE-- abc.pm
package abc ;
use warnings 'io' ;
use warnings::register ;
sub check {
  print "ok1\n" if !warnings::enabled ;
  print "ok2\n" if  warnings::enabled("syntax") ;
  print "ok3\n" if !warnings::enabled("io") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
eval { abc::check() ; } ;
print $@ ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
use warnings 'io' ;
use warnings::register ;
sub check {
  print "ok1\n" if  warnings::enabled ;
  print "ok2\n" if  warnings::enabled("syntax") ;
  print "ok3\n" if !warnings::enabled("io") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
use warnings 'abc' ;
sub fred { abc::check() }
fred() ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
use warnings 'io' ;
use warnings::register ;
sub check {
  print "ok1\n" if  ! warnings::enabled ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
sub fred { no warnings ; abc::check() }
fred() ;
EXPECT
ok1
########

--FILE-- abc.pm
package abc ;
use warnings 'misc' ;
use warnings::register;
sub check {
  print "ok1\n" if  warnings::enabled ;
  print "ok2\n" if  warnings::enabled("syntax") ;
  print "ok3\n" if  warnings::enabled("io") ;
  print "ok4\n" if  ! warnings::enabled("misc") ;
}
1;
--FILE-- 
use warnings 'syntax' ;
use abc ;
use warnings 'abc' ;
sub fred { use warnings 'io'  ; abc::check() }
fred() ;
EXPECT
ok1
ok2
ok3
ok4
########

--FILE-- abc.pm
package abc ;
use warnings 'misc' ;
use warnings::register;
sub check { warnings::warn("hello") }
1;
--FILE--
use abc;
use warnings "abc" ;
abc::check() ;
EXPECT
hello at - line 3
########

--FILE-- abc.pm
package abc ;
use warnings::register;
sub check { warnings::warn("hello") }
1;
--FILE--
use abc;
abc::check() ;
EXPECT
hello at - line 2
########

--FILE-- abc.pm
package abc ;
use warnings::register ;
sub check { warnings::warn("hello") }
1;
--FILE--
use abc;
use warnings qw( FATAL deprecated ) ;
eval { abc::check() ; } ;
print "[[$@]]\n";
EXPECT
hello at - line 3
[[]]
########

--FILE-- abc.pm
package abc ;
use warnings::register ;
sub check { warnings::warn("hello") }
1;
--FILE--
use abc;
use warnings qw( FATAL abc ) ;
eval { abc::check() ; } ;
print "[[$@]]\n";
EXPECT
[[hello at - line 3
]]
########
-W
--FILE-- abc.pm
package abc ;
use warnings "io" ;
use warnings::register ;
sub check { 
  print "ok1\n" if warnings::enabled() ;
  print "ok2\n" if warnings::enabled("io") ;
  print "ok3\n" if warnings::enabled("all") ;
}
1;
--FILE-- 
no warnings;
use abc ;
abc::check() ;
EXPECT
ok1
ok2
ok3
########
-X
--FILE-- abc.pm
package abc ;
use warnings "io" ;
use warnings::register ;
sub check { 
  print "ok1\n" if !warnings::enabled() ;
  print "ok2\n" if !warnings::enabled("io") ;
  print "ok3\n" if !warnings::enabled("all") ;
}
1;
--FILE-- 
no warnings;
use abc ;
abc::check() ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
use warnings "io" ;
use warnings::register ;
sub check { 
  print "ok1\n" if warnings::enabled() ;
  print "ok2\n" if warnings::enabled("io") ;
  print "ok3\n" if warnings::enabled("all") ;
}
1;
--FILE-- 
use warnings 'all';
use abc ;
abc::check() ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
use warnings "io" ;
use warnings::register ;
sub check { 
  print "ok1\n" if !warnings::enabled() ;
  print "ok2\n" if !warnings::enabled("io") ;
  print "ok3\n" if !warnings::enabled("all") ;
}
1;
--FILE-- 
use abc ;
no warnings ;
abc::check() ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
use warnings "io" ;
use warnings::register ;
sub check { 
  print "ok1\n" if !warnings::enabled() ;
  print "ok2\n" if !warnings::enabled("io") ;
  print "ok3\n" if !warnings::enabled("all") ;
}
1;
--FILE-- 
use abc ;
use warnings 'abc';
no warnings ;
abc::check() ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
use warnings "io" ;
use warnings::register ;
sub check { 
  print "abc self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;
  print "abc def"  . (warnings::enabled('def') ? "" : " not") . " enabled\n" ;
  print "abc all"  . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;
}
1;
--FILE-- def.pm
package def ;
use warnings "io" ;
use warnings::register ;
sub check { 
  print "def self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;
  print "def abc"  . (warnings::enabled('abc') ? "" : " not") . " enabled\n" ;
  print "def all"  . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;
}
1;
--FILE-- 
use abc ;
use def ;
use warnings 'abc';
abc::check() ;
def::check() ;
no warnings 'abc'  ;
use warnings 'def'  ;
abc::check() ;
def::check() ;
use warnings 'abc'  ;
use warnings 'def'  ;
abc::check() ;
def::check() ;
no warnings 'abc'  ;
no warnings 'def'  ;
abc::check() ;
def::check() ;
use warnings;
abc::check() ;
def::check() ;
no warnings 'abc' ;
abc::check() ;
def::check() ;
EXPECT
abc self enabled
abc def not enabled
abc all not enabled
def self not enabled
def abc enabled
def all not enabled
abc self not enabled
abc def enabled
abc all not enabled
def self enabled
def abc not enabled
def all not enabled
abc self enabled
abc def enabled
abc all not enabled
def self enabled
def abc enabled
def all not enabled
abc self not enabled
abc def not enabled
abc all not enabled
def self not enabled
def abc not enabled
def all not enabled
abc self enabled
abc def enabled
abc all enabled
def self enabled
def abc enabled
def all enabled
abc self not enabled
abc def enabled
abc all not enabled
def self enabled
def abc not enabled
def all not enabled
########
-w
--FILE-- abc.pm
package abc ;
no warnings ;
use warnings::register ;
sub check { 
  print "ok1\n" if warnings::enabled() ;
  print "ok2\n" if warnings::enabled("io") ;
  print "ok3\n" if warnings::enabled("all") ;
}
1;
--FILE-- 
use abc ;
abc::check() ;
EXPECT
ok1
ok2
ok3
########
-w
--FILE-- abc.pm
package abc ;
no warnings ;
use warnings::register ;
sub check { 
  print "ok1\n" if !warnings::enabled() ;
  print "ok2\n" if !warnings::enabled("io") ;
  print "ok3\n" if !warnings::enabled("all") ;
}
1;
--FILE-- 
use abc ;
use warnings 'abc';
no warnings ;
abc::check() ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
no warnings ;
use warnings::register ;
sub check { 
  print "ok1\n" if !warnings::enabled() ;
  print "ok2\n" if !warnings::enabled("io") ;
  print "ok3\n" if !warnings::enabled("all") ;
}
1;
--FILE-- 
use abc ;
use warnings 'abc';
no warnings ;
BEGIN { $^W = 1 ; }
abc::check() ;
EXPECT
ok1
ok2
ok3
########

--FILE-- abc.pm
package abc ;
no warnings ;
use warnings::register ;
sub check { 
  print "ok1\n" if !warnings::enabled() ;
  print "ok2\n" if !warnings::enabled("io") ;
  print "ok3\n" if !warnings::enabled("all") ;
}
1;
--FILE-- 
use abc ;
use warnings 'abc';
no warnings ;
$^W = 1 ;
abc::check() ;
EXPECT
ok1
ok2
ok3
Commit	Line	Data
8d93267c	1	Check warnings::enabled & warnings::warn
	2
	3	__END__
	4
	5	--FILE-- abc.pm
	6	package abc ;
	7	use warnings "io" ;
d3a7d8c7	8	print "ok1\n" if ! warnings::enabled('all') ;
8d93267c	9	print "ok2\n" if ! warnings::enabled("io") ;
	10	1;
	11	--FILE--
	12	no warnings;
	13	use abc ;
	14	EXPECT
	15	ok1
	16	ok2
	17	########
	18
	19	--FILE-- abc.pm
	20	package abc ;
	21	no warnings ;
d3a7d8c7	22	print "ok1\n" if !warnings::enabled('all') ;
8d93267c	23	print "ok2\n" if warnings::enabled("syntax") ;
	24	1;
	25	--FILE--
	26	use warnings 'syntax' ;
	27	use abc ;
	28	EXPECT
	29	ok1
	30	ok2
	31	########
	32
	33	--FILE-- abc.pm
	34	package abc ;
	35	use warnings 'syntax' ;
d3a7d8c7	36	print "ok1\n" if warnings::enabled('io') ;
8d93267c	37	print "ok2\n" if ! warnings::enabled("syntax") ;
	38	1;
	39	--FILE--
	40	use warnings 'io' ;
	41	use abc ;
	42	EXPECT
	43	ok1
	44	ok2
	45	########
	46
	47	--FILE-- abc
	48	no warnings ;
d3a7d8c7	49	print "ok1\n" if !warnings::enabled('all') ;
8d93267c	50	print "ok2\n" if warnings::enabled("syntax") ;
	51	1;
	52	--FILE--
	53	use warnings 'syntax' ;
	54	require "abc" ;
	55	EXPECT
	56	ok1
	57	ok2
	58	########
	59
	60	--FILE-- abc
	61	use warnings 'syntax' ;
d3a7d8c7	62	print "ok1\n" if ! warnings::enabled('all') ;
8d93267c	63	print "ok2\n" if ! warnings::enabled("syntax") ;
	64	print "ok3\n" if warnings::enabled("io") ;
	65	1;
	66	--FILE--
	67	use warnings 'io' ;
	68	require "abc" ;
	69	EXPECT
	70	ok1
	71	ok2
	72	ok3
	73	########
	74
	75	--FILE-- abc.pm
	76	package abc ;
	77	no warnings ;
	78	sub check {
d3a7d8c7	79	print "ok1\n" if !warnings::enabled('all') ;
8d93267c	80	print "ok2\n" if warnings::enabled("syntax") ;
	81	}
	82	1;
	83	--FILE--
	84	use warnings 'syntax' ;
	85	use abc ;
	86	abc::check() ;
	87	EXPECT
	88	ok1
	89	ok2
	90	########
	91
	92	--FILE-- abc.pm
	93	package abc ;
	94	use warnings 'io' ;
	95	sub check {
d3a7d8c7	96	print "ok1\n" if ! warnings::enabled('all') ;
d3a7d8c7	97	print "ok2\n" if warnings::enabled("syntax") ;
8d93267c	98	print "ok3\n" if ! warnings::enabled("io") ;
	99	}
	100	1;
	101	--FILE--
	102	use warnings 'syntax' ;
	103	use abc ;
	104	abc::check() ;
	105	EXPECT
	106	ok1
	107	ok2
	108	ok3
	109	########
	110
	111	--FILE-- abc
	112	package abc ;
	113	no warnings ;
	114	sub check {
d3a7d8c7	115	print "ok1\n" if !warnings::enabled('all') ;
8d93267c	116	print "ok2\n" if warnings::enabled("syntax") ;
	117	}
	118	1;
	119	--FILE--
	120	use warnings 'syntax' ;
	121	require "abc" ;
	122	abc::check() ;
	123	EXPECT
	124	ok1
	125	ok2
	126	########
	127
	128	--FILE-- abc
	129	package abc ;
	130	use warnings 'io' ;
	131	sub check {
d3a7d8c7	132	print "ok1\n" if ! warnings::enabled('all') ;
d3a7d8c7	133	print "ok2\n" if warnings::enabled("syntax") ;
8d93267c	134	print "ok3\n" if ! warnings::enabled("io") ;
	135	}
	136	1;
	137	--FILE--
	138	use warnings 'syntax' ;
	139	require "abc" ;
	140	abc::check() ;
	141	EXPECT
	142	ok1
	143	ok2
	144	ok3
	145	########
	146
	147	--FILE-- abc.pm
	148	package abc ;
	149	use warnings "io" ;
d3a7d8c7	150	print "ok1\n" if ! warnings::enabled('all') ;
8d93267c	151	print "ok2\n" if ! warnings::enabled("io") ;
	152	1;
	153	--FILE-- def.pm
	154	no warnings;
	155	use abc ;
	156	1;
	157	--FILE--
	158	use warnings;
	159	use def ;
	160	EXPECT
	161	ok1
	162	ok2
	163	########
	164
	165	--FILE-- abc.pm
	166	package abc ;
	167	no warnings ;
d3a7d8c7	168	print "ok1\n" if ! warnings::enabled('all') ;
8d93267c	169	print "ok2\n" if warnings::enabled("syntax") ;
	170	print "ok3\n" if !warnings::enabled("io") ;
	171	1;
	172	--FILE-- def.pm
	173	use warnings 'syntax' ;
d3a7d8c7	174	print "ok4\n" if !warnings::enabled('all') ;
8d93267c	175	print "ok5\n" if warnings::enabled("io") ;
	176	use abc ;
	177	1;
	178	--FILE--
	179	use warnings 'io' ;
	180	use def ;
	181	EXPECT
	182	ok1
	183	ok2
	184	ok3
	185	ok4
	186	ok5
	187	########
	188
	189	--FILE-- abc.pm
	190	package abc ;
	191	no warnings ;
	192	sub check {
d3a7d8c7	193	print "ok1\n" if !warnings::enabled('all') ;
8d93267c	194	print "ok2\n" if warnings::enabled("syntax") ;
	195	}
	196	1;
	197	--FILE--
	198	use warnings 'syntax' ;
	199	use abc ;
	200	eval { abc::check() ; };
	201	print $@ ;
	202	EXPECT
	203	ok1
	204	ok2
	205	########
	206
	207	--FILE-- abc.pm
	208	package abc ;
	209	use warnings 'io' ;
	210	sub check {
d3a7d8c7	211	print "ok1\n" if ! warnings::enabled('all') ;
d3a7d8c7	212	print "ok2\n" if warnings::enabled("syntax") ;
8d93267c	213	print "ok3\n" if ! warnings::enabled("io") ;
	214	}
	215	1;
	216	--FILE--
	217	use warnings 'syntax' ;
	218	use abc ;
	219	eval { abc::check() ; } ;
	220	print $@ ;
	221	EXPECT
	222	ok1
	223	ok2
	224	ok3
	225	########
	226
	227	--FILE-- abc
	228	package abc ;
	229	no warnings ;
	230	sub check {
d3a7d8c7	231	print "ok1\n" if !warnings::enabled('all') ;
8d93267c	232	print "ok2\n" if warnings::enabled("syntax") ;
	233	}
	234	1;
	235	--FILE--
	236	use warnings 'syntax' ;
	237	require "abc" ;
	238	eval { abc::check() ; } ;
	239	print $@ ;
	240	EXPECT
	241	ok1
	242	ok2
	243	########
	244
	245	--FILE-- abc
	246	package abc ;
	247	use warnings 'io' ;
	248	sub check {
d3a7d8c7	249	print "ok1\n" if !warnings::enabled('all') ;
8d93267c	250	print "ok2\n" if warnings::enabled("syntax") ;
	251	print "ok3\n" if warnings::enabled("io") ;
	252	}
	253	1;
	254	--FILE--
	255	use warnings 'syntax' ;
	256	require "abc" ;
	257	eval { use warnings 'io' ; abc::check() ; };
	258	abc::check() ;
	259	print $@ ;
	260	EXPECT
	261	ok1
	262	ok2
	263	ok3
	264	ok1
	265	ok2
	266	########
	267
	268	--FILE-- abc.pm
	269	package abc ;
	270	use warnings 'io' ;
	271	sub check {
d3a7d8c7	272	print "ok1\n" if ! warnings::enabled('all') ;
8d93267c	273	print "ok2\n" if warnings::enabled("syntax") ;
	274	print "ok3\n" if ! warnings::enabled("io") ;
	275	}
	276	1;
	277	--FILE--
	278	use warnings 'syntax' ;
	279	use abc ;
	280	sub fred { abc::check() }
	281	fred() ;
	282	EXPECT
	283	ok1
	284	ok2
	285	ok3
	286	########
	287
	288	--FILE-- abc.pm
	289	package abc ;
	290	use warnings 'io' ;
	291	sub check {
d3a7d8c7	292	print "ok1\n" if ! warnings::enabled('all') ;
8d93267c	293	}
	294	1;
	295	--FILE--
	296	use warnings 'syntax' ;
	297	use abc ;
	298	sub fred { no warnings ; abc::check() }
	299	fred() ;
	300	EXPECT
	301	ok1
	302	########
	303
	304	--FILE-- abc.pm
	305	package abc ;
	306	use warnings 'misc' ;
	307	sub check {
d3a7d8c7	308	print "ok1\n" if ! warnings::enabled('all') ;
8d93267c	309	print "ok2\n" if warnings::enabled("syntax") ;
	310	print "ok3\n" if warnings::enabled("io") ;
	311	print "ok4\n" if ! warnings::enabled("misc") ;
	312	}
	313	1;
	314	--FILE--
	315	use warnings 'syntax' ;
	316	use abc ;
	317	sub fred { use warnings 'io' ; abc::check() }
	318	fred() ;
	319	EXPECT
	320	ok1
	321	ok2
	322	ok3
	323	ok4
	324	########
	325
	326	# check warnings::warn
	327	use warnings ;
	328	eval { warnings::warn() } ;
	329	print $@ ;
d3a7d8c7	330	eval { warnings::warn("fred", "joe") } ;
8d93267c	331	print $@ ;
8d93267c	332	EXPECT
d3a7d8c7	333	Usage: warnings::warn([category,] 'message') at - line 4
d3a7d8c7	334	unknown warnings category 'fred' at - line 6
811a4de9	335	eval {...} called at - line 6
8d93267c	336	########
	337
	338	--FILE-- abc.pm
	339	package abc ;
	340	use warnings 'misc' ;
	341	sub check { warnings::warn("io", "hello") }
	342	1;
	343	--FILE--
	344	use warnings "io" ;
	345	use abc;
	346	abc::check() ;
	347	EXPECT
	348	hello at - line 3
	349	########
	350
	351	--FILE-- abc.pm
	352	package abc ;
	353	use warnings 'misc' ;
	354	sub check { warnings::warn("misc", "hello") }
	355	1;
	356	--FILE--
	357	use warnings "io" ;
	358	use abc;
	359	abc::check() ;
	360	EXPECT
	361	hello at - line 3
	362	########
	363
	364	--FILE-- abc.pm
	365	package abc ;
	366	use warnings 'misc' ;
	367	sub check { warnings::warn("io", "hello") }
	368	1;
	369	--FILE--
	370	use warnings qw( FATAL deprecated ) ;
	371	use abc;
	372	eval { abc::check() ; } ;
	373	print "[[$@]]\n";
	374	EXPECT
	375	hello at - line 3
	376	[[]]
	377	########
	378
	379	--FILE-- abc.pm
	380	package abc ;
	381	use warnings 'misc' ;
	382	sub check { warnings::warn("io", "hello") }
	383	1;
	384	--FILE--
	385	use warnings qw( FATAL io ) ;
	386	use abc;
	387	eval { abc::check() ; } ;
	388	print "[[$@]]\n";
	389	EXPECT
	390	[[hello at - line 3
	391	]]
d3a7d8c7	392	########
	393	-W
	394	--FILE-- abc.pm
	395	package abc ;
	396	use warnings "io" ;
	397	print "ok1\n" if warnings::enabled("io") ;
	398	print "ok2\n" if warnings::enabled("all") ;
	399	1;
	400	--FILE--
	401	no warnings;
	402	use abc ;
	403	EXPECT
	404	ok1
	405	ok2
	406	########
	407	-X
	408	--FILE-- abc.pm
	409	package abc ;
	410	use warnings "io" ;
	411	print "ok1\n" if !warnings::enabled("io") ;
	412	print "ok2\n" if !warnings::enabled("all") ;
	413	1;
	414	--FILE--
	415	use warnings;
	416	use abc ;
	417	EXPECT
	418	ok1
	419	ok2
	420	########
	421
	422	--FILE-- abc.pm
	423	package abc ;
	424	no warnings ;
	425	sub check {
	426	print "ok\n" if ! warnings::enabled() ;
	427	}
	428	1;
	429	--FILE--
	430	use warnings 'syntax' ;
	431	use abc ;
	432	abc::check() ;
	433	EXPECT
	434	package 'abc' not registered for warnings at - line 3
	435	########
	436
	437	--FILE-- abc.pm
	438	package abc ;
	439	use warnings 'io' ;
	440	use warnings::register ;
	441	sub check {
	442	print "ok1\n" if warnings::enabled ;
	443	print "ok2\n" if warnings::enabled("syntax") ;
	444	print "ok3\n" if !warnings::enabled("io") ;
	445	}
	446	1;
	447	--FILE--
	448	use warnings 'syntax' ;
	449	use abc ;
	450	use warnings 'abc' ;
	451	abc::check() ;
	452	EXPECT
	453	ok1
	454	ok2
	455	ok3
456	########
457
458	--FILE-- abc.pm
459	package abc ;
460	use warnings 'io' ;
461	use warnings::register ;
462	sub check {
463	print "ok1\n" if !warnings::enabled ;
464	print "ok2\n" if warnings::enabled("syntax") ;
465	print "ok3\n" if !warnings::enabled("io") ;
466	}
467	1;
468	--FILE--
469	use warnings 'syntax' ;
470	use abc ;
471	abc::check() ;
472	EXPECT
473	ok1
474	ok2
475	ok3
476	########
477
478	--FILE-- abc.pm
479	package abc ;
480	no warnings ;
481	use warnings::register ;
482	sub check {
483	print "ok1\n" if warnings::enabled ;
484	print "ok2\n" if warnings::enabled("syntax") ;
485	}
486	1;
487	--FILE--
488	use warnings 'syntax' ;
489	use abc ;
490	use warnings 'abc' ;
491	eval { abc::check() ; };
492	print $@ ;
493	EXPECT
494	ok1
495	ok2
496	########
497
498	--FILE-- abc.pm
499	package abc ;
500	use warnings 'io' ;
501	use warnings::register ;
502	sub check {
503	print "ok1\n" if !warnings::enabled ;
504	print "ok2\n" if warnings::enabled("syntax") ;
505	print "ok3\n" if !warnings::enabled("io") ;
506	}
507	1;
508	--FILE--
509	use warnings 'syntax' ;
510	use abc ;
511	eval { abc::check() ; } ;
512	print $@ ;
513	EXPECT
514	ok1
515	ok2
516	ok3
517	########
518
519	--FILE-- abc.pm
520	package abc ;
521	use warnings 'io' ;
522	use warnings::register ;
523	sub check {
524	print "ok1\n" if warnings::enabled ;
525	print "ok2\n" if warnings::enabled("syntax") ;
526	print "ok3\n" if !warnings::enabled("io") ;
527	}
528	1;
529	--FILE--
530	use warnings 'syntax' ;
531	use abc ;
532	use warnings 'abc' ;
533	sub fred { abc::check() }
534	fred() ;
535	EXPECT
536	ok1
537	ok2
538	ok3
539	########
540
541	--FILE-- abc.pm
542	package abc ;
543	use warnings 'io' ;
544	use warnings::register ;
545	sub check {
546	print "ok1\n" if ! warnings::enabled ;
547	}
548	1;
549	--FILE--
550	use warnings 'syntax' ;
551	use abc ;
552	sub fred { no warnings ; abc::check() }
553	fred() ;
554	EXPECT
555	ok1
556	########
557
558	--FILE-- abc.pm
559	package abc ;
560	use warnings 'misc' ;
561	use warnings::register;
562	sub check {
563	print "ok1\n" if warnings::enabled ;
564	print "ok2\n" if warnings::enabled("syntax") ;
565	print "ok3\n" if warnings::enabled("io") ;
566	print "ok4\n" if ! warnings::enabled("misc") ;
567	}
568	1;
569	--FILE--
570	use warnings 'syntax' ;
571	use abc ;
572	use warnings 'abc' ;
573	sub fred { use warnings 'io' ; abc::check() }
574	fred() ;
575	EXPECT
576	ok1
577	ok2
578	ok3
579	ok4
580	########
581
582	--FILE-- abc.pm
583	package abc ;
584	use warnings 'misc' ;
585	use warnings::register;
586	sub check { warnings::warn("hello") }
587	1;
588	--FILE--
589	use abc;
590	use warnings "abc" ;
591	abc::check() ;
592	EXPECT
593	hello at - line 3
594	########
595
596	--FILE-- abc.pm
597	package abc ;
598	use warnings::register;
599	sub check { warnings::warn("hello") }
600	1;
601	--FILE--
602	use abc;
603	abc::check() ;
604	EXPECT
605	hello at - line 2
606	########
607
608	--FILE-- abc.pm
609	package abc ;
610	use warnings::register ;
611	sub check { warnings::warn("hello") }
612	1;
613	--FILE--
614	use abc;
615	use warnings qw( FATAL deprecated ) ;
616	eval { abc::check() ; } ;
617	print "[[$@]]\n";
618	EXPECT
619	hello at - line 3
620	[[]]
621	########
622
623	--FILE-- abc.pm
624	package abc ;
625	use warnings::register ;
626	sub check { warnings::warn("hello") }
627	1;
628	--FILE--
629	use abc;
630	use warnings qw( FATAL abc ) ;
631	eval { abc::check() ; } ;
632	print "[[$@]]\n";
633	EXPECT
634	[[hello at - line 3
635	]]
636	########
637	-W
638	--FILE-- abc.pm
639	package abc ;
640	use warnings "io" ;
641	use warnings::register ;
642	sub check {
643	print "ok1\n" if warnings::enabled() ;
644	print "ok2\n" if warnings::enabled("io") ;
645	print "ok3\n" if warnings::enabled("all") ;
646	}
647	1;
648	--FILE--
649	no warnings;
650	use abc ;
651	abc::check() ;
652	EXPECT
653	ok1
654	ok2
655	ok3
656	########
657	-X
658	--FILE-- abc.pm
659	package abc ;
660	use warnings "io" ;
661	use warnings::register ;
662	sub check {
663	print "ok1\n" if !warnings::enabled() ;
664	print "ok2\n" if !warnings::enabled("io") ;
665	print "ok3\n" if !warnings::enabled("all") ;
666	}
667	1;
668	--FILE--
669	no warnings;
670	use abc ;
671	abc::check() ;
672	EXPECT
673	ok1
674	ok2
675	ok3
676	########
677
678	--FILE-- abc.pm
679	package abc ;
680	use warnings "io" ;
681	use warnings::register ;
682	sub check {
683	print "ok1\n" if warnings::enabled() ;
684	print "ok2\n" if warnings::enabled("io") ;
685	print "ok3\n" if warnings::enabled("all") ;
686	}
687	1;
688	--FILE--
689	use warnings 'all';
690	use abc ;
691	abc::check() ;
692	EXPECT
693	ok1
694	ok2
695	ok3
696	########
697
698	--FILE-- abc.pm
699	package abc ;
700	use warnings "io" ;
701	use warnings::register ;
702	sub check {
703	print "ok1\n" if !warnings::enabled() ;
704	print "ok2\n" if !warnings::enabled("io") ;
705	print "ok3\n" if !warnings::enabled("all") ;
706	}
707	1;
708	--FILE--
709	use abc ;
710	no warnings ;
711	abc::check() ;
712	EXPECT
713	ok1
714	ok2
715	ok3
716	########
717
718	--FILE-- abc.pm
719	package abc ;
720	use warnings "io" ;
721	use warnings::register ;
722	sub check {
723	print "ok1\n" if !warnings::enabled() ;
724	print "ok2\n" if !warnings::enabled("io") ;
725	print "ok3\n" if !warnings::enabled("all") ;
726	}
727	1;
728	--FILE--
729	use abc ;
730	use warnings 'abc';
731	no warnings ;
732	abc::check() ;
733	EXPECT
734	ok1
735	ok2
736	ok3
737	########
738
739	--FILE-- abc.pm
740	package abc ;
741	use warnings "io" ;
742	use warnings::register ;
743	sub check {
744	print "abc self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;
745	print "abc def" . (warnings::enabled('def') ? "" : " not") . " enabled\n" ;
746	print "abc all" . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;
747	}
748	1;
749	--FILE-- def.pm
750	package def ;
751	use warnings "io" ;
752	use warnings::register ;
753	sub check {
754	print "def self" . (warnings::enabled() ? "" : " not") . " enabled\n" ;
755	print "def abc" . (warnings::enabled('abc') ? "" : " not") . " enabled\n" ;
756	print "def all" . (warnings::enabled('all') ? "" : " not") . " enabled\n" ;
757	}
758	1;
759	--FILE--
760	use abc ;
761	use def ;
762	use warnings 'abc';
763	abc::check() ;
764	def::check() ;
765	no warnings 'abc' ;
766	use warnings 'def' ;
767	abc::check() ;
768	def::check() ;
769	use warnings 'abc' ;
770	use warnings 'def' ;
771	abc::check() ;
772	def::check() ;
773	no warnings 'abc' ;
774	no warnings 'def' ;
775	abc::check() ;
776	def::check() ;
777	use warnings;
778	abc::check() ;
779	def::check() ;
780	no warnings 'abc' ;
781	abc::check() ;
782	def::check() ;
783	EXPECT
784	abc self enabled
785	abc def not enabled
786	abc all not enabled
787	def self not enabled
788	def abc enabled
789	def all not enabled
790	abc self not enabled
791	abc def enabled
792	abc all not enabled
793	def self enabled
794	def abc not enabled
795	def all not enabled
796	abc self enabled
797	abc def enabled
798	abc all not enabled
799	def self enabled
800	def abc enabled
801	def all not enabled
802	abc self not enabled
803	abc def not enabled
804	abc all not enabled
805	def self not enabled
806	def abc not enabled
807	def all not enabled
808	abc self enabled
809	abc def enabled
810	abc all enabled
811	def self enabled
812	def abc enabled
813	def all enabled
814	abc self not enabled
815	abc def enabled
816	abc all not enabled
817	def self enabled
818	def abc not enabled
819	def all not enabled
114bafba	820	########
	821	-w
	822	--FILE-- abc.pm
	823	package abc ;
	824	no warnings ;
	825	use warnings::register ;
	826	sub check {
	827	print "ok1\n" if warnings::enabled() ;
	828	print "ok2\n" if warnings::enabled("io") ;
	829	print "ok3\n" if warnings::enabled("all") ;
	830	}
	831	1;
	832	--FILE--
	833	use abc ;
	834	abc::check() ;
	835	EXPECT
	836	ok1
	837	ok2
	838	ok3
	839	########
	840	-w
	841	--FILE-- abc.pm
	842	package abc ;
	843	no warnings ;
	844	use warnings::register ;
	845	sub check {
	846	print "ok1\n" if !warnings::enabled() ;
	847	print "ok2\n" if !warnings::enabled("io") ;
	848	print "ok3\n" if !warnings::enabled("all") ;
	849	}
	850	1;
	851	--FILE--
	852	use abc ;
	853	use warnings 'abc';
	854	no warnings ;
	855	abc::check() ;
	856	EXPECT
	857	ok1
	858	ok2
	859	ok3
	860	########
	861
	862	--FILE-- abc.pm
	863	package abc ;
	864	no warnings ;
	865	use warnings::register ;
	866	sub check {
	867	print "ok1\n" if !warnings::enabled() ;
	868	print "ok2\n" if !warnings::enabled("io") ;
	869	print "ok3\n" if !warnings::enabled("all") ;
	870	}
	871	1;
	872	--FILE--
	873	use abc ;
	874	use warnings 'abc';
	875	no warnings ;
	876	BEGIN { $^W = 1 ; }
	877	abc::check() ;
	878	EXPECT
	879	ok1
	880	ok2
	881	ok3
	882	########
	883
884	--FILE-- abc.pm
885	package abc ;
886	no warnings ;
887	use warnings::register ;
888	sub check {
889	print "ok1\n" if !warnings::enabled() ;
890	print "ok2\n" if !warnings::enabled("io") ;
891	print "ok3\n" if !warnings::enabled("all") ;
892	}
893	1;
894	--FILE--
895	use abc ;
896	use warnings 'abc';
897	no warnings ;
898	$^W = 1 ;
899	abc::check() ;
900	EXPECT
901	ok1
902	ok2
903	ok3