source: git/Tst/New/bigints.tst @ 662ece

spielwiese
Last change on this file since 662ece was 61b2e16, checked in by Oleksandr Motsak <motsak@…>, 12 years ago
FIX: bigints <-> numbers
  • Property mode set to 100644
File size: 867 bytes
Line 
1LIB "tst.lib"; tst_init();
2
3proc Test()
4{
5"*******************************";
6"ring: "; basering;
7
8bigint a = 99999999999999999999999999;
9
10
11number n = a;
12a, "--> number ", string(n);
13poly p = a;
14a, "--> poly ", string(p);
15vector v = a;
16a, "--> vector ", string(v);
17
18ideal I = a;
19a, "--> ideal ", string(I);
20
21module M = a;
22a, "--> module ", string(M);
23
24
25// int i = a;a, "--> int ", string(i); // not supported!
26
27"";
28
29}
30
31ring R = (0),t,dp;Test();kill R;
32
33ring R = (2),t,dp;Test();kill R;
34ring R = (4,q),t,dp;Test();kill R;
35
36
37ring R = (0,q),t,dp;Test();kill R;
38
39
40ring R = (0,q),t,dp;minpoly=q2+1;Test();kill R; //????
41
42
43
44
45
46ring R = (real),t,dp;Test();kill R;
47ring R = (real,30,30),t,dp;Test();kill R;
48ring R = (complex),t,dp;Test();kill R;
49
50
51
52
53
54
55
56
57// ring R = (integer),t,dp;Test();kill R; // BUG!!!
58// ring R = (integer,4),t,dp;Test();kill R; // ditto
59
60
61tst_status(1);$
Note: See TracBrowser for help on using the repository browser.