| 1234567891011121314151617181920212223242526272829303132333435 |
- proc mismatch*[T](lhs: T, rhs: T): string =
- ## Simplified version of `unittest.require` that satisfies a common use case,
- ## while avoiding pulling too many dependencies. On failure, diagnostic
- ## information is provided that in particular makes it easy to spot
- ## whitespace mismatches and where the mismatch is.
- proc replaceInvisible(s: string): string =
- for a in s:
- case a
- of '\n': result.add "\\n\n"
- else: result.add a
- proc quoted(s: string): string = result.addQuoted s
- result.add '\n'
- result.add "lhs:{" & replaceInvisible(
- $lhs) & "}\nrhs:{" & replaceInvisible($rhs) & "}\n"
- when compiles(lhs.len):
- if lhs.len != rhs.len:
- result.add "lhs.len: " & $lhs.len & " rhs.len: " & $rhs.len & '\n'
- when compiles(lhs[0]):
- var i = 0
- while i < lhs.len and i < rhs.len:
- if lhs[i] != rhs[i]: break
- i.inc
- result.add "first mismatch index: " & $i & '\n'
- if i < lhs.len and i < rhs.len:
- result.add "lhs[i]: {" & quoted($lhs[i]) & "}\nrhs[i]: {" & quoted(
- $rhs[i]) & "}\n"
- result.add "lhs[0..<i]:{" & replaceInvisible($lhs[
- 0..<i]) & '}'
- proc assertEquals*[T](lhs: T, rhs: T, msg = "") =
- if lhs != rhs:
- doAssert false, mismatch(lhs, rhs) & '\n' & msg
|
