Expected `runtime["user.self"]` <= `2.5 * runtime["elapsed"]`.
Actual comparison: 0.0300 > 0.0250
Difference: 0.0050 > 0

b <- stringdist(nameys, shuff_nameys, method = "hamming")
expect_true(all((a == Inf) %in% (b == Inf)))
expect_true(all((b == Inf) %in% (a == Inf)))
expect_true(all(abs(a[a != Inf] - b[b != Inf]) < .01))
runtime <- system.time(hamming_distance(nameys, shuff_nameys, nthread = 2))