← Back to branch summary

~ubuntu-branches/ubuntu/dapper/ruby1.9/dapper

« back to all changes in this revision

Viewing changes to sample/test.rb

  • Committer: Bazaar Package Importer
  • Author(s): Lucas Nussbaum
  • Date: 2006-05-08 22:23:12 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20060508222312-w2wqeaz030ifi59j
Tags: 1.9.0+20060423-3ubuntu1
* Resynchronized with Debian.
* Only change from Debian is the addition of
  debian/patches/903_sparc_fix_define.patch to fix illegal instructions
  at runtime on sparc. (change from 1.9.0+20050921-1ubuntu1)

Show diffs side-by-side

added added

removed removed

Lines of Context:
sample/test.rb
54
54
a = [*[1]]; test_ok(a == [1])
55
55
a = [*[1,2]]; test_ok(a == [1,2])
56
56
 
57
 
a = *nil; test_ok(a == nil)
58
 
a = *1; test_ok(a == 1)
59
57
a = *[]; test_ok(a == nil)
60
58
a = *[1]; test_ok(a == 1)
61
59
a = *[nil]; test_ok(a == nil)
78
76
a, = *[1,2]; test_ok(a == 1)
79
77
a, = [*[1,2]]; test_ok(a == 1)
80
78
 
81
 
a, = *nil; test_ok(a == nil)
82
 
a, = *1; test_ok(a == 1)
83
79
a, = *[]; test_ok(a == nil)
84
80
a, = *[1]; test_ok(a == 1)
85
81
a, = *[nil]; test_ok(a == nil)
100
96
*a = [*[1]]; test_ok(a == [[1]])
101
97
*a = [*[1,2]]; test_ok(a == [[1,2]])
102
98
 
103
 
*a = *nil; test_ok(a == [nil])
104
 
*a = *1; test_ok(a == [1])
105
99
*a = *[]; test_ok(a == [])
106
100
*a = *[1]; test_ok(a == [1])
107
101
*a = *[nil]; test_ok(a == [nil])
122
116
a,b,*c = [*[1]]; test_ok([a,b,c] == [1,nil,[]])
123
117
a,b,*c = [*[1,2]]; test_ok([a,b,c] == [1,2,[]])
124
118
 
125
 
a,b,*c = *nil; test_ok([a,b,c] == [nil,nil,[]])
126
 
a,b,*c = *1; test_ok([a,b,c] == [1,nil,[]])
127
119
a,b,*c = *[]; test_ok([a,b,c] == [nil,nil,[]])
128
120
a,b,*c = *[1]; test_ok([a,b,c] == [1,nil,[]])
129
121
a,b,*c = *[nil]; test_ok([a,b,c] == [nil,nil,[]])
143
135
def f; yield [*[1]]; end; f {|a| test_ok(a == [1])}
144
136
def f; yield [*[1,2]]; end; f {|a| test_ok(a == [1,2])}
145
137
 
146
 
def f; yield *nil; end; f {|a| test_ok(a == nil)}
147
 
def f; yield *1; end; f {|a| test_ok(a == 1)}
148
138
def f; yield *[1]; end; f {|a| test_ok(a == 1)}
149
139
def f; yield *[nil]; end; f {|a| test_ok(a == nil)}
150
140
def f; yield *[[]]; end; f {|a| test_ok(a == [])}
161
151
def f; yield [*[1]]; end; f {|a,| test_ok(a == 1)}
162
152
def f; yield [*[1,2]]; end; f {|a,| test_ok(a == 1)}
163
153
 
164
 
def f; yield *nil; end; f {|a,| test_ok(a == nil)}
165
 
def f; yield *1; end; f {|a,| test_ok(a == 1)}
166
154
def f; yield *[]; end; f {|a,| test_ok(a == nil)}
167
155
def f; yield *[1]; end; f {|a,| test_ok(a == 1)}
168
156
def f; yield *[nil]; end; f {|a,| test_ok(a == nil)}
183
171
def f; yield [*[1]]; end; f {|*a| test_ok(a == [[1]])}
184
172
def f; yield [*[1,2]]; end; f {|*a| test_ok(a == [[1,2]])}
185
173
 
186
 
def f; yield *nil; end; f {|*a| test_ok(a == [nil])}
187
 
