| 1 | run tests: |
|---|
| 2 | test('trimpenn.1', $god, 'think trimpenn(XXXfooXXX, X, l)', 'fooXXX'); |
|---|
| 3 | test('trimpenn.2', $god, 'think trimpenn(XXXfooXXX, X, r)', 'XXXfoo'); |
|---|
| 4 | test('trimpenn.3', $god, 'think trimpenn(XXXfooXXX, X, b)', 'foo'); |
|---|
| 5 | test('trimpenn.4', $god, 'think trimpenn(XXXfooXXX, Y, l)', 'XXXfooXXX'); |
|---|
| 6 | |
|---|
| 7 | test('trimtiny.1', $god, 'think trimtiny(XXXfooXXX, L, X)', 'fooXXX'); |
|---|
| 8 | test('trimtiny.2', $god, 'think trimtiny(XXXfooXXX, R, X)', 'XXXfoo'); |
|---|
| 9 | test('trimtiny.3', $god, 'think trimtiny(XXXfooXXX, B, X)', 'foo'); |
|---|
| 10 | test('trimtiny.4', $god, 'think trimtiny(XXXfooXXX, l, Y)', 'XXXfooXXX'); |
|---|
| 11 | |
|---|
| 12 | $god->command('@config/set tiny_trim_fun=yes'); |
|---|
| 13 | test('trim.1', $god, 'think trim(XXXfooXXX, l, X)', 'fooXXX'); |
|---|
| 14 | $god->command('@config/set tiny_trim_fun=no'); |
|---|
| 15 | test('trim.2', $god, 'think trim(XXXfooXXX, X, l)', 'fooXXX'); |
|---|
| 16 | test('trim.3', $god, 'think @[trim(%b%bfoo%b%b)]@', 'foo'); |
|---|
| 17 | |
|---|
