pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2014-08-11
2014-08-11 20:57:16 by Martin Nilsson <nilsson@opera.com>
067ddda719ca947e4d24414d8d87be29f63d350d (
37
lines) (+
7
/-
30
)
[
Show
|
Annotate
]
Branch:
8.0
Remove Pike 7.0 support. We now only support post-2000 code.
3:
// This triggered a bug only if run sufficiently early. test_compile_any([[#pike 7.2]]) test_compile_any([[#pike 7.4]])
-
test_compile_any([[#pike 7.0]])
+
test_compile_any([[#pike 7.6]]) test_compile_any([[#pike 7.8]])
10936:
test_eval_error( return 7.4::hash("foo",0) ) // - hash_7_0
-
define(
test_
hash_7_0, [[
-
ignore_warning
(
"Calling a deprecated value.",
[[
-
test_any([[
-
int i =
hash_7_0(
$1
)
;
-
return
]]
dnl
-
ifelse([[$3]]
,
,, [[((i==$2
)
||(i==$3))?$2:]])dnl
-
[[i;
-
]], $2)
-
]])
-
test_
any
([[
-
int i =
7
.
0
::hash
(
$1);
-
return ]]dnl
-
ifelse([[$3]]
,
,, [[((i==$2
)
||(i==$3))?$2:]])dnl
-
[[i;
-
]],
$2
)
-
test_
any
([[
-
#pike
7.0
-
int i =
hash
($1);
-
return ]]dnl
-
ifelse([[$3]],,, [[((i==$2)||(i==$3))?$2:]])dnl
-
[[i;
-
]], $2)
-
]])
-
test
_
hash_
7_0("
foo
"
,27734
)
-
test_hash_7_0([["foo",10
]],
4)
-
test_hash_7_0("bar",
26689)
-
test_hash_7_0(
[[
"bar",10]],9)
-
test_hash_7_0("b\666arqwerty1234", 2142487018, 1858424874)
-
test_hash_7_0("",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