Changeset 1117 for 1.8.3/trunk/test/testatree.pl
- Timestamp:
- 10/05/07 15:36:32 (1 year ago)
- Files:
-
- 1.8.3/trunk/test/testatree.pl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
1.8.3/trunk/test/testatree.pl
r463 r1117 1 use PennMUSH; 2 use MUSHConnection; 3 use TestHarness; 4 5 $| = 1; 6 7 $mush = PennMUSH->new(); 8 # print "MUSH on port ".$mush->{PORT}."\n"; 9 # sleep(30); 10 $god = $mush->loginGod(); 11 1 login mortal 2 run tests: 12 3 # First, the basic tests enforcing tree-nature of the attributes. 13 4 # Attrs may not start or end in ` … … 92 83 # Permissions checks 93 84 # Need a mortal for this... 94 test('atree.perms.1', $god, '@pcreate Mortal=mortal', 'created');95 $mortal = $mush->login("Mortal", "mortal");96 85 # Build a tree from different places... 97 86 test('atree.perms.2', $god, '&foo mortal=baz', 'Set');
