Branch: Tag:

1999-02-06

1999-02-06 03:03:09 by Martin Stjernholm <mast@lysator.liu.se>

Fixed special case bug in diff3.

Rev: lib/modules/Array.pmod:1.27
Rev: src/testsuite.in:1.145

1: - stest_true([["$Id: testsuite.in,v 1.144 1999/02/05 05:30:15 mast Exp $"]]) + stest_true([["$Id: testsuite.in,v 1.145 1999/02/06 03:03:07 mast Exp $"]])   cond([[all_constants()->_verify_internals]],   [[    test_do(_verify_internals())
2350:    ({({({"a"}),({"b"}),({"c"}),({"d"}),({ }),({ }),({ })}),    ({({ }),({"b"}),({ }),({ }),({ }),({"a"}),({"c","c"})}),    ({({ }),({"b"}),({"b"}),({"d"}),({"d"}),({"a"}),({ })})})) + test_equal(Array.diff3(({"a"}),({"b","a"}),({"a","b","a"})), +  ({({({ }),({ }),({"a"})}), +  ({({ }),({"b"}),({"a"})}), +  ({({"a"}),({"b"}),({"a"})})})) + test_equal(Array.diff3(({"a","c"}),({"b","a","c"}),({"a","c","b","a","c"})), +  ({({({ }),({ }),({"a","c"})}), +  ({({ }),({"b"}),({"a","c"})}), +  ({({"a","c"}),({"b"}),({"a","c"})})})) + test_equal(Array.diff3(({"a","d"}),({"b","a","c"}),({"a","c","b","a","c"})), +  ({({({ }),({ }),({"a"}),({"d"})}), +  ({({ }),({"b"}),({"a"}),({"c"})}), +  ({({"a","c"}),({"b"}),({"a"}),({"c"})})})) + test_equal(Array.diff3(({"a","a"}),({"b","a","d","a"}),({"a","a","b","a","a"})), +  ({({({ }),({ }),({"a"}),({ }),({"a"})}), +  ({({ }),({"b"}),({"a"}),({"d"}),({"a"})}), +  ({({"a","a"}),({"b"}),({"a"}),({ }),({"a"})})}))      // - equal   // equal is already tested by this script