PennMUSH Community

root/1.8.3/trunk/test/testdecompose.pl

Revision 1117, 511 bytes (checked in by shawnw, 11 months ago)

Merge with devel

Line 
1 login mortal
2 run test:
3 test('decompose.1', $mortal, 'think decompose([ansi(hr,b[ansi(f,la)]h)])', '\[ansi\(hr,b(\)\])?\[ansi\((?(1)fhr|f),la\)\](?(1)\[ansi\(hr,h|h)\)\]');
4 test('decompose.2', $mortal, 'think decompose(a\ \ \ \ b)', 'a %b %bb');
5 test('decompose.3', $mortal, 'think decompose(s(tab%treturn%r))', 'tab%treturn%r');
6 test('decompose.4', $mortal, 'think decompose(before(ansi(h,x),x)hello)', 'hello');
7 test('decompose.5', $mortal, 'think decompose([before(ansi(h,blah),\[)])', '\[ansi\(h,blah\)\]');
Note: See TracBrowser for help on using the browser.