pike.git/
src/
testsuite.in
Branch:
Tag:
Non-build tags
All tags
No tags
2008-12-13
2008-12-13 07:19:05 by Martin Nilsson <mani@lysator.liu.se>
849cfb8269337af56b910ad95d2260808ef0f33c (
19
lines) (+
18
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
Test optional.
Rev: src/testsuite.in:1.860
1:
START_MARKER
-
test_true([["$Id: testsuite.in,v 1.
859
2008/
11
/
21
12
:
25
:
52
grubba
Exp $"]]);
+
test_true([["$Id: testsuite.in,v 1.
860
2008/
12
/
13
07
:
19
:
05
nilsson
Exp $"]]);
// This triggered a bug only if run sufficiently early. test_compile_any([[#pike 7.2]])
4290:
test_true(class c { mixed `[]=(mixed a, mixed b) { if(a!=b) throw(1); }}()[1]=1) test_true(class c { mixed `->=(mixed a, mixed b) { if(a!=b) throw(1); }}()->i="i")
+
test_do([[
+
#pragma strict_types
+
class A { int a; optional int x; };
+
class B { int a; };
+
A a = B();
+
return a;
+
]])
+
+
test_compile_error_any([[
+
#pragma strict_types
+
class A { int a; optional int x; };
+
class B { int b; };
+
A a = B();
+
return a;
+
]])
+
test_eq((["static":42])->static,42) test_eq((["protected":42])->protected,42)