|
Revision 1117, 445 bytes
(checked in by shawnw, 11 months ago)
|
Merge with devel
|
| Line | |
|---|
| 1 |
run tests: |
|---|
| 2 |
test('tr.1', $god, 'think tr(test STRING,,)', 'test STRING'); |
|---|
| 3 |
test('tr.2', $god, 'think tr(test STRING,t,)', '#-1'); |
|---|
| 4 |
test('tr.3', $god, 'think tr(test STRING,,t)', '#-1'); |
|---|
| 5 |
test('tr.4', $god, 'think tr(test STRING,t,f)', 'fesf STRING'); |
|---|
| 6 |
test('tr.5', $god, 'think tr(test STRING,tT,fF)', 'fesf SFRING'); |
|---|
| 7 |
test('tr.6', $god, 'think tr(test STRING,Tt,Ff)', 'fesf SFRING'); |
|---|
| 8 |
test('tr.7', $god, 'think tr(test STRING,te,et)', 'etse STRING'); |
|---|
