Changeset ff9f9f in git for Tst/Short/mpsr_s.tst
- Timestamp:
- May 12, 2000, 2:50:55 PM (24 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 6aaa52f8bed62371e53f3787caae4a24acc7e323
- Parents:
- 7bb71fad3a9d45a2e30c8458373b89a01eecf500
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Tst/Short/mpsr_s.tst
r7bb71fa rff9f9f 18 18 } 19 19 } 20 20 21 21 proc rcheckdump(link l, list nameslist) 22 22 { … … 33 33 } 34 34 35 36 37 35 // data 38 36 int i; … … 99 97 100 98 101 // First, make two (preserves order of variables) ASCII-dumps of everything 99 // First, make two (preserves order of variables) ASCII-dumps of everything 102 100 dump(":w _dump.txt"); 103 101 killall(); … … 120 118 121 119 // MPfork dump 122 link ll = "MPtcp:fork"; 120 link ll = "MPtcp:fork"; 123 121 open(ll); 124 122 if (status(ll, "openwrite", "yes")) … … 126 124 write(ll, quote(getdump(mp_ll))); dump(ll); read(ll); 127 125 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); 129 127 130 128 checkdump(ll); … … 140 138 // check whether rsh works and whether remote Singular can be executed 141 139 if (system("sh","rsh `hostname` -n test -x "+sing+" 1>/dev/null 2>&1")) 142 { 140 { 143 141 if (system("sh","remsh `hostname` -n test -x "+sing+" 1>/dev/null 2>&1")) 144 142 { … … 152 150 if (size(sing)) 153 151 { 154 link ll = "MPtcp:launch"; 152 link ll = "MPtcp:launch"; 155 153 open(ll); 156 154 if (status(ll, "openwrite", "yes")) … … 159 157 write(ll, quote(getdump(mp_ll))); dump(ll); read(ll); 160 158 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); 162 160 163 161 checkdump(ll); … … 176 174 dump(""); 177 175 LIB "tst.lib"; tst_status(1);$ 178 179 180 181
Note: See TracChangeset
for help on using the changeset viewer.