root/1.8.3/tags/p6/test/testsetfuns.pl
| Revision 1117, 347 bytes (checked in by shawnw, 15 months ago) |
|---|
| Line | |
|---|---|
| 1 | login mortal |
| 2 | run tests: |
| 3 | test('setunion.1', $mortal, 'think setunion(,)', '^$'); |
| 4 | test('setunion.2', $mortal, 'think setunion( a,a)', '^a\r$'); |
| 5 | test('setunion.3', $mortal, 'think setunion(c a b a,a b c c)', '^a b c\r$'); |
| 6 | test('setunion.4', $mortal, 'think setunion(a a a,)', '^a\r$'); |
| 7 | test('setunion.5', $mortal, 'think setunion(,a a a)', '^a\r$'); |
Note: See TracBrowser
for help on using the browser.
