]> git.vpit.fr Git - perl/modules/Scope-Upper.git/blob - t/56-unwind-context.t
Require Module::ExtractUse 0.24 for the Kwalitee test
[perl/modules/Scope-Upper.git] / t / 56-unwind-context.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 33;
7
8 use Scope::Upper qw<unwind SUB>;
9
10 my ($res, @res);
11
12 # --- Void to void ------------------------------------------------------------
13
14 sub {
15  $res = 1;
16  unwind(qw<a b c> => SUB);
17  $res = 0;
18 }->(0);
19 ok $res, 'unwind in void context at sub to void';
20
21 sub {
22  $res = 1;
23  eval {
24   unwind(qw<d e f> => SUB);
25  };
26  $res = 0;
27 }->(0);
28 ok $res, 'unwind in void context at sub across eval to void';
29
30 sub {
31  $res = 1;
32  for (1 .. 5) {
33   unwind qw<g h i> => SUB;
34  }
35  $res = 0;
36 }->(0);
37 ok $res, 'unwind in void context at sub across loop to void';
38
39 # --- Void to scalar ----------------------------------------------------------
40
41 $res = sub {
42  unwind(qw<a b c> => SUB);
43  return 'XXX';
44 }->(0);
45 is $res, 'c', 'unwind in void context at sub to scalar';
46
47 $res = sub {
48  eval {
49   unwind qw<d e f> => SUB;
50  };
51  return 'XXX';
52 }->(0);
53 is $res, 'f', 'unwind in void context at sub across eval to scalar';
54
55 $res = sub {
56  for (1 .. 5) {
57   unwind qw<g h i> => SUB;
58  }
59 }->(0);
60 is $res, 'i', 'unwind in void context at sub across loop to scalar';
61
62 $res = sub {
63  for (6, unwind qw<j k l> => SUB) {
64   $res = 'NO';
65  }
66  return 'XXX';
67 }->(0);
68 is $res, 'l', 'unwind in void context at sub across loop iterator to scalar';
69
70 # --- Void to list ------------------------------------------------------------
71
72 @res = sub {
73  unwind qw<a b c> => SUB;
74  return 'XXX';
75 }->(0);
76 is_deeply \@res, [ qw<a b c> ], 'unwind in void context at sub to list';
77
78 @res = sub {
79  eval {
80   unwind qw<d e f> => SUB;
81  };
82  return 'XXX';
83 }->(0);
84 is_deeply \@res, [ qw<d e f> ], 'unwind in void context at sub across eval to list';
85
86 @res = sub {
87  for (1 .. 5) {
88   unwind qw<g h i> => SUB;
89  }
90 }->(0);
91 is_deeply \@res, [ qw<g h i> ], 'unwind in void context at sub across loop to list';
92
93 # --- Scalar to void ----------------------------------------------------------
94
95 sub {
96  $res = 1;
97  my $temp = unwind(qw<a b c> => SUB);
98  $res = 0;
99 }->(0);
100 ok $res, 'unwind in scalar context at sub to void';
101
102 sub {
103  $res = 1;
104  my $temp = eval {
105   unwind(qw<d e f> => SUB);
106  };
107  $res = 0;
108 }->(0);
109 ok $res, 'unwind in scalar context at sub across eval to void';
110
111 sub {
112  $res = 1;
113  for (1 .. 5) {
114   my $temp = (unwind qw<g h i> => SUB);
115  }
116  $res = 0;
117 }->(0);
118 ok $res, 'unwind in scalar context at sub across loop to void';
119
120 sub {
121  $res = 1;
122  if (unwind qw<m n o> => SUB) {
123   $res = undef;
124  }
125  $res = 0;
126 }->(0);
127 ok $res, 'unwind in scalar context at sub across test to void';
128
129 # --- Scalar to scalar --------------------------------------------------------
130
131 $res = sub {
132  1, unwind(qw<a b c> => SUB);
133 }->(0);
134 is $res, 'c', 'unwind in scalar context at sub to scalar';
135
136 $res = sub {
137  eval {
138   8, unwind qw<d e f> => SUB;
139  };
140 }->(0);
141 is $res, 'f', 'unwind in scalar context at sub across eval to scalar';
142
143 $res = sub {
144  if (unwind qw<m n o> => SUB) {
145   return 'XXX';
146  }
147 }->(0);
148 is $res, 'o', 'unwind in scalar context at sub across test to scalar';
149
150 # --- Scalar to list ----------------------------------------------------------
151
152 @res = sub {
153  if (unwind qw<m n o> => SUB) {
154   return 'XXX';
155  }
156 }->(0);
157 is_deeply \@res, [ qw<m n o> ], 'unwind in scalar context at sub across test to list';
158
159 # --- List to void ------------------------------------------------------------
160
161 sub {
162  $res = 1;
163  my @temp = unwind(qw<a b c> => SUB);
164  $res = 0;
165 }->(0);
166 ok $res, 'unwind in list context at sub to void';
167
168 sub {
169  $res = 1;
170  my @temp = eval {
171   unwind(qw<d e f> => SUB);
172  };
173  $res = 0;
174 }->(0);
175 ok $res, 'unwind in list context at sub across eval to void';
176
177 sub {
178  $res = 1;
179  for (1 .. 5) {
180   my @temp = (unwind qw<g h i> => SUB);
181  }
182  $res = 0;
183 }->(0);
184 ok $res, 'unwind in list context at sub across loop to void';
185
186 sub {
187  $res = 1;
188  for (6, unwind qw<j k l> => SUB) {
189   $res = undef;
190  }
191  $res = 0;
192 }->(0);
193 ok $res, 'unwind in list context at sub across test to void';
194
195 # --- List to scalar ----------------------------------------------------------
196
197 $res = sub {
198  my @temp = (1, unwind(qw<a b c> => SUB));
199  return 'XXX';
200 }->(0);
201 is $res, 'c', 'unwind in list context at sub to scalar';
202
203 $res = sub {
204  my @temp = eval {
205   8, unwind qw<d e f> => SUB;
206  };
207  return 'XXX';
208 }->(0);
209 is $res, 'f', 'unwind in list context at sub across eval to scalar';
210
211 $res = sub {
212  for (1 .. 5) {
213   my @temp = (7, unwind qw<g h i> => SUB);
214  }
215  return 'XXX';
216 }->(0);
217 is $res, 'i', 'unwind in list context at sub across loop to scalar';
218
219 $res = sub {
220  for (6, unwind qw<j k l> => SUB) {
221   return 'XXX';
222  }
223 }->(0);
224 is $res, 'l', 'unwind in list context at sub across loop iterator to scalar';
225
226 # --- List to list ------------------------------------------------------------
227
228 @res = sub {
229  2, unwind qw<a b c> => SUB;
230 }->(0);
231 is_deeply \@res, [ qw<a b c> ], 'unwind in list context at sub to list';
232
233 @res = sub {
234  eval {
235   8, unwind qw<d e f> => SUB;
236  };
237 }->(0);
238 is_deeply \@res, [ qw<d e f> ], 'unwind in list context at sub across eval to list';
239
240 @res = sub {
241  for (6, unwind qw<j k l> => SUB) {
242   return 'XXX';
243  }
244 }->(0);
245 is_deeply \@res, [ qw<j k l> ], 'unwind in list context at sub across loop iterator to list';
246
247 # --- Prototypes --------------------------------------------------------------
248
249 sub pie { 7, unwind qw<pie good>, $_[0] => SUB }
250
251 sub wlist (@) { return @_ }
252
253 $res = wlist pie 1;
254 is $res, 3, 'unwind to list prototype to scalar';
255
256 @res = wlist pie 2;
257 is_deeply \@res, [ qw<pie good 2> ], 'unwind to list prototype to list';
258
259 sub wscalar ($$) { return @_ }
260
261 $res = wscalar pie(6), pie(7);
262 is $res, 2, 'unwind to scalar prototype to scalar';
263
264 @res = wscalar pie(8), pie(9);
265 is_deeply \@res, [ 8, 9 ], 'unwind to scalar prototype to list';
266