source: git/Tst/Long/pAdd_l.tst @ 6263f2

spielwiese
Last change on this file since 6263f2 was 818256, checked in by Olaf Bachmann <obachman@…>, 24 years ago
* new tests and updates of stats git-svn-id: file:///usr/local/Singular/svn/trunk@4566 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 706 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4LIB "poly.lib";
5
6list tst_rgen_simple_orderings = list("lp", "dp", "ls", "ds");
7intvec tst_rgen_products = 1;
8intvec tst_rgen_extra_weights = intvec(0);
9intvec tst_rgen_nvars = 3..10;
10list tst_rgen_comp_orderings = list("", "cc");
11list tst_rgen_charstrs = list("3");
12
13tst_rgen_init();
14
15proc pAdd_Test(string rs)
16{
17  rs;
18  rs = "ring r = " + rs + ";";
19  execute(rs);
20  int n_vars = tst_rgen_nvars[tst_rgen_var_index];
21  tst_TestAdd(tst_cyclic(n_vars), 500/(n_vars*n_vars) + 50/n_vars,
22              size(tst_rgen_comp_orderings[tst_rgen_comp_index]));
23  kill r;
24}
25
26string rs = tst_next_ring();
27
28while (size(rs) > 1)
29{
30  pAdd_Test(rs);
31  rs = tst_next_ring();
32}
33
34tst_status(1); $
Note: See TracBrowser for help on using the repository browser.