pike.git/ src/ testsuite.in

Branch: Tag:

1999-08-17

1999-08-17 01:08:29 by Martin Stjernholm <mast@lysator.liu.se>

Some tests of global `[]=, `->= and the ->= operator.

Rev: src/testsuite.in:1.187

1: - stest_true([["$Id: testsuite.in,v 1.186 1999/08/09 04:15:22 mast Exp $"]]) + stest_true([["$Id: testsuite.in,v 1.187 1999/08/17 01:08:29 mast Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
587:      test_compile_any(class A {}; class B { inherit A; })    + test_any_equal(array a = ({({1,0,0}),({1,1,0}),({0,1,1})}); return map(a,`[],1);, +  ({0,1,1})) + test_any_equal(array a = ({({1,0,0}),({1,1,0}),({0,1,1})}); map(a,`[]=,1,0); return a;, +  ({({1,0,0}),({1,0,0}),({0,0,1})})) + test_any_equal(array a = ({(<1>),(<1,2>),(<2,3>),(<1,3>)}); return map(a,`[],1);, +  ({1,1,0,1})) + test_any_equal(array a = ({(<1>),(<1,2>),(<2,3>),(<1,3>)}); map(a,`[]=,1,0); return a;, +  ({(<>),(<2>),(<2,3>),(<3>)})) + test_any_equal(array a = ({(<"a">),(<"b">),(<>)}); map(a,`->=,"a",1); return a;, +  ({(<"a">),(<"a","b">),(<"a">)})) + test_any_equal(array a = ({([1:10]),([1:11,2:12]),([2:13])}); return map(a,`[],1);, +  ({10,11,0})) + test_any_equal(array a = ({([1:10]),([1:11,2:12]),([2:13])}); map(a,`[]=,1,1); return a;, +  ({([1:1]),([1:1,2:12]),([1:1,2:13])})) + test_any_equal(array a = ({(["a":10]),(["b":11]),([])}); map(a,`->=,"a",1); return a;, +  ({(["a":1]),(["a":1,"b":11]),(["a":1])})) + test_eval_error([[ +  class A {int i = 10; int ii(){return i;}}; +  class B {inherit A;}; +  class C {inherit A; int i = 11;}; +  array a = ({A(1),B(2),C(3)}); +  a["i"] = 7; + ]]) + test_any([[ +  class A {int i = 10; int ii(){return i;}}; +  class B {inherit A;}; +  class C {inherit A; int i = 11;}; +  array a = ({A(1),B(2),C(3)}); +  map(a,`[]=,"i",7); +  return equal(a->i,({7,7,7})) && equal(a->ii(),({7,7,10})); + ]]) + test_any([[ +  class A {int i = 10; int ii(){return i;}}; +  class B {inherit A;}; +  class C {inherit A; int i = 11;}; +  array a = ({A(1),B(2),C(3)}); +  a->i = 7; +  return equal(a->i,({7,7,7})) && equal(a->ii(),({7,7,10})); + ]]) + test_any([[ +  class A {int i = 10; int ii(){return i;}}; +  class B {inherit A;}; +  class C {inherit A; int i = 11;}; +  array a = ({A(1),B(2),C(3)}); +  map(a,`->=,"i",7); +  return equal(a->i,({7,7,7})) && equal(a->ii(),({7,7,10})); + ]]) + test_any_equal([[ +  array a = ({({(["a":"b"]),([]),(["c":17])}),({(["a":"b"]),(["a":7])}),(["b":"d"])}); +  a->a = 1; +  return a; + ]], ({({(["a":1]),(["a":1]),(["a":1,"c":17])}), +  ({(["a":1]),(["a":1])}), +  (["a":1,"b":"d"])})) + test_any_equal([[ +  array a = ({({(["a":"b"]),([]),(["c":17])}),({(["a":"b"]),(["a":7])}),(["b":"d"])}); +  map(a,`->=,"a",1); +  return a; + ]], ({({(["a":1]),(["a":1]),(["a":1,"c":17])}), +  ({(["a":1]),(["a":1])}), +  (["a":1,"b":"d"])})) +    test_true(mappingp(_memory_usage()))   test_true(_refs(""));   test_true(_refs(({})));