Changeset f932563 in git


Ignore:
Timestamp:
Oct 19, 1999, 7:01:22 PM (25 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
905bfda6829a6edb5270887f0b206da40913d8fd
Parents:
6fa4d730e0f520f1565c3cd672f49a8775df039b
Message:
* optional second argument to tst_test_res


git-svn-id: file:///usr/local/Singular/svn/trunk@3741 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/tst.lib

    r6fa4d7 rf932563  
    1 // $Id: tst.lib,v 1.16 1999-10-19 15:45:44 obachman Exp $
     1// $Id: tst.lib,v 1.17 1999-10-19 17:01:22 obachman Exp $
    22//(obachman, last modified 6/30/98)
    33/////////////////////////////////////////////////////////////////////////////
    44
    5 version="$Id: tst.lib,v 1.16 1999-10-19 15:45:44 obachman Exp $";
     5version="$Id: tst.lib,v 1.17 1999-10-19 17:01:22 obachman Exp $";
    66info="
    77LIBRARY:  tst.lib      PROCEDURES FOR RUNNING AUTOMATIC TST TESTS
     
    435435
    436436
    437 proc tst_test_res(ideal i)
    438 
    439 "USAGE:    tst_test_res(ideal i)
     437proc tst_test_res(ideal i, list #)
     438
     439"USAGE:    tst_test_res(ideal i, only_lres_and_hres)
    440440RETURN:    1, if ok; 0 on error
    441441PURPOSE:   Tests sres, lres, hres, mres with betti commands and conversions
     442           If optinal third argument is given, test only lres and hres
    442443EXAMPLE:  example tst_test_res shows an example"
    443444{
     
    451452  }
    452453 
    453   resolution rs = sres(std(i), 0);rs;
     454  if (size(#) == 0)
     455  {
     456    resolution rs = sres(std(i), 0);rs;
     457    resolution rm = mres(i,0);rm;
     458  }
     459 
     460  resolution rh = hres(i,0);rh;
    454461  resolution rl = lres(i, 0);rl;
    455   resolution rh = hres(i,0);rh;
    456   resolution rm = mres(i,0);rm;
    457  
    458   intmat is = betti(rs);is;
     462 
     463  if (size(#) == 0)
     464  {
     465    intmat is = betti(rs);is;
     466    intmat im = betti(rm);im;
     467  }
     468 
     469  intmat ih = betti(rh);ih;
    459470  intmat il = betti(rl);il;
    460   intmat ih = betti(rh);ih;
    461   intmat im = betti(rm);im;
    462 
    463   if (is != il){"ERROR: is != il";ret=0;}
    464   if (is != ih){"ERROR: is != ih";ret=0;}
    465   if (is != im){"ERROR: is != im";ret=0;}
    466 
    467   list ls = list(rs);ls;
     471
     472  if (size(ih) != size(il)){"ERROR: size(ih) != size(il)";ret=0;}
     473  if (size(#) == 0)
     474  {
     475    if (size(ih) != size(is)){"ERROR: size(ih) != size(is)";ret=0;}
     476    if (size(ih) != size(im)){"ERROR: size(ih) != size(im)";ret=0;}
     477  }
     478 
     479  if (ih != il){"ERROR: ih != il";ret=0;}
     480  if (size(#) == 0)
     481  {
     482    if (ih != is){"ERROR: ih != is";ret=0;}
     483    if (ih != im){"ERROR: ih != im";ret=0;}
     484  }
     485
     486  if (size(#) == 0)
     487  {
     488    list ls = list(rs);ls;
     489    list lm = list(rm);lm;
     490  }
     491  list lh = list(rh);lh;
    468492  list ll = list(rl);ll;
    469   list lh = list(rh);lh;
    470   list lm = list(rm);lm;
    471 
    472   intmat is_1 = betti(ls);is_1;
     493
     494  if (size(#) == 0)
     495  {
     496    intmat is_1 = betti(ls);is_1;
     497    intmat im_1 = betti(lm);im_1;
     498  }
     499  intmat ih_1 = betti(lh);ih_1;
    473500  intmat il_1 = betti(ll);il_1;
    474   intmat ih_1 = betti(lh);ih_1;
    475   intmat im_1 = betti(lm);im_1;
    476 
    477   if (is_1 != il_1){"ERROR: is_1 != il_1";ret=0;}
    478   if (is_1 != ih_1){"ERROR: is_1 != ih_1";ret=0;}
    479   if (is_1 != im_1){"ERROR: is_1 != im_1";ret=0;}
    480 
    481   if (is != is_1) {"ERROR: is != is_1";ret=0;}
    482   if (il != il_1) {"ERROR: il != il_1";ret=0;}
     501
     502  if (size(ih_1) != size(il_1)){"ERROR: size(ih_1) != size(il_1)";ret=0;}
     503  if (size(#) == 0)
     504  {
     505    if (size(ih_1) != size(is_1)){"ERROR: size(ih_1) != size(is_1)";ret=0;}
     506    if (size(ih_1) != size(im_1)){"ERROR: size(ih_1) != size(im_1)";ret=0;}
     507  }
     508 
     509  if (ih_1 != il_1){"ERROR: ih_1 != il_1";ret=0;}
     510  if (size(#) == 0)
     511  {
     512    if (ih_1 != is_1){"ERROR: ih_1 != is_1";ret=0;}
     513    if (ih_1 != im_1){"ERROR: ih_1 != im_1";ret=0;}
     514  }
     515
     516 
     517  if (size(ih) != size(ih_1)) {"ERROR: size(ih) != size(ih_1)";ret=0;}
    483518  if (ih != ih_1) {"ERROR: ih != ih_1";ret=0;}
    484   if (im != im_1) {"ERROR: im != im_1";ret=0;}
    485519
    486520  return (ret);
Note: See TracChangeset for help on using the changeset viewer.