| 1 | | use PennMUSH; |
|---|
| 2 | | use MUSHConnection; |
|---|
| 3 | | use TestHarness; |
|---|
| 4 | | |
|---|
| 5 | | $mush = PennMUSH->new(); |
|---|
| 6 | | $god = $mush->loginGod(); |
|---|
| 7 | | |
|---|
| 8 | | test('setunion.1', $god, 'think setunion(,)', '^$'); |
|---|
| 9 | | test('setunion.2', $god, 'think setunion( a,a)', '^a\r$'); |
|---|
| 10 | | test('setunion.3', $god, 'think setunion(c a b a,a b c c)', '^a b c\r$'); |
|---|
| 11 | | test('setunion.4', $god, 'think setunion(a a a,)', '^a\r$'); |
|---|
| 12 | | test('setunion.5', $god, 'think setunion(,a a a)', '^a\r$'); |
|---|
| | 1 | login mortal |
|---|
| | 2 | run tests: |
|---|
| | 3 | test('setunion.1', $mortal, 'think setunion(,)', '^$'); |
|---|
| | 4 | test('setunion.2', $mortal, 'think setunion( a,a)', '^a\r$'); |
|---|
| | 5 | test('setunion.3', $mortal, 'think setunion(c a b a,a b c c)', '^a b c\r$'); |
|---|
| | 6 | test('setunion.4', $mortal, 'think setunion(a a a,)', '^a\r$'); |
|---|
| | 7 | test('setunion.5', $mortal, 'think setunion(,a a a)', '^a\r$'); |
|---|
