|
Revision 529, 412 bytes
(checked in by pennmush, 2 years ago)
|
|
PennMUSH 1.8.1p9 Archival
|
| Line | |
|---|
| 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$'); |
|---|
