|
Revision 441, 485 bytes
(checked in by pennmush, 2 years ago)
|
|
PennMUSH 1.7.7p21 Archival
|
| Line | |
|---|
| 1 | use PennMUSH; |
|---|
| 2 | use MUSHConnection; |
|---|
| 3 | use TestHarness; |
|---|
| 4 | |
|---|
| 5 | $mush = PennMUSH->new(); |
|---|
| 6 | $god = $mush->loginGod(); |
|---|
| 7 | |
|---|
| 8 | test('rand.1', $god, 'think rand(-1)', '#-1'); |
|---|
| 9 | test('rand.2', $god, 'think rand(0)', '#-1'); |
|---|
| 10 | test('rand.3', $god, 'think rand(1)', '0'); |
|---|
| 11 | test('rand.4', $god, 'think rand(10)', '^\d\s*$'); |
|---|
| 12 | test('rand.5', $god, 'think rand(0,0)', '0'); |
|---|
| 13 | test('rand.6', $god, 'think rand(1,1)', '1'); |
|---|
| 14 | test('rand.7', $god, 'think rand(2,1)', '#-1'); |
|---|
| 15 | test('rand.8', $god, 'think rand(0,9)', '^\d\s*$'); |
|---|
