pike.git/ src/ testsuite.in

2000-01-27

2000-01-27 23:07:41 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 6168ce0a09a3acc3b1d86755fe0f635da536977b (66 lines) (+65/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

mkmultiset is now implemented in C

Rev: lib/master.pike.in:1.96
Rev: src/builtin_functions.c:1.232
Rev: src/testsuite.in:1.265

1: - test_true([["$Id: testsuite.in,v 1.264 2000/01/26 13:45:55 noring Exp $"]]); + test_true([["$Id: testsuite.in,v 1.265 2000/01/27 23:07:41 hubbe Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
971:    o->a += ({2});    return o->a;   ]], ({1,2})) +    test_any_equal([[    class A {    array a = ({1});
984:    return o->a;   ]], ({1,2}))    + test_any_equal([[ +  class A { +  array a = ({1}); + // void `->= (string var, mixed val) {::`->= (var, val);} +  }; +  class B { +  int z; +  inherit A; +  void `->= (string var, mixed val) { A::`->= (var, val);} +  }; +  object o = B(); +  o->a += ({2}); +  return o->a; + ]], ({1,2})) +  + test_any_equal([[ +  class FOO +  { +  int q,w,z; +  }; +  class A { +  array a = ({1}); +  }; +  class B { +  inherit FOO; +  int b,c,d,e,f,g; +  inherit A; +  void `->= (string var, mixed val) { A::`->= (var, val);} +  }; +  object o = B(); +  o->a += ({2}); +  return o->a; + ]], ({1,2})) +  +  + test_any_equal([[ +  class A { +  array a = ({1}); +  }; +  class B { +  int z; +  inherit A : FNORD; +  +  class Q +  { +  mixed `-> (string var) +  { +  return FNORD::`-> (var); +  } +  void `->= (string var, mixed val) +  { +  FNORD::`->= (var, val); +  } +  } +  }; +  object o = B(); +  object o2=o->Q(); +  o2->a += ({2}); +  return o->a; + ]], ({1,2})) +    test_true(mappingp(_memory_usage()))   test_true(_refs(""));   test_true(_refs(({})));
2442:   test_true([[(array(array))([1:2]) ]])   test_true([[(array(array))([1:2,3:4]) ]])   test_true([[(array(array))([1:2,3:4,5:6]) ]]) + test_equal( [[ (multiset) ({1})]], [[ (< 1 >) ]] )   test_eval_error([[return (mapping)""]])      // testing @