PennMUSH Community

root/1.8.3/trunk/test/testletq.pl

Revision 1117, 163 bytes (checked in by shawnw, 1 year ago)

Merge with devel

Line 
1 run tests:
2 test("letq.1", $god, "think setr(A, 1):[letq(A, 2, \%qA)]:\%qA", '^1:2:1');
3 test("letq.2", $god, "think setr(A, 1):[letq(setr(A, 2))]:\%qA", '^1:2:2');
Note: See TracBrowser for help on using the browser.