root/1.8.3/tags/p5rc1/test/testrand.pl
| Revision 1078, 392 bytes (checked in by shawnw, 17 months ago) |
|---|
| Line | |
|---|---|
| 1 | run tests: |
| 2 | test('rand.1', $god, 'think rand(-1)', '#-1'); |
| 3 | test('rand.2', $god, 'think rand(0)', '#-1'); |
| 4 | test('rand.3', $god, 'think rand(1)', '0'); |
| 5 | test('rand.4', $god, 'think rand(10)', '^\d\s*$'); |
| 6 | test('rand.5', $god, 'think rand(0,0)', '0'); |
| 7 | test('rand.6', $god, 'think rand(1,1)', '1'); |
| 8 | test('rand.7', $god, 'think rand(2,1)', '#-1'); |
| 9 | test('rand.8', $god, 'think rand(0,9)', '^\d\s*$'); |
Note: See TracBrowser
for help on using the browser.
