ref: 2b9c96053f0d6947452862d89217541b96492241
parent: 69c70ba14ea083bf65395ee45f3aff5956e77d83
author: Ori Bernstein <ori@eigenstate.org>
date: Fri Jun 10 05:27:37 EDT 2016
Fix chomp.
--- a/lib/std/test/chomp.myr
+++ b/lib/std/test/chomp.myr
@@ -1,7 +1,16 @@
use std
const main = {- std.assert(std.sleq(std.chomp("aaab", "aaa"), "b"), "expected chomp(aaab, aaa) => b\n")- std.assert(std.sleq(std.chomp("aaa", "aaa"), ""), "expected chomp(aaa,aaa) => ''\n")- std.assert(std.sleq(std.chomp("aa", "aaa"), "aa"), "expected chomp(aa,aaa) => aa\n")+ check("aaab", "aaa", "b")+ check("aaa", "aaa", "")+ check("aa", "aaa", "aa")+}
+
+const check = {sl, pfx, expected+ var r
+
+ r = sl
+ std.chomp(&r, pfx)
+ std.assert(std.sleq(r, expected), \
+ "expected chomp({}, {}) => {}, got {}\n", sl, pfx, expected, r)}
--
⑨