← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/ruby1.9/intrepid-updates

« back to all changes in this revision

Viewing changes to bootstraptest/test_flow.rb

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2007-09-04 16:01:17 UTC
  • mfrom: (1.1.8 upstream)
  • Revision ID: james.westby@ubuntu.com-20070904160117-i15zckg2nhxe9fyw
Tags: 1.9.0+20070830-2ubuntu1
* Sync from Debian; remaining changes:
  - Add -g to CFLAGS.
* Fixes build failure on ia64.
* Fixes build failure with gcc-4.2 on lpia.
* Robustify check for target_os, fixing build failure on lpia.
* Set Ubuntu maintainer address.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bootstraptest/test_flow.rb
 
1
assert_equal %q{[1, 2, 4, 5, 6, 7, 8]}, %q{$a = []; begin;  ; $a << 1
 
2
  [1,2].each{; $a << 2
 
3
    break; $a << 3
 
4
  }; $a << 4
 
5
  begin; $a << 5
 
6
  ensure; $a << 6
 
7
  end; $a << 7
 
8
; $a << 8
 
9
; rescue Exception; $a << 99; end; $a}
 
10
assert_equal %q{[1, 2, 3, 5, 6, 7, 8]}, %q{$a = []; begin;  ; $a << 1
 
11
  begin; $a << 2
 
12
    [1,2].each do; $a << 3
 
13
      break; $a << 4
 
14
    end; $a << 5
 
15
  ensure; $a << 6
 
16
  end; $a << 7
 
17
; $a << 8
 
18
; rescue Exception; $a << 99; end; $a}
 
19
assert_equal %q{ok}, %q{
 
20
  ["a"].inject("ng"){|x,y|
 
21
    break :ok
 
22
  }
 
23
}
 
24
assert_equal %q{ok}, %q{
 
25
  unless ''.respond_to? :lines
 
26
    class String
 
27
      def lines
 
28
        self
 
29
      end
 
30
    end
 
31
  end
 
32
  
 
33
  ('a').lines.map{|e|
 
34
    break :ok
 
35
  }
 
36
}
 
37
assert_equal %q{[1, 2, 4, 5]}, %q{$a = []; begin; ; $a << 1
 
38
  ["a"].inject("ng"){|x,y|; $a << 2
 
39
    break :ok; $a << 3
 
40
  }; $a << 4
 
41
; $a << 5
 
42
; rescue Exception; $a << 99; end; $a}
 
43
assert_equal %q{[1, 2, 4, 5]}, %q{$a = []; begin; ; $a << 1
 
44
  ('a'..'b').map{|e|; $a << 2
 
45
    break :ok; $a << 3
 
46
  }; $a << 4
 
47
; $a << 5
 
48
; rescue Exception; $a << 99; end; $a}
 
49
assert_equal %q{[1, 2, 3, 5, 7, 8]}, %q{$a = []; begin;  ; $a << 1
 
50
  [1,2].each do; $a << 2
 
51
    begin; $a << 3
 
52
      break; $a << 4
 
53
    ensure; $a << 5
 
54
    end; $a << 6
 
55
  end; $a << 7
 
56
; $a << 8
 
57
; rescue Exception; $a << 99; end; $a}
 
58
assert_equal %q{[1, 2, 3, 4, 5, 6, 9, 10]}, %q{$a = []; begin; ; $a << 1
 
59
  i=0; $a << 2
 
60
  while i<3; $a << 3
 
61
    i+=1; $a << 4
 
62
    begin; $a << 5
 
63
    ensure; $a << 6
 
64
      break; $a << 7
 
65
    end; $a << 8
 
66
  end; $a << 9
 
67
; $a << 10
 
68
; rescue Exception; $a << 99; end; $a}
 
69
assert_equal %q{[1, 2, 3, 4, 5, 7, 10, 11]}, %q{$a = []; begin; ; $a << 1
 
70
  i=0; $a << 2
 
71
  while i<3; $a << 3
 
72
    i+=1; $a << 4
 
73
    begin; $a << 5
 
74
      raise; $a << 6
 
75
    ensure; $a << 7
 
76
      break; $a << 8
 
77
    end; $a << 9
 
78
  end; $a << 10
 
79
; $a << 11
 
80
; rescue Exception; $a << 99; end; $a}
 
