pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2014-11-24
2014-11-24 09:11:12 by Stephen R. van den Berg <srb@cuci.nl>
1a3aec3c9af4f80da50f118f7b87f30e412c43bd (
27
lines) (+
27
/-
0
)
[
Show
|
Annotate
]
Branch:
8.1
Reinstate legacy hash functions for the benefit of legacy network protocols.
10981:
test_eval_error( return hash("foo",0) ) test_eval_error( return hash("foo",-1) )
+
// - hash_7_4
+
define(test_hash_7_4, [[
+
test_any([[
+
int i = hash_7_4($1);
+
return ]]dnl
+
ifelse([[$3]],,, [[((i==$2)||(i==$3))?$2:]])dnl
+
[[i;
+
]], $2)
+
]])
+
test_hash_7_4("foo",2091538203)
+
test_hash_7_4([["foo",10]],3)
+
test_hash_7_4("bar",2091518428)
+
test_hash_7_4([["bar",10]],8)
+
test_hash_7_4("b\666arqwerty1234", 2142487018, 1858424874)
+
test_hash_7_4("",0)
+
test_eval_error( return 7.4::hash("foo",0) )
+
+
// - hash_7_0
+
test_eq([[ hash_7_0("foo") ]],27734)
+
test_eq([[ hash_7_0("foo",10) ]],4)
+
test_eq([[ hash_7_0("bar") ]],26689)
+
test_eq([[ hash_7_0("bar",10) ]],9)
+
test_eq([[ hash_7_0("b\666arqwerty1234", 2142487018) ]], 1858424874)
+
test_eq([[ hash_7_0("") ]],0)
+
test_eval_error( return hash_7_0("foo",0) )
+
// - hash_value define(test_hash_value, [[ test_true(intp(hash_value($1)))