source: git/Tst/Long/pAddManyVarsManyL_l.tst @ ad3dfe

spielwiese
Last change on this file since ad3dfe 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: 886 bytes
Line 
1LIB "tst.lib";
2tst_init();
3
4LIB "general.lib";
5
6list tst_rgen_charstrs = list("3");
7list tst_rgen_simple_orderings = list("dp");
8intvec tst_rgen_products = 1;
9intvec tst_rgen_extra_weights = intvec(0);
10intvec tst_rgen_nvars = 20, 50, 100, 500, 1000, 2000, 3000, 5000, 10000;
11list tst_rgen_comp_orderings = list("", "C");
12list tst_rgen_exp_bounds = list(1, 3, 7, 15, 31, 63, 255, 65535,  65536);
13tst_rgen_init();
14proc pAddManyVars_Test(string rs)
15{
16  tst_rgen_Lring;
17  rs = "ring r = " + rs + ";";
18  execute(rs);
19  int n_vars = tst_rgen_nvars[tst_rgen_var_index];
20  ideal id = tst_cyclic(5);
21  if (n_vars <= 5000)
22  {
23     tst_TestAdd(id, 1,size(tst_rgen_comp_orderings[tst_rgen_comp_index]));
24  }
25  else
26  { 
27      id;
28      id[1] + gen(2)*id[1];
29  }
30  kill r;
31}
32
33string rs = tst_next_ring();
34while (size(rs) > 1)
35{
36  pAddManyVars_Test(rs);
37  rs = tst_next_ring();
38}
39 
40tst_status(1);$
Note: See TracBrowser for help on using the repository browser.