81
assert_equal %q{[1, 2, 3, 4, 5, 7, 10, 11]}, %q{$a = []; begin; ; $a << 1
 
82
  i=0; $a << 2
 
83
  while i<3; $a << 3
 
84
    i+=1; $a << 4
 
85
    begin; $a << 5
 
86
      raise; $a << 6
 
87
    rescue; $a << 7
 
88
      break; $a << 8
 
89
    end; $a << 9
 
90
  end; $a << 10
 
91
; $a << 11
 
92
; rescue Exception; $a << 99; end; $a}
 
93
assert_equal %q{[1, 2, 3, 5, 8, 9]}, %q{$a = []; begin;  ; $a << 1
 
94
  [1,2].each do; $a << 2
 
95
    begin; $a << 3
 
96
      raise StandardError; $a << 4
 
97
    ensure; $a << 5
 
98
      break; $a << 6
 
99
    end; $a << 7
 
100
  end; $a << 8
 
101
; $a << 9
 
102
; rescue Exception; $a << 99; end; $a}
 
103
assert_equal %q{[1, 2, 3, 5, 8, 9]}, %q{$a = []; begin;  ; $a << 1
 
104
  [1,2].each do; $a << 2
 
105
    begin; $a << 3
 
106
      raise StandardError; $a << 4
 
107
    rescue; $a << 5
 
108
      break; $a << 6
 
109
    end; $a << 7
 
110
  end; $a << 8
 
111
; $a << 9
 
112
; rescue Exception; $a << 99; end; $a}
 
113
assert_equal %q{[1, 2, 3, 4, 6, 8, 10, 11]}, %q{$a = []; begin;  ; $a << 1
 
114
  [1,2].each do; $a << 2
 
115
    begin; $a << 3
 
116
      begin; $a << 4
 
117
        break; $a << 5
 
118
      ensure; $a << 6
 
119
      end; $a << 7
 
120
    ensure; $a << 8
 
121
    end; $a << 9
 
122
  end; $a << 10
 
123
; $a << 11
 
124
; rescue Exception; $a << 99; end; $a}
 
125
assert_equal %q{[1, 2, 3, 4, 5, 6, 7, 8, 10, 13, 3, 4, 5, 6, 7, 8, 10, 13, 3, 4, 5, 6, 7, 8, 10, 13, 14, 15]}, %q{$a = []; begin; ; $a << 1
 
126
  i = 0; $a << 2
 
127
  while i<3; $a << 3
 
128
    i+=1; $a << 4
 
129
    j = 0; $a << 5
 
130
    while j<3; $a << 6
 
131
      j+=1; $a << 7
 
132
      begin; $a << 8
 
133
        raise; $a << 9
 
134
      rescue; $a << 10
 
135
        break; $a << 11
 
136
      end; $a << 12
 
137
    end; $a << 13
 
138
  end; $a << 14
 
139
; $a << 15
 
140
; rescue Exception; $a << 99; end; $a}
 
141
assert_equal %q{[1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 15, 3, 4, 5, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 15, 3, 4, 5, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 15, 16, 17]}, %q{$a = []; begin; ; $a << 1
 
142
  i = 0; $a << 2
 
143
  while i<3; $a << 3
 
144
    i+=1; $a << 4
 
145
    j = 0; $a << 5
 
146
    while j<3; $a << 6
 
147
      j+=1; $a << 7
 
148
      1.times{; $a << 8
 
149
        begin; $a << 9
 
150
          raise; $a << 10
 
151
        rescue; $a << 11
 
152
          break; $a << 12
 
153
        end; $a << 13
 
154
      }; $a << 14
 
155
    end; $a << 15
 
156
  end; $a << 16
 
157
; $a << 17
 
158
; rescue Exception; $a << 99; end; $a}
 
159
assert_equal %q{[1, 2, 3, 4, 5, 6, 7, 8, 10, 13, 3, 4, 5, 6, 7, 8, 10, 13, 3, 4, 5, 6, 7, 8, 10, 13, 14, 15]}, %q{$a = []; begin; ; $a << 1
 
160
  i = 0; $a << 2
 
161
  while i<3; $a << 3
 
162
    i+=1; $a << 4
 
163
    j = 0; $a << 5
 
164
    while j<3; $a << 6
 
165
      j+=1; $a << 7
 
166
      begin; $a << 8
 
167
        raise; $a << 9
 
168
      ensure; $a << 10
 
169
        break; $a << 11
 
170
      end; $a << 12
 
171
    end; $a << 13
 
172
  end; $a << 14
 
173
; $a << 15
 
174
; rescue Exception; $a << 99; end; $a}
 
