Branch: Tag:

2000-07-11

2000-07-11 20:42:58 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

fixed some m_delete tests

Rev: src/testsuite.in:1.313

1: - test_true([["$Id: testsuite.in,v 1.312 2000/07/11 03:45:10 mast Exp $"]]); + test_true([["$Id: testsuite.in,v 1.313 2000/07/11 20:42:58 hubbe Exp $"]]);      cond([[all_constants()->_verify_internals]],   [[
1421:    test_eq(String.strmult("foo",4),"foofoofoofoo")      // m_delete - test_equal(([1:1]),m_delete(a(),0)) - test_equal(([1:1]),m_delete(([1:1,0:3]),0)) - test_any(mapping a=([1:1]); return a==m_delete(a,1),1) + test_any_equal([[ mapping m=([1:1]); m_delete(m,0); return m; ]],[[ ([1:1]) ]]) + test_any_equal([[ mapping m=([1:1,0:3]); m_delete(m,0); return m; ]],[[ ([1:1]) ]]) + test_any([[mapping a=([1:1]); return m_delete(a,1)]],1)   test_any([[mapping m=([]); m[1]++; return m[1];]],1)   test_any([[mapping m=([1:1]); m[1]++; return m[1];]],2)   test_any([[mapping m=([]); m[1]++; m[1]++; return m[1];]],2)