pike.git/ src/ testsuite.in

2003-08-05

2003-08-05 12:59:21 by Martin Stjernholm <mast@lysator.liu.se>

• 21beffeea6a575a1ddb5e00f07529b145a8a4dfc (10 lines) (+8/-2) ^{[ Show | Annotate ]}
  Branch: 7.4

Fixed the has_index tests to actually test something. Added has_index tests
for multisets.

Rev: src/testsuite.in:1.588

1: - test_true([["$Id: testsuite.in,v 1.587 2003/04/08 14:23:16 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.588 2003/08/05 12:59:21 mast Exp $"]]);      // This triggered a bug only if run sufficiently early.   test_compile_any([[#pike 7.2]])
7972:   test_true(sizeof(rusage())>28)      // - has_index - define(test_has_index,[[test_true([[mixed foo=$1; return has_index(foo,$2)==$3;]])]]) + define(test_has_index,[[test_any([[mixed foo=$1; return has_index(foo,$2)==$3;]], 1)]])   test_has_index([[ ({}) ]],0,0)   test_has_index([[ ({}) ]],"foo",0)   test_has_index([[ ({ "a" }) ]],-1,0)
7985:   test_has_index([[ ([ "a":"A" ]) ]],"A",0)   test_has_index([[ ([ "a":"A", "b":"B", "c":"C" ]) ]],"b",1)   test_has_index([[ ([ "a":"A", "b":"B", "c":"C" ]) ]],"B",0) + test_has_index([[ (< "a" >) ]],4711,0) + test_has_index([[ (< "a" >) ]],"a",1) + test_has_index([[ (< "a" >) ]],"A",0) + test_has_index([[ (< "a", "b", "c" >) ]],"b",1) + test_has_index([[ (< "a", "b", "c" >) ]],"B",0)   test_has_index([[ class {}() ]],"foo",0)   test_has_index([[ (class{array _indices(){return({"a","b"});}})() ]],"b",1)