175
assert_equal %q{[1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 15, 3, 4, 5, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 15, 3, 4, 5, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 6, 7, 8, 9, 11, 14, 15, 16, 17]}, %q{$a = []; begin; ; $a << 1
 
176
  i = 0; $a << 2
 
177
  while i<3; $a << 3
 
178
    i+=1; $a << 4
 
179
    j = 0; $a << 5
 
180
    while j<3; $a << 6
 
181
      j+=1; $a << 7
 
182
      1.times{; $a << 8
 
183
        begin; $a << 9
 
184
          raise; $a << 10
 
185
        ensure; $a << 11
 
186
          break; $a << 12
 
187
        end; $a << 13
 
188
      }; $a << 14
 
189
    end; $a << 15
 
190
  end; $a << 16
 
191
; $a << 17
 
192
; rescue Exception; $a << 99; end; $a}
 
193
assert_equal %q{[1, 2, 3, 5, 8, 9]}, %q{$a = []; begin; ; $a << 1
 
194
  while true; $a << 2
 
195
    begin; $a << 3
 
196
      break; $a << 4
 
197
    ensure; $a << 5
 
198
      break; $a << 6
 
199
    end; $a << 7
 
200
  end; $a << 8
 
201
; $a << 9
 
202
; rescue Exception; $a << 99; end; $a}
 
203
assert_equal %q{[1, 2, 3, 5, 99]}, %q{$a = []; begin; ; $a << 1
 
204
  while true; $a << 2
 
205
    begin; $a << 3
 
206
      break; $a << 4
 
207
    ensure; $a << 5
 
208
      raise; $a << 6
 
209
    end; $a << 7
 
210
  end; $a << 8
 
211
; $a << 9
 
212
; rescue Exception; $a << 99; end; $a}
 
213
assert_equal %q{[1, 2, 3, 4, 6, 8, 9, 10, 11]}, %q{$a = []; begin;  ; $a << 1
 
214
  begin; $a << 2
 
215
    [1,2].each do; $a << 3
 
216
      begin; $a << 4
 
217
        break; $a << 5
 
218
      ensure; $a << 6
 
219
      end; $a << 7
 
220
    end; $a << 8
 
221
  ensure; $a << 9
 
222
  end; $a << 10
 
223
; $a << 11
 
224
; rescue Exception; $a << 99; end; $a}
 
225
assert_equal %q{[1, 2, 4, 99]}, %q{$a = []; begin; ; $a << 1
 
226
  begin; $a << 2
 
227
    raise StandardError; $a << 3
 
228
  ensure; $a << 4
 
229
  end; $a << 5
 
230
; $a << 6
 
231
; rescue Exception; $a << 99; end; $a}
 
232
assert_equal %q{[1, 2, 3, 4]}, %q{$a = []; begin;  ; $a << 1
 
233
  begin; $a << 2
 
234
  ensure; $a << 3
 
235
  end ; $a << 4
 
236
; rescue Exception; $a << 99; end; $a}
 
237
assert_equal %q{[1, 2, 3, 5, 99]}, %q{$a = []; begin;  ; $a << 1
 
238
  [1,2].each do; $a << 2
 
239
    begin; $a << 3
 
240
      break; $a << 4
 
241
    ensure; $a << 5
 
242
      raise StandardError; $a << 6
 
243
    end; $a << 7
 
244
  end; $a << 8
 
245
; $a << 9
 
246
; rescue Exception; $a << 99; end; $a}
 
247
assert_equal %q{3}, %q{
 
248
  def m a, b
 
249
    a + b
 
250
  end
 
251
  m(1,
 
252
    while true
 
253
      break 2
 
254
    end
 
255
    )
 
256
}
 
257
assert_equal %q{4}, %q{
 
258
  def m a, b
 
259
    a + b
 
260
  end
 
261
  m(1,
 
262
    (i=0; while i<2
 
263
       i+=1
 
264
       class C
 
265
         next 2
 
266
       end
 
267
     end; 3)
 
268
    )
 
269
}
 
