mirror of
https://github.com/pennmush/pennmush
synced 2026-08-12 22:23:05 -04:00
153dd4d77c
git-svn-id: https://pennmush.googlecode.com/svn/trunk@885 ba372814-4f39-11de-9ad6-1127a62b9fcd
15 lines
882 B
Raku
15 lines
882 B
Raku
run tests:
|
|
test('insert.1', $god, 'think insert(a b c,0,X)', 'a b c');
|
|
test('insert.2', $god, 'think insert(a b c,1,X)', 'X a b c');
|
|
test('insert.3', $god, 'think insert(a b c,2,X)', 'a X b c');
|
|
test('insert.4', $god, 'think insert(a b c,3,X)', 'a b X c');
|
|
test('insert.5', $god, 'think insert(a b c,4,X)', 'a b c');
|
|
test('insert.6', $god, 'think insert(a b c,-1,X)', 'a b c X');
|
|
test('insert.7', $god, 'think insert(a b c,-2,X)', 'a b X c');
|
|
test('insert.8', $god, 'think insert(a b c,-3,X)', 'a X b c');
|
|
test('insert.9', $god, 'think insert(a b c,-4,X)', 'a b c');
|
|
test('insert.10', $god, 'think insert(a|b|c,0,|)', 'a|b|c');
|
|
test('insert.11', $god, 'think insert(a|b|c,1,|)', 'X|a|b|c');
|
|
test('insert.12', $god, 'think insert(a|b|c,-1,|)', 'a|b|c|X');
|
|
test('insert.13', $god, 'think insert(a|b|c,2,|)', 'a|X|b|c');
|
|
test('insert.14', $god, 'think insert(a|b|c,-2,|)', 'a|b|X|c');
|