| 1 | run tests: |
|---|
| 2 | test('reswitch.1', $god, 'think reswitch(test STRING,t,1,0)', '1'); |
|---|
| 3 | test('reswitch.2', $god, 'think reswitch(test STRING,t,1,e,2,0)', '1'); |
|---|
| 4 | test('reswitch.3', $god, 'think reswitch(test STRING,E,1,0)', '0'); |
|---|
| 5 | test('reswitch.4', $god, 'think reswitch(test STRING,.\{4\}\\\s\[A-Z\]\{6\},9,t,1,E,2,0)', '9'); |
|---|
| 6 | |
|---|
| 7 | test('reswitch.5', $god, 'think reswitchall(test STRING,t,1,0)', '1'); |
|---|
| 8 | test('reswitch.6', $god, 'think reswitchall(test STRING,t,1,e,2,0)', '12'); |
|---|
| 9 | test('reswitch.7', $god, 'think reswitchall(test STRING,E,1,0)', '0'); |
|---|
| 10 | test('reswitch.8', $god, 'think reswitchall(test STRING,.\{4\}\\\s\[A-Z\]\{6\},9,t,1,E,2,0)', '91'); |
|---|
| 11 | |
|---|
| 12 | test('reswitch.9', $god, 'think reswitchi(test STRING,t,1,0)', '1'); |
|---|
| 13 | test('reswitch.10', $god, 'think reswitchi(test STRING,t,1,e,2,0)', '1'); |
|---|
| 14 | test('reswitch.11', $god, 'think reswitchi(test STRING,E,1,0)', '1'); |
|---|
| 15 | test('reswitch.12', $god, 'think reswitchi(test STRING,.\{4\}\\\s\[A-Z\]\{6\},9,t,1,E,2,0)', '9'); |
|---|
| 16 | |
|---|
| 17 | test('reswitch.13', $god, 'think reswitchalli(test STRING,t,1,0)', '1'); |
|---|
| 18 | test('reswitch.14', $god, 'think reswitchalli(test STRING,t,1,e,2,0)', '12'); |
|---|
| 19 | test('reswitch.15', $god, 'think reswitchalli(test STRING,E,1,0)', '1'); |
|---|
| 20 | test('reswitch.16', $god, 'think reswitchalli(test STRING,.\{4\}\\\s\[A-Z\]\{6\},9,t,1,E,2,0)', '912'); |
|---|
