pike.git
/
src
/
testsuite.in
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/testsuite.in:467:
return 0; ]], 0) dnl FIXME: Add test that local and local:: in combination dnl with recursion works correctly. test_eval_error([[mixed x; return mkmapping(x,x)]]); test_eval_error([[class Foo { void bar() {}
-
void foo() {destruct(this
_object(
)
)
;bar();}
+
void foo() {destruct(this);bar();}
}; Foo()->foo(); ]]) test_do([[ void foo (int i) { multiset res = (<>); if (i) res = res; }; foo (1);
pike.git/src/testsuite.in:744:
test_compile_error([[ $1 x; x=$3; ]]) test_compile_error_any([[ class ErrBa { $1 x() { return $3; } } ]]) test_compile_error_any([[ class ErrBa { $1 x() { $2 a=$3; return a; } } ]]) ]]) test_type_error(int,float,17.23) test_type_error(int,array,({1,2,3})) test_type_error(int,mapping,([1:2,3:4])) test_type_error(int,multiset,(<1,2,3>)) test_type_error(int,function,lambda() { return 17; })
-
test_type_error(int,program,
object_program(
this_
object(
)
))
-
test_type_error(int,object,this
_object(
)
)
+
test_type_error(int,program,
this
_program)
+
test_type_error(int,object,this)
test_type_error(float,int,17) test_type_error(float,array,({1,2,3})) test_type_error(float,mapping,([1:2,3:4])) test_type_error(float,multiset,(<1,2,3>)) test_type_error(float,function,lambda() { return 17; })
-
test_type_error(float,program,
object_program(
this_
object(
)
))
-
test_type_error(float,object,this
_object(
)
)
+
test_type_error(float,program,
this
_program)
+
test_type_error(float,object,this)
test_type_error(array,int,17) test_type_error(array,float,17.23) test_type_error(array,mapping,([1:2,3:4])) test_type_error(array,multiset,(<1,2,3>)) test_type_error(array,function,lambda() { return 17; })
-
test_type_error(array,program,
object_program(
this_
object(
)
))
-
test_type_error(array,object,this
_object(
)
)
+
test_type_error(array,program,
this
_program)
+
test_type_error(array,object,this)
test_type_error(mapping,int,17) test_type_error(mapping,float,17.23) test_type_error(mapping,array,({1,2,3})) test_type_error(mapping,multiset,(<1,2,3>)) test_type_error(mapping,function,lambda() { return 17; })
-
test_type_error(mapping,program,
object_program(
this_
object(
)
))
-
test_type_error(mapping,object,this
_object(
)
)
+
test_type_error(mapping,program,
this
_program)
+
test_type_error(mapping,object,this)
test_type_error(multiset,int,17) test_type_error(multiset,float,17.23) test_type_error(multiset,array,({1,2,3})) test_type_error(multiset,mapping,([1:2,3:4])) test_type_error(multiset,function,lambda() { return 17; })
-
test_type_error(multiset,program,
object_program(
this_
object(
)
))
-
test_type_error(multiset,object,this
_object(
)
)
+
test_type_error(multiset,program,
this
_program)
+
test_type_error(multiset,object,this)
test_type_error(function,int,17) test_type_error(function,float,17.23) test_type_error(function,array,({1,2,3})) test_type_error(function,mapping,([1:2,3:4])) test_type_error(function,multiset,(<1,2,3>)) test_type_error(program,int,17) test_type_error(program,float,17.23) test_type_error(program,array,({1,2,3}))
pike.git/src/testsuite.in:1341:
return res; ]],1); test_do(add_constant("test_a")) test_do(add_constant("test_b")) test_do(add_constant("test_c")) test_any( [[ // bug [1858] ------------------------------------------------------------ // http://community/crunch/show_bug.cgi?id=1858 string s=#"
-
constant foo=(
{this_object(
)
})
;
+
constant foo=(
{this}
);
int|string test() { if (!foo[0]) return sprintf(\"foo is %O\\n\",foo)-\"\\n\";
-
if (foo[0]==this
_object(
)
)
return 1;
+
if (foo[0]==this) return 1;
return sprintf(\"foo is %O\\n\",foo)-\"\\n\"; } "; class handler { void compile_error(string file, int line, string err) { }}; catch { program p=compile_string(s,"test",handler()); return p()->test(); }; return 1; // compile error is ok ]],1);
pike.git/src/testsuite.in:2227:
class B { mixed f() { return ({global::this_program, A::this_program, // Works, but not really useful. B::this_program, // Ditto. this_program}); } } } int a() {
-
return equal (A()->B()->f(), ({object_program (this
_object(
)
)
, A, A.B, A.B}));
+
return equal (A()->B()->f(), ({object_program (this), A, A.B, A.B}));
} ]]) test_compile_error([[ mixed x() { return ::x; } ]]) test_program([[
pike.git/src/testsuite.in:3067:
{ protected object foo; mixed `-> (mixed what) { return foo; } int bar () {
-
return (this
_object()
->gazonk == "foo") ? 1 : 0;
+
return (this->gazonk == "foo") ? 1 : 0;
} }; return Test()->bar; ]], 0) test_any([[string gurk="bozo"; string b(int x) { return (x?b(x-1)+gurk:""); }; return b(5)]],[["bozo"*5]]) dnl this should really work... dnl test_compile_any([[void foo(int,string,...);]])
pike.git/src/testsuite.in:3147:
]], [[ Protocols.HTTP.get_url_data ]]) test_compile([[float x=(gauge { return; },1.0);]]) test_compile_error([[object x = Gmp.mpz(17); constant y = x;]]) test_any([[object(Stdio.File) f; f=Stdio.File(); return 1]],1) test_compile([[float t=gauge { string foo; foo; };]]) test_compile_any([[class { object(Stdio.FILE) f; void create() { f=Stdio.FILE(); }}]]) test_eq([[compile_string("#define A(X) (X)\nint x() { return A \n\t(1); }")()->x()]],1) test_any([[class G { mapping t=([]);
-
class tO { void init(string name) { t[name]=this
_object()
; }}
+
class tO { void init(string name) { t[name]=this; }}
class W { inherit tO; void create() { init("foo"); }} }; object x=G(); x->W(); return objectp(x->t->foo)]],1) test_program([[class foo { program x() { return class {}; }}; class bar { inherit foo; program x() { return class {}; }} int a() { return foo()->x != bar()->x(); }]]) test_any([[ class A { constant gurka = 2; int foo = gurka; };
pike.git/src/testsuite.in:4400:
int a, b = 3; for (a = 0; a < b; a++) { ret+=({a,b}); if (a % 2) b-=-1; } return equal(ret,({0,3,1,3,2,4,3,4,4,5})); ]],1) test_compile_error([[void foo() { 1++; }]])
-
dnl test_compile_error([[void foo() { return destruct(this
_object(
)
)
; }]])
+
dnl test_compile_error([[void foo() { return destruct(this); }]])
test_any([[class foo { constant x=17; }; class bar { inherit foo; constant x=18; }; return bar()->x;]],18) test_program([[inline string foo(string s){ while(s[0] == ' ' || s[0] == '\t') s = s[1..]; return(s); } string a() { return foo(" bar"); }]]) // lambda function tests test_true([[lambda(int x) { return lambda() { return x; };}]]) test_eq([[lambda(int x) { return lambda() { return x; };}(4)()]],4) test_eq([[lambda(int x) { return lambda() { return x; };}(17)()]],17) test_eq([[lambda(int x) { return lambda() { return lambda() { return x; };};}(17)()()]],17)
pike.git/src/testsuite.in:4514:
for10() { x++; } return x; ]]) test_any([[ int x; for(int i=5; i < 10; i++) x++; return x; ]], 5)
-
test_true([[lambda(function f) {return 1;}(
object_program(
this_
object(
)
))
;]])
+
test_true([[lambda(function f) {return 1;}(
this
_program);]])
test_any([[ function my_lambda; { string foo = "foo", bar = "bar"; my_lambda = lambda() { return foo; }; } int really_magic_var; return my_lambda(); really_magic_var;
pike.git/src/testsuite.in:5031:
{ werror("_memory_usage()->%s has value %d which is <0\n", type, value); ret = 0; } return ret; ]],1) test_any([[ object q=class {}();
-
object o=Debug.next(this
_object(
)
)
;
+
object o=Debug.next(this);
while(zero_type(o)) o=Debug.next(o); /* skip destructed */ catch { if(objectp(o) || object_program(o)) return 1; };
-
o=Debug.prev(this
_object(
)
)
;
+
o=Debug.prev(this);
while(zero_type(o)) o=Debug.prev(o); /* skip destructed */ catch { if(objectp(o) || object_program(o)) return 1; }; return 0; ]],1) test_any([[object(Stdio.File) o=Stdio.File(); return objectp(o);]],1) test_any([[class Test {}; object(Test) o=Test(); return object_program(o);]],Test) test_define_program(test,[[constant foo = 1; int a() { return foo; }]]) test_true(test()->a()) test_program(inherit test;) test_program(inherit test; int a() { return foo; } ) test_define_program(test,[[class TEST { int a() { return 1; } }]]) test_program(inherit test; inherit TEST; ) test_do(add_constant("test");) test_any([[ /* don't save parent */ class Foo { }; return (!function_object(object_program(Foo()))) && (function_program(object_program(Foo())) ==
-
object_program(
this_
object(
)
))
;
+
this
_program);
]], 1) test_any([[ class Foo { }; return function_name(object_program(Foo())); ]], "Foo") test_any([[ int q; return stringp(function_name( lambda() { return q; }));
pike.git/src/testsuite.in:5084:
test_any([[ // Named trampoline. int q; int foo() { return q; }; return function_name(foo); ]], "foo") test_any([[ int q; return function_object( lambda() { return q; });
-
]],[[this
_object()
]])
+
]],[[this]])
test_compile(class c { object(Stdio.File) foo=class foobar {} ();}) test_compile(class c { object(Stdio.File) foo=class {} ();}) test_compile_error(class c { object(Stdio.File) foo=class {float is_file;} ();}) test_compile(class c { object(Stdio.File) foo=class { int is_file;} ();}) test_do(class c { object foo; object(Stdio.File) bar=foo; }) test_do(class c { object foo; Stdio.File bar=foo; }) test_do(class c { object(Stdio.File) foo; object bar=foo; }) test_do(class c { Stdio.File foo; object bar=foo; })
pike.git/src/testsuite.in:6233:
test_any_equal([[{ array a = set_weak_flag(({4711, 0x54325827a124*0x12348795482485425}), 1); gc(); return set_weak_flag(a, 0); }]], ({4711, 0x54325827a124*0x12348795482485425})) test_any_equal([[{ object o = class Live { array g; array a = ({17});
-
void create() {g = (
{this_object(
)
})
;}
+
void create() {g = (
{this}
);}
void destroy() {all_constants()->kablutt = a;} }(); o = 0; gc(); return all_constants()->kablutt; }]], ({17})); test_any([[{ object o = class Live { array g; array a = set_weak_flag (({({17})}), 1);
-
void create() {g = (
{this_object(
)
})
;}
+
void create() {g = (
{this}
);}
void destroy() { if (!equal (a, ({({17})}))) error ("Contents in weak array zapped: %O.\n", a); } }(); o = 0; return gc() >= 3; }]], 1); test_any_equal([[{ object o = class Live { array g; array a = set_weak_flag (({({17})}), 1);
-
void create() {g = (
{this_object(
)
})
;}
+
void create() {g = (
{this}
);}
void destroy() {all_constants()->blatinka = a;} }(); o = 0; gc(); if (!equal (all_constants()->blatinka, ({({17})}))) error ("Contents in saved weak array zapped: %O.\n", all_constants()->blatinka); gc(); return all_constants()->blatinka; }]], ({0}));
pike.git/src/testsuite.in:6346:
multiset a = (<>), b = (<a, set_weak_flag ((<a>), 1)>); multiset x = set_weak_flag ((<a>), 1); a[b] = 1; a = b = 0; gc(); return !sizeof (x); }]], 1); test_any([[{ class Foo {
-
array(Foo) f = (
{this_object(
)
})
;
-
multiset(Foo) g = set_weak_flag((<this
_object()
>), 1);
+
array(Foo) f = (
{this}
);
+
multiset(Foo) g = set_weak_flag((<this>), 1);
}; multiset(Foo) x = set_weak_flag ((<Foo()>), 1); gc(); return !sizeof (x); }]], 1); test_any([[{ class Foo {
-
array(Foo) f = (
{this_object(
)
})
;
-
multiset(Foo) g = set_weak_flag((<this
_object()
>), 1);
+
array(Foo) f = (
{this}
);
+
multiset(Foo) g = set_weak_flag((<this>), 1);
void destroy() {add_constant("beltbent_oblivion", 1);} }; multiset(Foo) x = set_weak_flag ((<Foo()>), 1); gc(); int res = all_constants()->beltbent_oblivion; add_constant("beltbent_oblivion"); return res; }]], 1); test_any([[{
pike.git/src/testsuite.in:6379:
x[0] = x; multiset b = set_weak_flag ((<x>), 1); array a = ({17}); b[a] = 1; x = 0; return gc() >= 1; }]], 1); test_any([[{ gc();
-
array a = set_weak_flag (({0,
this_object(
)
})
, 1);
+
array a = set_weak_flag (({0,
this}
), 1);
a[0] = a; a = 0; return gc() >= 1; }]], 1); test_any([[{ gc(); array y = set_weak_flag (({0}), 1), z = set_weak_flag (({y}), 1); y[0] = z; y = z = 0; return gc() >= 2; }]], 1); test_any([[{ class Live { array a;
-
array g = (
{this_object(
)
})
;
+
array g = (
{this}
);
void create() { a = set_weak_flag (({0}), 1); array b = set_weak_flag (({a}), 1); a[0] = b; } void destroy() { if (!arrayp(a) || !arrayp(a[0]) || a[0][0] != a) add_constant ("my_little_error", "GC garbed weak things too early.\n");
pike.git/src/testsuite.in:6440:
int i; class Bar { int j = i++; // Ensure parent pointer. array a = ({j}); } Live l; void create (Live _l) { l = _l;
-
l->f = this
_object()
;
+
l->f = this;
} array a = allocate (2, Bar)(); }; object o = Foo(Live()); o = 0; gc(), gc(); if (all_constants()->my_little_error) error (all_constants()->my_little_error); }]]);
pike.git/src/testsuite.in:6626:
mapping a = set_weak_flag (([1: 1, "foo": "foo", 3.14: 3.14]), 1); gc(); return set_weak_flag(a, 0); }]], ([1: 1, "foo": "foo", 3.14: 3.14])); test_do([[{ object f = class { object o = class {}(); array a = set_weak_flag (({o}), 1);
-
object this = this
_object()
;
+
object this = this;
void create() {destruct (o);} }(); f = 0; gc(); }]]); test_do([[{ object f = class { object o = class {}(); mapping m = set_weak_flag (([1:o]), 1);
-
object this = this
_object()
;
+
object this = this;
void create() {destruct (o);} }(); f = 0; gc(); }]]); test_do([[{ object f = class { object o = class {}(); mapping m = set_weak_flag (([o:1]), 1);
-
object this = this
_object()
;
+
object this = this;
void create() {destruct (o);} }(); f = 0; gc(); }]]); test_do([[{ object f = class { object o = class {}(); multiset m = set_weak_flag ((<o>), 1);
-
object this = this
_object()
;
+
object this = this;
void create() {destruct (o);} }(); f = 0; gc(); }]]); test_tests([[inherit "]]SRCDIR[[/test_gc.pike";]]) test_any([[mapping q=([ "t":class {} ()]); gc(); if(!objectp(q->t)) return -1; set_weak_flag(q,1); gc(); if(objectp(q->t)) return -2; return 0;]],0);
pike.git/src/testsuite.in:6810:
o = 0; gc(); ]]) test_any([[ return class { mapping x; int test() { object o = class {
-
mapping a = ([1: this
_object()
]);
+
mapping a = ([1: this]);
void destroy() {x = a;} }(); o = 0; gc(); return x && !x[1]; } }()->test(); ]], 1) test_any([[ return class { multiset x; int test() { object o = class {
-
multiset a = (<this
_object()
>);
+
multiset a = (<this>);
void destroy() {x = a;} }(); o = 0; gc(); return x && !sizeof (indices (x + (<>))); } }()->test(); ]], 1) test_any([[ return class { array x; int test() { object o = class {
-
array a = (
{this_object(
)
})
;
+
array a = (
{this}
);
void destroy() {x = a;} }(); o = 0; gc(); return x && !x[0]; } }()->test(); ]], 1) test_any([[ return class { class Obj (object o) {void destroy() {}} Obj x; int test() { object o = class {
-
Obj a = Obj (this
_object(
)
)
;
+
Obj a = Obj (this);
void destroy() {x = a;} }(); o = 0; gc(); return !x; } }()->test(); ]], 1) test_any([[ return class { class Obj (object o) {} Obj x; int test() { object o = class {
-
Obj a = Obj (this
_object(
)
)
;
+
Obj a = Obj (this);
void destroy() {x = a;} }(); o = 0; gc(); return x && !x->o; } }()->test(); ]], 1) // Pike.count_memory
pike.git/src/testsuite.in:8130:
// ------------------------------------------------------------- // Basics test_true(1) test_true("") test_true(!0) test_true(!(!1))
-
test_true(this
_object(
)
)
+
test_true(this)
test_true(a) // a is the test function test_true(0.0) test_true(([])) test_true(({})) test_true((<>))
-
test_true(
object_program(
this_
object(
)
))
+
test_true(
this
_program)
// testing ! test_equal(!"",0)
-
test_equal(!this
_object()
,0)
+
test_equal(!this,0)
// testing == test_true(1==1) test_true(!(1==2)) test_true(""=="") test_true(!(""=="foo"))
-
test_true(this
_object()
==this
_object(
)
)
+
test_true(this==this)
test_true(2.0==2.0) test_true(({})==({})) // testing != test_true(({1})!=({1})) test_true(1!=2) test_true(!(1==2)) test_true(!(""!="")) test_true(""!="foo")
pike.git/src/testsuite.in:8219:
test_eq((-1.0)+(-1.0),-2.0) test_eq(1.0+1,2.0) test_eq(1+1.0,2.0) test_eq(1+(-1.0),0.0) test_eq(1.0+(-1),0.0) test_eq((-1)+(-1.0),-2.0) test_eq((-1.0)+(-1),-2.0) test_equal(({1,2,3})+({4,5,6}),({1,2,3,4,5,6})) test_equal((<1,2,3,4>)+(<4,5,6>),(<1,2,3,4,4,5,6>)) test_equal(([0:1,3:6])+([5:2,3:6]),([0:1,3:6,3:6,5:2]))
-
test_eval_error(return this
_object()
+ this
_object(
)
)
+
test_eval_error(return this + this)
test_any(return((1+2+3)-(1+2-3)), 6) // testing F_APPEND_MAPPING test_any([[ // F_APPEND_MAPPING is not used when adding constant mappings string index = "foo"; mapping m = ([ "foo" : 1 ]); m += ([ index : 2 ]); return m->foo; ]], 2)
pike.git/src/testsuite.in:8500:
test_eq(47>>3,5) test_eq(-10>>10000,-1) test_eval_error(return 17>>-10) // testing ? : test_true(0?0:1) test_true(1?1:0) test_true(""?1:0) test_true(!0?1:0) test_true(!(!1)?1:0)
-
test_true(this
_object()
?1:0)
+
test_true(this?1:0)
test_true(a?1:0) // a is the test function test_true(0.0?1:0) test_true(([])?1:0) test_true(({})?1:0) test_true((<>)?1:0)
-
test_true(
object_program(
this_
object())
?1:0)
+
test_true(
this
_program?1:0)
test_eq(1 ? "a" : 1 ? "b" : 1, "a") test_eq(0 ? "a" : 1 ? "b" : 1 ? "c" : 1, "b") test_eq(0 ? "a" : 0 ? "b" : 1 ? "c" : 1, "c") // testing overflow checks test_eq(-1 - 0x7fffffff, -0x80000000) test_eq(Int.NATIVE_MIN % -1, 0) test_eq(Int.NATIVE_MAX % Int.NATIVE_MIN, -1) // testing indexing
pike.git/src/testsuite.in:8554:
test_eq(([0:'f',1:'o',2:'o'])[0],'f') test_eq(([0:'f',1:'o',2:'o'])[1],'o') test_eq(([0:'f',1:'o',2:'o'])[2],'o') test_eq(([0:'f',1:'o',2:'o'])[random(0)+3],0) test_eq(([0:'f',1:'o',2:'o'])[random(0)-1],0) test_eq((<'f','o','o'>)['o'],1) test_eq((<'f','o','o'>)['f'],1) test_eq((<'f','o','o'>)[random(0)+'b'],0) test_eq((<'f','o','o'>)[ [int](mixed)-1],0)
-
test_eq([[class Z { mixed `->(mixed x) { return this
_object()
[x]; } int foo() { return 1; }}()->foo()]],1)
+
test_eq([[class Z { mixed `->(mixed x) { return this[x]; } int foo() { return 1; }}()->foo()]],1)
// Test some indexing opcodes. test_eval_error([[return ({1})[1];]]) test_eval_error([[int i = 1; return ({1})[i];]]) test_eval_error([[array a = ({ 1 }); return a[1];]]) test_eval_error([[array a = ({ 1 }); int i = 1; return a[i];]]) // index assigning test_any(mixed a=({1}); a[0]=2; return equal(a,({2})),1) test_any(mixed a=(<1>); a[1]=2; return equal(a,(<1>)),1)
pike.git/src/testsuite.in:8887:
// testing control structs test_any(return 1,1) test_any(return lambda(){return 1;} (),1 ) test_any(if(0) return 0; else return 1,1) test_any(if(0) return 0; return 1,1) test_any(if(1) return 1; else return 0,1) test_any(if("") return 1; else return 0,1) test_any(if(!0) return 1; else return 0,1) test_any(if(!(!1)) return 1; else return 0,1)
-
test_any(if(this
_object(
)
)
return 1; else return 0,1)
+
test_any(if(this) return 1; else return 0,1)
test_any(if(a) return 1; else return 0,1) dnl a is the test function test_any(if(0.0) return 1; else return 0,1) test_any(if(([])) return 1; else return 0,1) test_any(if(({})) return 1; else return 0,1) test_any(if((<>)) return 1; else return 0,1)
-
test_any(if(
object_program(
this_
object(
)
))
return 1; else return 0,1)
+
test_any(if(
this
_program) return 1; else return 0,1)
// break test_any(while(1) break; return 1,1) test_any(while(1) if(1) break; return 1,1) // for test_program( array(int) ia=({1,2,3,4,5,6}); int a()
pike.git/src/testsuite.in:9195:
test_switch3($2,$2,$3,$4,$5,2) test_switch3($3,$2,$3,$4,$5,3) test_switch3($4,$2,$3,$4,$5,4) test_switch3($5,$2,$3,$4,$5,5) ]]) test_switch4(17,18,19,20,21) test_switch4("a","b","c","d","e") test_switch4("a",0,"c","d","e") test_switch4(1.0,2.0,3.0,4.0,5.0)
-
test_switch4(this
_object()
,"",0,4.0,1)
+
test_switch4(this,"",0,4.0,1)
test_any(int e;string t=""; for(e=0;e<10;e++) switch(e) { default: t+=e; case 4..8: } return t,"01239") // use sprintf here; the sums aren't totally equal for doubles (error~=1e-16) test_any([[float e,q; q=0.0; for(e=0.1;e<10.0;e+=1.0) switch(e) { default: q+=e; case 4.0..8.0: } return sprintf("%.6f",q)]],[[sprintf("%.6f",0.1+1.1+2.1+3.1+8.1+9.1)]]) test_compile_error([[switch (1) {case 1: break; case 1: break;}]]) test_compile_error([[switch (1) {case 1: break; case 0..2: break;}]]) test_compile_error([[switch (1) {case 1..2: break; case 0..3: break;}]]) test_compile_error([[switch (1) {case 1..3: break; case 0..2: break;}]])
pike.git/src/testsuite.in:10382:
constant cif_defines = #" <input align='&_.img-align;' type='image' name='&_.name;' value='&_.contents;' src='&var.url;' border='0' /> </define>"; ]]) // foop define(do_test_foop,[[ test_eq($1 (17), !($2)) test_eq($1 (1.7), !($2-1)) test_eq($1 ("17"), !($2-2))
-
test_eq($1 (this
_object(
)
)
, !($2-3))
+
test_eq($1 (this), !($2-3))
test_eq($1 (a), !($2-4)) // a is the test function test_eq($1 (({})), !($2-5)) test_eq($1 (([])), !($2-6)) test_eq($1 ((<>)), !($2-7))
-
test_eq($1 (
object_program(
this_
object(
)
))
, !($2-8))
+
test_eq($1 (
this
_program), !($2-8))
test_eq($1 (typeof(1)), 0) ]]) do_test_foop(intp,0) do_test_foop(floatp,1) do_test_foop(stringp,2) do_test_foop(objectp,3) do_test_foop(functionp,4) do_test_foop(arrayp,5) do_test_foop(mappingp,6)
pike.git/src/testsuite.in:10742:
return 0; ]], 0) cond_end // thread_create // - copy_value test_eq(copy_value(1),1) test_eq(copy_value(""),"") test_eq(copy_value(1.0),1.0)
-
test_eq(copy_value(this
_object(
)
)
,this
_object(
)
)
+
test_eq(copy_value(this),this)
test_eq(copy_value(a),a) test_eq(copy_value(typeof(true)),typeof(true)) define(do_test_copy_value,[[ test_any([[mixed x=$1; return x==x]],1) test_any([[mixed x=$1; return copy_value(x)!=x]],1) test_any([[mixed x=$1; return equal(copy_value(x),x)]],1)]]) do_test_copy_value( ({1}) ) do_test_copy_value( ([]) ) do_test_copy_value( (<>) ) do_test_copy_value( (< ([]), ({1}) ,"" , 1.0 >) )
pike.git/src/testsuite.in:10893:
// - floor // Tested in _math // - fork // - function_name test_eq(function_name(a),"a") test_eq(function_name(function_name),0) // - function_object
-
test_eq(function_object(a),this
_object(
)
)
+
test_eq(function_object(a),this)
test_eq(function_name(function_object),0) // - function_program // - functionp // Tested in foop // - gc // gc is already tested above
pike.git/src/testsuite.in:11463:
// - multisetp // Tested in foop // - mv // - normalize_path // Tested in lib // - object_program test_true(programp(object_program(this_object())))
+
test_true(object_program(this)==this_program)
// - object_variablep // - openlog // - pow // Tested in _math // - programp // Tested in foop
pike.git/src/testsuite.in:12065:
string a() {return A()->B()->f();} ]], "gABBBB") test_program_eq([[ string _sprintf() {return "g";} class A { string _sprintf() {return "A";} class B { string _sprintf() {return "B";} mixed f() {
-
return sprintf ("%O%O%O%O",
-
this_object (2), this_object (1), this_object (0), this_object());
+
return sprintf ("%O%O%O%O
%O
",
+
this_object (2), this_object (1), this_object (0), this_object()
, this
);
} } } string a() {return A()->B()->f();}
-
]], "
gABB
")
+
]], "
gABBB
")
test_program_eq([[ string _sprintf() {return "g";} class A { string _sprintf() {return "A";} class B { string _sprintf() {return "B";} mixed f() { return map (({2, 1, 0}), lambda (int l) { return sprintf ("%O", this_object (l));
pike.git/src/testsuite.in:12361:
if (id == "X") return X; return master()->resolv (id, file, handler); } } object a() { object o = compile_string ("inherit X;", 0, Handler())(); return o->parent(); }
-
]], this
_object(
)
)
+
]], this)
// - this_thread // - thread_create // - thread_local // - throw test_eq(20,catch(throw(a()))) // - time