| 1 |
run tests: |
|---|
| 2 |
$god->command('@config/set tiny_math=no'); |
|---|
| 3 |
test('ljust.1', $god, "think ljust(foo, 3)", 'foo'); |
|---|
| 4 |
test('ljust.2', $god, "think ljust(foo, 5)X", '^foo X'); |
|---|
| 5 |
test('ljust.3', $god, "think ljust(foo, 5, =)", '^foo=='); |
|---|
| 6 |
test('ljust.4', $god, "think ljust(foo, 2)", '^foo'); |
|---|
| 7 |
test('ljust.5', $god, "think ljust(foo, -3)", '^#-1 ARGUMENT MUST BE POSITIVE INTEGER'); |
|---|
| 8 |
|
|---|
| 9 |
test('rjust.1', $god, "think rjust(foo, 3)", 'foo'); |
|---|
| 10 |
test('rjust.2', $god, "think rjust(foo, 5)", '^ foo'); |
|---|
| 11 |
test('rjust.3', $god, "think rjust(foo, 5, =)", '^==foo'); |
|---|
| 12 |
test('rjust.4', $god, "think rjust(foo, 2)", '^foo'); |
|---|
| 13 |
test('rjust.5', $god, "think rjust(foo, -3)", '^#-1 ARGUMENT MUST BE POSITIVE INTEGER'); |
|---|
| 14 |
|
|---|
| 15 |
test('center.1', $god, "think center(foo, 3)", 'foo'); |
|---|
| 16 |
test('center.2', $god, "think #[center(fo, 3)]#", '^#fo #'); |
|---|
| 17 |
test('center.3', $god, "think center(foo, 5)X", '^ foo X'); |
|---|
| 18 |
test('center.4', $god, "think center(foo, 5, =)", '^=foo='); |
|---|
| 19 |
test('center.5', $god, "think center(foo, 2)", '^foo'); |
|---|
| 20 |
test('center.6', $god, "think center(foo, -3)", '^#-1 ARGUMENT MUST BE POSITIVE INTEGER'); |
|---|