def f; yield *1; end; f {|*a| test_ok(a == [1])}
188
174
def f; yield *[]; end; f {|*a| test_ok(a == [])}
189
175
def f; yield *[1]; end; f {|*a| test_ok(a == [1])}
190
176
def f; yield *[nil]; end; f {|*a| test_ok(a == [nil])}
204
190
def f; yield [*[1]]; end; f {|a,b,*c| test_ok([a,b,c] == [1,nil,[]])}
205
191
def f; yield [*[1,2]]; end; f {|a,b,*c| test_ok([a,b,c] == [1,2,[]])}
206
192
 
207
 
def f; yield *nil; end; f {|a,b,*c| test_ok([a,b,c] == [nil,nil,[]])}
208
 
def f; yield *1; end; f {|a,b,*c| test_ok([a,b,c] == [1,nil,[]])}
209
193
def f; yield *[]; end; f {|a,b,*c| test_ok([a,b,c] == [nil,nil,[]])}
210
194
def f; yield *[1]; end; f {|a,b,*c| test_ok([a,b,c] == [1,nil,[]])}
211
195
def f; yield *[nil]; end; f {|a,b,*c| test_ok([a,b,c] == [nil,nil,[]])}
225
209
def r; return [*[1]]; end; a = r(); test_ok(a == [1])
226
210
def r; return [*[1,2]]; end; a = r(); test_ok(a == [1,2])
227
211
 
228
 
def r; return *nil; end; a = r(); test_ok(a == nil)
229
 
def r; return *1; end; a = r(); test_ok(a == 1)
230
212
def r; return *[]; end; a = r(); test_ok(a == nil)
231
213
def r; return *[1]; end; a = r(); test_ok(a == 1)
232
214
def r; return *[nil]; end; a = r(); test_ok(a == nil)
235
217
def r; return *[*[1]]; end; a = r(); test_ok(a == 1)
236
218
def r; return *[*[1,2]]; end; a = r(); test_ok(a == [1,2])
237
219
 
238
 
def r; return *nil; end; a = *r(); test_ok(a == nil)
239
 
def r; return *1; end; a = *r(); test_ok(a == 1)
240
 
def r; return *[]; end; a = *r(); test_ok(a == nil)
241
 
def r; return *[1]; end; a = *r(); test_ok(a == 1)
242
 
def r; return *[nil]; end; a = *r(); test_ok(a == nil)
243
220
def r; return *[[]]; end; a = *r(); test_ok(a == nil)
244
 
def r; return *[*[]]; end; a = *r(); test_ok(a == nil)
245
 
def r; return *[*[1]]; end; a = *r(); test_ok(a == 1)
246
221
def r; return *[*[1,2]]; end; a = *r(); test_ok(a == [1,2])
247
222
 
248
223
def r; return; end; *a = r(); test_ok(a == [nil])
257
232
def r; return [*[1]]; end; *a = r(); test_ok(a == [[1]])
258
233
def r; return [*[1,2]]; end; *a = r(); test_ok(a == [[1,2]])
259
234
 
260
 
def r; return *nil; end; *a = r(); test_ok(a == [nil])
261
 
def r; return *1; end; *a = r(); test_ok(a == [1])
262
235
def r; return *[]; end; *a = r(); test_ok(a == [nil])
263
236
def r; return *[1]; end; *a = r(); test_ok(a == [1])
264
237
def r; return *[nil]; end; *a = r(); test_ok(a == [nil])
268
241
def r; return *[*[1]]; end; *a = r(); test_ok(a == [1])
269
242
def r; return *[*[1,2]]; end; *a = r(); test_ok(a == [[1,2]])
270
243
 
271
 
def r; return *nil; end; *a = *r(); test_ok(a == [nil])
272
 
def r; return *1; end; *a = *r(); test_ok(a == [1])
273
 
def r; return *[]; end; *a = *r(); test_ok(a == [nil])
274
 
def r; return *[1]; end; *a = *r(); test_ok(a == [1])
275
 
def r; return *[nil]; end; *a = *r(); test_ok(a == [nil])
276
244
def r; return *[[]]; end; *a = *r(); test_ok(a == [])
277
245
def r; return *[1,2]; end; *a = *r(); test_ok(a == [1,2])
278
 