270
assert_equal %q{34}, %q{
 
271
  def m a, b
 
272
    a+b
 
273
  end
 
274
  m(1, 1.times{break 3}) +
 
275
  m(10, (1.times{next 3}; 20))
 
276
}
 
277
assert_equal %q{[1, 2, 3, 6, 7]}, %q{$a = []; begin; ; $a << 1
 
278
  3.times{; $a << 2
 
279
    class C; $a << 3
 
280
      break; $a << 4
 
281
    end; $a << 5
 
282
  }; $a << 6
 
283
; $a << 7
 
284
; rescue Exception; $a << 99; end; $a}
 
285
assert_equal %q{[1, 2, 3, 4, 8, 9]}, %q{$a = []; begin; ; $a << 1
 
286
  3.times{; $a << 2
 
287
    class A; $a << 3
 
288
      class B; $a << 4
 
289
        break; $a << 5
 
290
      end; $a << 6
 
291
    end; $a << 7
 
292
  }; $a << 8
 
293
; $a << 9
 
294
; rescue Exception; $a << 99; end; $a}
 
295
assert_equal %q{[1, 2, 3, 2, 3, 2, 3, 6, 7]}, %q{$a = []; begin; ; $a << 1
 
296
  3.times{; $a << 2
 
297
    class C; $a << 3
 
298
      next; $a << 4
 
299
    end; $a << 5
 
300
  }; $a << 6
 
301
; $a << 7
 
302
; rescue Exception; $a << 99; end; $a}
 
303
assert_equal %q{[1, 2, 3, 4, 2, 3, 4, 2, 3, 4, 8, 9]}, %q{$a = []; begin; ; $a << 1
 
304
  3.times{; $a << 2
 
305
    class C; $a << 3
 
306
      class D; $a << 4
 
307
        next; $a << 5
 
308
      end; $a << 6
 
309
    end; $a << 7
 
310
  }; $a << 8
 
311
; $a << 9
 
312
; rescue Exception; $a << 99; end; $a}
 
313
assert_equal %q{[1, 2, 3, 6, 7]}, %q{$a = []; begin; ; $a << 1
 
314
  while true; $a << 2
 
315
    class C; $a << 3
 
316
      break; $a << 4
 
317
    end; $a << 5
 
318
  end; $a << 6
 
319
; $a << 7
 
320
; rescue Exception; $a << 99; end; $a}
 
321
assert_equal %q{[1, 2, 3, 4, 8, 9]}, %q{$a = []; begin; ; $a << 1
 
322
  while true; $a << 2
 
323
    class C; $a << 3
 
324
      class D; $a << 4
 
325
        break; $a << 5
 
326
      end; $a << 6
 
327
    end; $a << 7
 
328
  end; $a << 8
 
329
; $a << 9
 
330
; rescue Exception; $a << 99; end; $a}
 
331
assert_equal %q{[1, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 8, 9]}, %q{$a = []; begin; ; $a << 1
 
332
  i=0; $a << 2
 
333
  while i<3; $a << 3
 
334
    i+=1; $a << 4
 
335
    class C; $a << 5
 
336
      next 10; $a << 6
 
337
    end; $a << 7
 
338
  end; $a << 8
 
339
; $a << 9
 
340
; rescue Exception; $a << 99; end; $a}
 
341
assert_equal %q{1}, %q{
 
342
  1.times{
 
343
    while true
 
344
      class C
 
345
        begin
 
346
          break
 
347
        ensure
 
348
          break
 
349
        end
 
350
      end
 
351
    end
 
352
  }
 
353
}
 
354
assert_equal %q{[1, 2, 3, 5, 2, 3, 5, 7, 8]}, %q{$a = []; begin;  ; $a << 1
 
355
  [1,2].each do; $a << 2
 
356
    begin; $a << 3
 
357
      next; $a << 4
 
358
    ensure; $a << 5
 
359
    end; $a << 6
 
360
  end; $a << 7
 
361
; $a << 8
 
362
; rescue Exception; $a << 99; end; $a}
 
