| 1 | use PennMUSH; |
|---|
| 2 | use MUSHConnection; |
|---|
| 3 | use TestHarness; |
|---|
| 4 | |
|---|
| 5 | $mush = PennMUSH->new(); |
|---|
| 6 | $god = $mush->loginGod(); |
|---|
| 7 | |
|---|
| 8 | test('alias.1', $god, '@name me=God', ['Name set.']); |
|---|
| 9 | test('alias.2', $god, '@name me=One', ['Name set.']); |
|---|
| 10 | test('alias.3', $god, '@alias me=God', ['Alias set.']); |
|---|
| 11 | test('alias.4', $god, '@name me=God', ['Name set.']); |
|---|
| 12 | test('alias.5', $god, '@alias me=God', ['Alias set.']); |
|---|
| 13 | test('alias.6', $god, '@name me=One', ['Name set.']); |
|---|
| 14 | test('alias.7', $god, '@name me=God', ['Name set.']); |
|---|
| 15 | test('alias.8', $god, '@alias me=God;One', ['Alias set.']); |
|---|
| 16 | test('alias.9', $god, '@name me=Love', ['Name set.']); |
|---|
| 17 | test('alias.10', $god, '@alias me', ['Alias removed.']); |
|---|
| 18 | test('alias.11', $god, '@name me=God', ['Name set.']); |
|---|
