testsetfuns.pl

Revision 1117, 347 bytes (checked in by shawnw, 1 year ago)
Merge with devel

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.