use PennMUSH; use MUSHConnection; use TestHarness; $mush = PennMUSH->new(); $god = $mush->loginGod(); $god->command("&FIRST me=first"); $god->command("&SECOND me=second"); $god->command("&THIRD me=third"); test('grep.1', $god, 'think grep(me,*,d)', 'SECOND THIRD'); test('grep.2', $god, 'think grep(me,S*,d)', 'SECOND'); test('grep.3', $god, 'think grep(me,*,*d*)', '!SECOND THIRD'); test('grep.4', $god, 'think grep(me,*,D)', '!SECOND THIRD'); test('grep.5', $god, 'think wildgrep(me,*,*d*)', 'SECOND THIRD'); test('grep.6', $god, 'think wildgrep(me,*,d)', '!SECOND THIRD'); test('grep.7', $god, 'think wildgrep(me,*,first)', 'FIRST'); test('grep.8', $god, 'think wildgrep(me,*,FIRST)', '!FIRST'); test('grep.9', $god, 'think regrep(me,*,*d*)', '!SECOND THIRD'); test('grep.10', $god, 'think regrep(me,*,d)', 'SECOND THIRD'); test('grep.11', $god, 'think regrep(me,*,d$)', 'SECOND THIRD'); test('grep.12', $god, 'think regrep(me,*,first)', 'FIRST'); test('grep.13', $god, 'think regrep(me,*,FIRST)', '!FIRST'); test('grep.14', $god, 'think grepi(me,*,d)', 'SECOND THIRD'); test('grep.15', $god, 'think grepi(me,S*,d)', 'SECOND'); test('grep.16', $god, 'think grepi(me,*,*d*)', '!SECOND THIRD'); test('grep.17', $god, 'think grepi(me,*,D)', 'SECOND THIRD'); test('grep.18', $god, 'think wildgrepi(me,*,*d*)', 'SECOND THIRD'); test('grep.19', $god, 'think wildgrepi(me,*,d)', '!SECOND THIRD'); test('grep.20', $god, 'think wildgrepi(me,*,first)', 'FIRST'); test('grep.21', $god, 'think wildgrepi(me,*,FIRST)', 'FIRST'); test('grep.22', $god, 'think regrepi(me,*,*d*)', '!SECOND THIRD'); test('grep.23', $god, 'think regrepi(me,*,d)', 'SECOND THIRD'); test('grep.24', $god, 'think regrepi(me,*,d$)', 'SECOND THIRD'); test('grep.25', $god, 'think regrepi(me,*,first)', 'FIRST'); test('grep.26', $god, 'think regrepi(me,*,FIRST)', 'FIRST');