PennMUSH Community
Show
Ignore:
Timestamp:
10/05/07 15:36:32 (1 year ago)
Author:
shawnw
Message:

Merge with devel

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • 1.8.3/trunk/test/testgrep.pl

    r523 r1117  
    1 use PennMUSH; 
    2 use MUSHConnection; 
    3 use TestHarness; 
     1login mortal 
     2run tests: 
     3$mortal->command("&FIRST me=first"); 
     4$mortal->command("&SECOND me=second"); 
     5$mortal->command("&THIRD me=third"); 
    46 
    5 $mush = PennMUSH->new(); 
    6 $god = $mush->loginGod(); 
     7test('grep.1', $mortal, 'think grep(me,*,d)', 'SECOND THIRD'); 
     8test('grep.2', $mortal, 'think grep(me,S*,d)', 'SECOND'); 
     9test('grep.3', $mortal, 'think grep(me,*,*d*)', '!SECOND THIRD'); 
     10test('grep.4', $mortal, 'think grep(me,*,D)', '!SECOND THIRD'); 
    711 
    8 $god->command("&FIRST me=first"); 
    9 $god->command("&SECOND me=second"); 
    10 $god->command("&THIRD me=third"); 
     12test('grep.5', $mortal, 'think wildgrep(me,*,*d*)', 'SECOND THIRD'); 
     13test('grep.6', $mortal, 'think wildgrep(me,*,d)', '!SECOND THIRD'); 
     14test('grep.7', $mortal, 'think wildgrep(me,*,first)', 'FIRST'); 
     15test('grep.8', $mortal, 'think wildgrep(me,*,FIRST)', '!FIRST'); 
    1116 
    12 test('grep.1', $god, 'think grep(me,*,d)', 'SECOND THIRD'); 
    13 test('grep.2', $god, 'think grep(me,S*,d)', 'SECOND'); 
    14 test('grep.3', $god, 'think grep(me,*,*d*)', '!SECOND THIRD'); 
    15 test('grep.4', $god, 'think grep(me,*,D)', '!SECOND THIRD'); 
     17test('grep.9', $mortal, 'think regrep(me,*,*d*)', '!SECOND THIRD'); 
     18test('grep.10', $mortal, 'think regrep(me,*,d)', 'SECOND THIRD'); 
     19test('grep.11', $mortal, 'think regrep(me,*,d$)', 'SECOND THIRD'); 
     20test('grep.12', $mortal, 'think regrep(me,*,first)', 'FIRST'); 
     21test('grep.13', $mortal, 'think regrep(me,*,FIRST)', '!FIRST'); 
    1622 
    17 test('grep.5', $god, 'think wildgrep(me,*,*d*)', 'SECOND THIRD'); 
    18 test('grep.6', $god, 'think wildgrep(me,*,d)', '!SECOND THIRD'); 
    19 test('grep.7', $god, 'think wildgrep(me,*,first)', 'FIRST'); 
    20 test('grep.8', $god, 'think wildgrep(me,*,FIRST)', '!FIRST'); 
     23test('grep.14', $mortal, 'think grepi(me,*,d)', 'SECOND THIRD'); 
     24test('grep.15', $mortal, 'think grepi(me,S*,d)', 'SECOND'); 
     25test('grep.16', $mortal, 'think grepi(me,*,*d*)', '!SECOND THIRD'); 
     26test('grep.17', $mortal, 'think grepi(me,*,D)', 'SECOND THIRD'); 
    2127 
    22 test('grep.9', $god, 'think regrep(me,*,*d*)', '!SECOND THIRD'); 
    23 test('grep.10', $god, 'think regrep(me,*,d)', 'SECOND THIRD'); 
    24 test('grep.11', $god, 'think regrep(me,*,d$)', 'SECOND THIRD'); 
    25 test('grep.12', $god, 'think regrep(me,*,first)', 'FIRST'); 
    26 test('grep.13', $god, 'think regrep(me,*,FIRST)', '!FIRST'); 
     28test('grep.18', $mortal, 'think wildgrepi(me,*,*d*)', 'SECOND THIRD'); 
     29test('grep.19', $mortal, 'think wildgrepi(me,*,d)', '!SECOND THIRD'); 
     30test('grep.20', $mortal, 'think wildgrepi(me,*,first)', 'FIRST'); 
     31test('grep.21', $mortal, 'think wildgrepi(me,*,FIRST)', 'FIRST'); 
    2732 
    28 test('grep.14', $god, 'think grepi(me,*,d)', 'SECOND THIRD'); 
    29 test('grep.15', $god, 'think grepi(me,S*,d)', 'SECOND'); 
    30 test('grep.16', $god, 'think grepi(me,*,*d*)', '!SECOND THIRD'); 
    31 test('grep.17', $god, 'think grepi(me,*,D)', 'SECOND THIRD'); 
    32  
    33 test('grep.18', $god, 'think wildgrepi(me,*,*d*)', 'SECOND THIRD'); 
    34 test('grep.19', $god, 'think wildgrepi(me,*,d)', '!SECOND THIRD'); 
    35 test('grep.20', $god, 'think wildgrepi(me,*,first)', 'FIRST'); 
    36 test('grep.21', $god, 'think wildgrepi(me,*,FIRST)', 'FIRST'); 
    37  
    38 test('grep.22', $god, 'think regrepi(me,*,*d*)', '!SECOND THIRD'); 
    39 test('grep.23', $god, 'think regrepi(me,*,d)', 'SECOND THIRD'); 
    40 test('grep.24', $god, 'think regrepi(me,*,d$)', 'SECOND THIRD'); 
    41 test('grep.25', $god, 'think regrepi(me,*,first)', 'FIRST'); 
    42 test('grep.26', $god, 'think regrepi(me,*,FIRST)', 'FIRST'); 
     33test('grep.22', $mortal, 'think regrepi(me,*,*d*)', '!SECOND THIRD'); 
     34test('grep.23', $mortal, 'think regrepi(me,*,d)', 'SECOND THIRD'); 
     35test('grep.24', $mortal, 'think regrepi(me,*,d$)', 'SECOND THIRD'); 
     36test('grep.25', $mortal, 'think regrepi(me,*,first)', 'FIRST'); 
     37test('grep.26', $mortal, 'think regrepi(me,*,FIRST)', 'FIRST');