root/1.8.3/tags/p6/test/testfirstof.pl

Revision 1117, 0.6 KB (checked in by shawnw, 15 months ago)

Merge with devel

Line 
1run tests:
2test('firstof.1', $god, 'think firstof(0,0,2)', '2');
3test('firstof.2', $god, 'think firstof(2,0,0)', '2');
4test('firstof.3', $god, 'think firstof(0,0,0)', '0');
5test('firstof.4', $god, 'think firstof(1,2,3)', '1');
6test('firstof.5', $god, 'think allof(0,0,2,)', '2');
7test('firstof.6', $god, 'think allof(2,0,0,)', '2');
8test('firstof.7', $god, 'think allof(0,0,0,)', '');
9test('firstof.8', $god, 'think allof(1,2,3,)', '1 2 3');
10test('firstof.9', $god, 'think allof(0,0,2,|)', '2');
11test('firstof.10', $god, 'think allof(2,0,0,|)', '2');
12test('firstof.11', $god, 'think allof(0,0,0,|)', '');
13test('firstof.12', $god, 'think allof(1,2,3,|)', '1|2|3');
Note: See TracBrowser for help on using the browser.