source: git/Tst/New/imap_minimal.tst @ 4da485

spielwiese
Last change on this file since 4da485 was bf919a, checked in by Martin Lee <martinlee84@…>, 11 years ago
add: minimal test for imap
  • Property mode set to 100644
File size: 382 bytes
Line 
1LIB "tst.lib";
2tst_init(); option(Imap);
3
4ring s0 = 32003, (a,b,x,y), lp;
5poly p = 1 + a + a2 + b + ab + ax + ay + bx + x + y + xy; p;
6
7ring r1 = (0, a), (b, x, y), lp;
8poly p = 1 + a + a2 + b + ab + ax + ay + bx + x + y + xy; p;
9
10ring r2 = (0, a, b), (x, y), lp;
11poly p = 1 + a + a2 + b + ab + ax + ay + bx + x + y + xy; p;
12
13setring s0;
14imap (r1,p);
15imap (r2,p);
16
17tst_status(1); $
Note: See TracBrowser for help on using the repository browser.