source: git/Tst/Short/parallel_s.tst @ a866f1

spielwiese
Last change on this file since a866f1 was 1cbc28, checked in by Oleksandr Motsak <motsak@…>, 12 years ago
updated test according to legacy Singular + new lists of tests
  • Property mode set to 100644
File size: 809 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4LIB "parallel.lib";
5LIB "primdec.lib";
6
7ring r = 0, (x,y,z), lp;
8ideal i = z8+z6+4z5+4z3+4z2+4, y-z2;
9ideal j = 3x3y+x3+xy3+y2z2, 2x3z-xy-xz3-y4-z2, 2x2yz-2xy2+xz2-y4;
10list commands = list("std", "primdecGTZ", "primdecSY",
11                     "std", "primdecGTZ", "primdecSY");
12list args = list(list(i), list(i), list(i),
13                 list(j), list(j), list(j));
14parallelWaitN(commands, args, 3);
15
16commands = list("primdecGTZ", "primdecSY");
17args = list(list(i), list(i));
18//parallelWaitFirst(commands, args); // not reproducable!
19
20ring s = 0, (x,y,z), dp;
21ideal i1 = z8+z6+4z5+4z3+4z2+4, y-z2;
22ideal i2 = x10+x9y2, y8-x2y7;
23ideal i3 = x3-2xy, x2y-2y2+x;
24string command = "std";
25list args = list(list(i1), list(i2), list(i3));
26parallelWaitAll(command, args);
27
28tst_status(1);$
Note: See TracBrowser for help on using the repository browser.