mirror of
https://github.com/pennmush/pennmush
synced 2026-08-12 22:23:05 -04:00
0a0a9ad453
* Add basic hardcode test framework. Closes #1238 Now go forth and write all the tests! * Rename all the softcode test case files. testFOO.pl -> testFOO.t because they're not actually proper perl scripts and that was bugging me and causing syntax highlighting problems in editors. * Fix a couple of typos/formatting bugs. * Add some more test cases. * Add some utf8 tests. * Support ancient perl, and better error handling on failed tsort invocation. * More tests and run the tests after loading the database. * Add tests for map_file()
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');
|