def r; return *[*[]]; end; *a = *r(); test_ok(a == [nil])
279
 
def r; return *[*[1]]; end; *a = *r(); test_ok(a == [1])
280
246
def r; return *[*[1,2]]; end; *a = *r(); test_ok(a == [1,2])
281
247
 
282
248
def r; return; end; a,b,*c = r(); test_ok([a,b,c] == [nil,nil,[]])
291
257
def r; return [*[1]]; end; a,b,*c = r(); test_ok([a,b,c] == [1,nil,[]])
292
258
def r; return [*[1,2]]; end; a,b,*c = r(); test_ok([a,b,c] == [1,2,[]])
293
259
 
294
 
def r; return *nil; end; a,b,*c = r(); test_ok([a,b,c] == [nil,nil,[]])
295
 
def r; return *1; end; a,b,*c = r(); test_ok([a,b,c] == [1,nil,[]])
296
260
def r; return *[]; end; a,b,*c = r(); test_ok([a,b,c] == [nil,nil,[]])
297
261
def r; return *[1]; end; a,b,*c = r(); test_ok([a,b,c] == [1,nil,[]])
298
262
def r; return *[nil]; end; a,b,*c = r(); test_ok([a,b,c] == [nil,nil,[]])
352
316
a = loop do break [*[1]]; end; test_ok(a == [1])
353
317
a = loop do break [*[1,2]]; end; test_ok(a == [1,2])
354
318
 
355
 
a = loop do break *nil; end; test_ok(a == nil)
356
 
a = loop do break *1; end; test_ok(a == 1)
357
319
a = loop do break *[]; end; test_ok(a == nil)
358
320
a = loop do break *[1]; end; test_ok(a == 1)
359
321
a = loop do break *[nil]; end; test_ok(a == nil)
374
336
*a = loop do break [*[1]]; end; test_ok(a == [[1]])
375
337
*a = loop do break [*[1,2]]; end; test_ok(a == [[1,2]])
376
338
 
377
 
*a = loop do break *nil; end; test_ok(a == [nil])
378
 
*a = loop do break *1; end; test_ok(a == [1])
379
339
*a = loop do break *[]; end; test_ok(a == [nil])
380
340
*a = loop do break *[1]; end; test_ok(a == [1])
381
341
*a = loop do break *[nil]; end; test_ok(a == [nil])
385
345
*a = loop do break *[*[1]]; end; test_ok(a == [1])
386
346
*a = loop do break *[*[1,2]]; end; test_ok(a == [[1,2]])
387
347
 
388
 
*a = *loop do break *nil; end; test_ok(a == [nil])
389
 
*a = *loop do break *1; end; test_ok(a == [1])
390
 
*a = *loop do break *[]; end; test_ok(a == [nil])
391
 
*a = *loop do break *[1]; end; test_ok(a == [1])
392
 
*a = *loop do break *[nil]; end; test_ok(a == [nil])
393
348
*a = *loop do break *[[]]; end; test_ok(a == [])
394
349
*a = *loop do break *[1,2]; end; test_ok(a == [1,2])
395
 
*a = *loop do break *[*[]]; end; test_ok(a == [nil])
396
 
*a = *loop do break *[*[1]]; end; test_ok(a == [1])
397
350
*a = *loop do break *[*[1,2]]; end; test_ok(a == [1,2])
398
351
 
399
352
a,b,*c = loop do break; end; test_ok([a,b,c] == [nil,nil,[]])
408
361
a,b,*c = loop do break [*[1]]; end; test_ok([a,b,c] == [1,nil,[]])
409
362
a,b,*c = loop do break [*[1,2]]; end; test_ok([a,b,c] == [1,2,[]])
410
363
 
411
 
a,b,*c = loop do break *nil; end; test_ok([a,b,c] == [nil,nil,[]])
412
 
a,b,*c = loop do break *1; end; test_ok([a,b,c] == [1,nil,[]])
413
364
a,b,*c = loop do break *[]; end; test_ok([a,b,c] == [nil,nil,[]])
414
365
a,b,*c = loop do break *[1]; end; test_ok([a,b,c] == [1,nil,[]])
415
366
a,b,*c = loop do break *[nil]; end; test_ok([a,b,c] == [nil,nil,[]])
431
382
r([1]){next [*[1]]}
432
383
r([1,2]){next [*[1,2]]}
433
384
 
