Changeset ff9f9f in git for Tst/Short/mpsr_s.tst


Ignore:
Timestamp:
May 12, 2000, 2:50:55 PM (24 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
6aaa52f8bed62371e53f3787caae4a24acc7e323
Parents:
7bb71fad3a9d45a2e30c8458373b89a01eecf500
Message:
*hannes: execute


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

Legend:

Unmodified
Added
Removed
  • Tst/Short/mpsr_s.tst

    r7bb71fa rff9f9f  
    1818  }
    1919}
    20  
     20
    2121proc rcheckdump(link l, list nameslist)
    2222{
     
    3333}
    3434
    35 
    36  
    3735// data
    3836int i;
     
    9997
    10098
    101 // First, make two (preserves order of variables) ASCII-dumps of everything 
     99// First, make two (preserves order of variables) ASCII-dumps of everything
    102100dump(":w _dump.txt");
    103101killall();
     
    120118
    121119// MPfork dump
    122 link ll = "MPtcp:fork"; 
     120link ll = "MPtcp:fork";
    123121open(ll);
    124122if (status(ll, "openwrite", "yes"))
     
    126124  write(ll, quote(getdump(mp_ll))); dump(ll); read(ll);
    127125  killall("not", "link");
    128   write(ll, quote(dump(mp_ll))); getdump(ll); read(ll); 
     126  write(ll, quote(dump(mp_ll))); getdump(ll); read(ll);
    129127
    130128  checkdump(ll);
     
    140138  // check whether rsh works and whether remote Singular can be executed
    141139  if (system("sh","rsh `hostname` -n test -x "+sing+" 1>/dev/null 2>&1"))
    142   { 
     140  {
    143141    if (system("sh","remsh `hostname` -n test -x "+sing+" 1>/dev/null 2>&1"))
    144142    {
     
    152150  if (size(sing))
    153151  {
    154     link ll = "MPtcp:launch"; 
     152    link ll = "MPtcp:launch";
    155153    open(ll);
    156154    if (status(ll, "openwrite", "yes"))
     
    159157      write(ll, quote(getdump(mp_ll))); dump(ll); read(ll);
    160158      killall("not", "link");
    161       write(ll, quote(dump(mp_ll))); getdump(ll); read(ll); 
     159      write(ll, quote(dump(mp_ll))); getdump(ll); read(ll);
    162160
    163161      checkdump(ll);
     
    176174dump("");
    177175LIB "tst.lib"; tst_status(1);$
    178 
    179 
    180  
    181 
Note: See TracChangeset for help on using the changeset viewer.