pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2002-04-28
2002-04-28 02:27:31 by Martin Stjernholm <mast@lysator.liu.se>
ec3c9d0433b7cfc00191ccff1634e45f4e14900c (
32
lines) (+
31
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
Added a line number test.
Rev: src/testsuite.in:1.500
1:
-
test_true([["$Id: testsuite.in,v 1.
499
2002/04/
26
22
:
48
:
55
nilsson
Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
500
2002/04/
28
02
:
27
:
31
mast
Exp $"]]);
cond([[all_constants()->_verify_internals]], [[
1058:
]]) dnl test_backtrace_line_charset(utf-7)
+
test_program([[
+
class X
+
{
+
static void create (int i)
+
{
+
if (i)
+
error ("foo\n"); // Line 7
+
}
+
}
+
+
int f()
+
{
+
X (0);
+
X (1); // Line 14
+
}
+
+
int a()
+
{
+
array bt = catch (f())[1];
+
int ok = 0;
+
foreach (reverse (bt), object ent)
+
switch (functionp (ent[2]) && function_name (ent[2])) {
+
case "create": if (ent[1] == 7) ok++; break;
+
case "f": if (ent[1] == 14) ok++; break;
+
}
+
return ok == 2;
+
}
+
]])
+
dnl ---------------------------------------------------------------- dnl scopes and stuff dnl ----------------------------------------------------------------