434
 
r(nil){next *nil}
435
 
r(1){next *1}
436
385
r(nil){next *[]}
437
386
r(1){next *[1]}
438
387
r(nil){next *[nil]}
455
404
r([[1,2]]){next [*[1,2]]}
456
405
 
457
406
def r(val); *a = *yield(); test_ok(a == val, 2); end
458
 
r([nil]){next *nil}
459
 
r([1]){next *1}
460
 
r([nil]){next *[]}
461
 
r([1]){next *[1]}
462
 
r([nil]){next *[nil]}
463
407
r([]){next *[[]]}
464
408
r([1,2]){next *[1,2]}
465
 
r([nil]){next *[*[]]}
466
 
r([1]){next *[*[1]]}
467
409
r([1,2]){next *[*[1,2]]}
468
410
 
469
411
def r(val); a,b,*c = yield(); test_ok([a,b,c] == val, 2); end
480
422
r([1,2,[]]){next [*[1,2]]}
481
423
 
482
424
def r(val); a,b,*c = *yield(); test_ok([a,b,c] == val, 2); end
483
 
r([nil,nil,[]]){next *nil}
484
 
r([1,nil,[]]){next *1}
485
 
r([nil,nil,[]]){next *[]}
486
 
r([1,nil,[]]){next *[1]}
487
 
r([nil,nil,[]]){next *[nil]}
488
425
r([nil,nil,[]]){next *[[]]}
489
426
r([1,2,[]]){next *[1,2]}
490
 
r([nil,nil,[]]){next *[*[]]}
491
 
r([1,nil,[]]){next *[*[1]]}
492
427
r([1,2,[]]){next *[*[1,2]]}
493
428
 
494
429
test_check "condition"
585
520
# test redo
586
521
$bad = false
587
522
tmp = open("while_tmp", "r")
588
 
while tmp.gets()
589
 
  line = $_
590
 
  gsub(/vt100/, 'VT100')
591
 
  if $_ != line
592
 
    $_.gsub!('VT100', 'Vt100')
 
523
while line = tmp.gets()
 
524
  lastline = line
 
525
  line = line.gsub(/vt100/, 'VT100')
 
526
  if lastline != line
 
527
    line.gsub!('VT100', 'Vt100')
593
528
    redo
594
529
  end
595
 
  $bad = 1 if /vt100/ =~ $_
596
 
  $bad = 1 if /VT100/ =~ $_
 
530
  $bad = 1 if /vt100/ =~ line
 
531
  $bad = 1 if /VT100/ =~ line
597
532
end
598
533
test_ok(tmp.eof? && !$bad)
599
534
tmp.close
1025
960
IterTest.new([0]).each0 {|x| test_ok(x == 0)}
1026
961
IterTest.new([1]).each1 {|x| test_ok(x == 1)}
1027
962
IterTest.new([2]).each2 {|x| test_ok(x == [2])}
1028
 
IterTest.new([3]).each3 {|x| test_ok(x == 3)}
 
963
#IterTest.new([3]).each3 {|x| test_ok(x == 3)}
1029
964
IterTest.new([4]).each4 {|x| test_ok(x == 4)}
1030
965
IterTest.new([5]).each5 {|x| test_ok(x == 5)}
1031
966
IterTest.new([6]).each6 {|x| test_ok(x == [6])}
1032
 
IterTest.new([7]).each7 {|x| test_ok(x == 7)}
 
967
#IterTest.new([7]).each7 {|x| test_ok(x == 7)}
1033
968
IterTest.new([8]).each8 {|x| test_ok(x == 8)}
1034
969
 
1035
970
IterTest.new([[0]]).each0 {|x| test_ok(x == [0])}
1902
1837
end
1903
1838
tmp.close
1904
1839
 
1905
 
`./miniruby -i.bak -pe 'sub(/^[0-9]+$/){$&.to_i * 5}' script_tmp`
 
1840
`./miniruby -i.bak -pe '$_.sub!(/^[0-9]+$/){$&.to_i * 5}' script_tmp`
1906
1841
done = true
1907
1842
tmp = open("script_tmp", "r")
1908
1843
while tmp.gets