root/1.8.3/trunk/test/testletq.pl
| Revision 1117, 163 bytes (checked in by shawnw, 1 year ago) |
|---|
| 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.
