pike.git/ src/ testsuite.in

2001-09-28

2001-09-28 00:01:45 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 8bef1bf75fbc3015a81bfc77afbc5a52140b1734 (28 lines) (+27/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

automap implemented x[*] + y[*] now works

Rev: src/builtin.cmod:1.67
Rev: src/docode.c:1.133
Rev: src/interpret_functions.h:1.94
Rev: src/language.yacc:1.261
Rev: src/las.c:1.268
Rev: src/opcodes.h:1.24
Rev: src/testsuite.in:1.454

1: - test_true([["$Id: testsuite.in,v 1.453 2001/09/23 10:34:57 mirar Exp $"]]); + test_true([["$Id: testsuite.in,v 1.454 2001/09/28 00:01:45 hubbe Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
1976:      test_compile_any(class A {}; class B { inherit A; })    +  + // Automap tests +  + test_equal([[ ({10,20})[*] + 30 ]], [[ ({40, 50}) ]]) + test_equal([[ 30 + ({10,20})[*] ]], [[ ({40, 50}) ]]) + test_equal([[ ({1,2})[*] + ({10,20})[*] ]], [[ ({11, 22}) ]]) +  +  + test_equal([[ ({ ({10,20}), ({30,40}) })[*][*] + 5 ]], +  [[ ({ ({15,25}), ({35,45}) }) ]]) +  + test_equal([[ 5 + ({ ({10,20}), ({30,40}) })[*][*] ]], +  [[ ({ ({15,25}), ({35,45}) }) ]]) +  + test_any_equal([[ +  array a=({ ({10,20}), ({30,40}) }); +  a[*][*] += 5; +  return a; + ]], + [[ ({ ({15,25}), ({35,45}) }) ]]) +  + test_equal([[ "foo"[ ({ 2,0,1,2 })[*] ] ]], +  [[ ({ 'o', 'f', 'o', 'o' }) ]]) +  + // map tests   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;,