363
assert_equal %q{[1, 2, 6, 3, 5, 7, 8]}, %q{$a = []; begin;  ; $a << 1
 
364
  o = "test"; $a << 2
 
365
  def o.test(a); $a << 3
 
366
    return a; $a << 4
 
367
  ensure; $a << 5
 
368
  end; $a << 6
 
369
  o.test(123); $a << 7
 
370
; $a << 8
 
371
; rescue Exception; $a << 99; end; $a}
 
372
assert_equal %q{[1, 4, 7, 5, 8, 9]}, %q{$a = []; begin; ; $a << 1
 
373
  def m1 *args; $a << 2
 
374
    ; $a << 3
 
375
  end; $a << 4
 
376
  def m2; $a << 5
 
377
    m1(:a, :b, (return 1; :c)); $a << 6
 
378
  end; $a << 7
 
379
  m2; $a << 8
 
380
; $a << 9
 
381
; rescue Exception; $a << 99; end; $a}
 
382
assert_equal %q{[1, 8, 2, 3, 4, 5, 9, 10]}, %q{$a = []; begin; ; $a << 1
 
383
  def m(); $a << 2
 
384
    begin; $a << 3
 
385
      2; $a << 4
 
386
    ensure; $a << 5
 
387
      return 3; $a << 6
 
388
    end; $a << 7
 
389
  end; $a << 8
 
390
  m; $a << 9
 
391
; $a << 10
 
392
; rescue Exception; $a << 99; end; $a}
 
393
assert_equal %q{[1, 3, 11, 4, 5, 6, 7, 12, 13]}, %q{$a = []; begin; ; $a << 1
 
394
  def m2; $a << 2
 
395
  end; $a << 3
 
396
  def m(); $a << 4
 
397
    m2(begin; $a << 5
 
398
         2; $a << 6
 
399
       ensure; $a << 7
 
400
         return 3; $a << 8
 
401
       end); $a << 9
 
402
    4; $a << 10
 
403
  end; $a << 11
 
404
  m(); $a << 12
 
405
; $a << 13
 
406
; rescue Exception; $a << 99; end; $a}
 
407
assert_equal %q{[1, 16, 2, 3, 4, 5, 6, 7, 10, 11, 17, 18]}, %q{$a = []; begin; ; $a << 1
 
408
  def m; $a << 2
 
409
    1; $a << 3
 
410
    1.times{; $a << 4
 
411
      2; $a << 5
 
412
      begin; $a << 6
 
413
        3; $a << 7
 
414
        return; $a << 8
 
415
        4; $a << 9
 
416
      ensure; $a << 10
 
417
        5; $a << 11
 
418
      end; $a << 12
 
419
      6; $a << 13
 
420
    }; $a << 14
 
421
    7; $a << 15
 
422
  end; $a << 16
 
423
  m(); $a << 17
 
424
; $a << 18
 
425
; rescue Exception; $a << 99; end; $a}
 
426
assert_equal %q{[:ok, :ok2, :last]}, %q{
 
427
  a = []
 
428
  i = 0
 
429
  begin
 
430
    while i < 1
 
431
      i+=1
 
432
      begin
 
433
        begin
 
434
          next
 
435
        ensure
 
436
          a << :ok
 
437
        end
 
438
      ensure
 
439
        a << :ok2
 
440
      end
 
441
    end
 
442
  ensure
 
443
    a << :last
 
444
  end
 
445
  a
 
446
}
 
447
assert_equal %q{[:ok, :ok2, :last]}, %q{
 
448
  a = []
 
449
  i = 0
 
450
  begin
 
451
    while i < 1
 
452
      i+=1
 
453
      begin
 
454
        begin
 
455
          break
 
456
        ensure
 
457
          a << :ok
 
458
        end
 
459
      ensure
 
460
        a << :ok2
 
461
      end
 
462
    end
 
463
  ensure
 
464
    a << :last
 
465
  end
 
466
  a
 
467
}
 
468
assert_equal %q{[:ok, :ok2, :last]}, %q{
 
469
  a = []
 
470
  i = 0
 
471
  begin
 
472
    while i < 1
 
473
      if i>0
 
474
        break
 
475
      end
 
476
      i+=1
 
477
      begin
 
478
        begin
 
479
          redo
 
480
        ensure
 
481
          a << :ok
 
482
        end
 
483
      ensure
 
484
        a << :ok2
 
485
      end
 
486
    end
 
487
  ensure
 
488
    a << :last
 
489
  end
 
490
  a
 
491
   }