Changeset 908c36 in git


Ignore:
Timestamp:
Oct 19, 1999, 7:17:17 PM (25 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
f0320b41620cddd78109c385a552c1ba73357249
Parents:
905bfda6829a6edb5270887f0b206da40913d8fd
Message:
* less output in tst_test_res


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/tst.lib

    r905bfd r908c36  
    1 // $Id: tst.lib,v 1.17 1999-10-19 17:01:22 obachman Exp $
     1// $Id: tst.lib,v 1.18 1999-10-19 17:17:17 obachman Exp $
    22//(obachman, last modified 6/30/98)
    33/////////////////////////////////////////////////////////////////////////////
    44
    5 version="$Id: tst.lib,v 1.17 1999-10-19 17:01:22 obachman Exp $";
     5version="$Id: tst.lib,v 1.18 1999-10-19 17:17:17 obachman Exp $";
    66info="
    77LIBRARY:  tst.lib      PROCEDURES FOR RUNNING AUTOMATIC TST TESTS
     
    444444{
    445445  int ret = 1;
    446   basering;
    447   print(i);
    448446 
    449447  if (! homog(i))
     
    454452  if (size(#) == 0)
    455453  {
    456     resolution rs = sres(std(i), 0);rs;
    457     resolution rm = mres(i,0);rm;
    458   }
    459  
    460   resolution rh = hres(i,0);rh;
    461   resolution rl = lres(i, 0);rl;
    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;
    470   intmat il = betti(rl);il;
     454    resolution rs = sres(std(i), 0);
     455    resolution rm = mres(i,0);
     456  }
     457 
     458  resolution rh = hres(i,0);
     459  resolution rl = lres(i, 0);
     460 
     461  if (size(#) == 0)
     462  {
     463    intmat is = betti(rs);
     464    intmat im = betti(rm);
     465  }
     466 
     467  intmat ih = betti(rh);
     468  intmat il = betti(rl);
    471469
    472470  if (size(ih) != size(il)){"ERROR: size(ih) != size(il)";ret=0;}
     
    486484  if (size(#) == 0)
    487485  {
    488     list ls = list(rs);ls;
    489     list lm = list(rm);lm;
    490   }
    491   list lh = list(rh);lh;
    492   list ll = list(rl);ll;
    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;
    500   intmat il_1 = betti(ll);il_1;
     486    list ls = list(rs);
     487    list lm = list(rm);
     488  }
     489  list lh = list(rh);
     490  list ll = list(rl);
     491
     492  if (size(#) == 0)
     493  {
     494    intmat is_1 = betti(ls);
     495    intmat im_1 = betti(lm);
     496  }
     497  intmat ih_1 = betti(lh);
     498  intmat il_1 = betti(ll);
    501499
    502500  if (size(ih_1) != size(il_1)){"ERROR: size(ih_1) != size(il_1)";ret=0;}
Note: See TracChangeset for help on using the changeset viewer.