PennMUSH Community

root/1.8.3/trunk/test/teststringsecs.pl

Revision 1117, 0.6 kB (checked in by shawnw, 1 year ago)

Merge with devel

Line 
1 login mortal
2 run tests:
3 test('stringsecs.1', $mortal, 'think stringsecs(a)', '#-1 INVALID TIMESTRING');
4 test('stringsecs.2', $mortal, 'think stringsecs(10)', '10');
5 test('stringsecs.3', $mortal, 'think stringsecs(10s)', '10');
6 test('stringsecs.4', $mortal, 'think stringsecs(5m)', '300');
7 test('stringsecs.5', $mortal, 'think stringsecs(5m 10s)', '310');
8 test('stringsecs.6', $mortal, 'think stringsecs(1h)', '3600');
9 test('stringsecs.7', $mortal, 'think stringsecs(10s 5m)', '310');
10 test('stringsecs.8', $mortal, 'think stringsecs(1d 2h 3m 4s)', '93784');
11 test('stringsecs.9', $mortal
12      , 'think stringsecs(h)', '#-1 INVALID TIMESTRING');
Note: See TracBrowser for help on using the browser.