| 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 |
|
|---|
| 18 |
|
|---|
