pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2001-07-03
2001-07-03 17:31:33 by Henrik Grubbström (Grubba) <grubba@grubba.org>
537f1efe22be8b8a93e8c493f45515302d11c619 (
14
lines) (+
9
/-
5
)
[
Show
|
Annotate
]
Branch:
7.9
Bugfix.
Rev: src/testsuite.in:1.435
1:
-
test_true([["$Id: testsuite.in,v 1.
434
2001/07/03 17:
05
:
40
grubba Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
435
2001/07/03 17:
31
:
33
grubba Exp $"]]);
cond([[all_constants()->_verify_internals]], [[
148:
class Foo { mixed m;
-
}
+
}
;
class Bar { inherit Foo; string m; Foo b;
-
string
f()
{return
werror
("%O",
typeof
(b->m)
)
;
}
+
mixed
f()
{
+
return
typeof(b->m);
}
-
+
};
Foo c; Bar d;
-
return Bar()->f()
+"$"+typeof
(c->m)
+"$"+typeof
(d->m)
+"$"+typeof
(d->b->m);
+
return
sprintf("%O$%O$%O$%O",
+
Bar()->f()
, typeof
(c->m)
, typeof
(d->m)
, typeof
(d->b->m)
)
;
}]], "mixed$mixed$string$mixed") // type checks