root/1.8.3/tags/p5rc1/test/testnull.pl

Revision 1078, 382 bytes (checked in by shawnw, 17 months ago)

#7443: regression test rewrite

Line 
1run test:
2test('null.1', $god, 'think null()', '');
3test('null.2', $god, 'think null(a)', '');
4test('null.3', $god, 'think null(a,b,c)', '');
5test('null.4', $god, 'think null(pemit(#1,test))', 'test');
6test('null.5', $god, 'think @@()', '');
7test('null.6', $god, 'think @@(a)', '');
8test('null.7', $god, 'think @@(a,b,c)', '');
9test('null.8', $god, 'think @@(pemit(#1,test))', '');
Note: See TracBrowser for help on using the browser.