Changeset 458bd6 in git for Tst/Short/string.tst


Ignore:
Timestamp:
Apr 17, 1999, 2:01:18 PM (25 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
Children:
b45d9738be1be20b4a90b80e61feae602bc1558d
Parents:
0df02761ea5104747ff923eee578ddb4d27f4a45
Message:
* new tests


git-svn-id: file:///usr/local/Singular/svn/trunk@2988 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Tst/Short/string.tst

    r0df027 r458bd6  
    22tst_init();
    33
    4 list l = 1, 2; string(l);
     4
     5proc MyPrint(def what)
     6{
     7   "what";
     8   what;
     9   "print(what)";
     10   print(what);
     11   "string(what)";
     12   string(what);
     13   "print(what, \"%s\")";
     14   print(what, "%s");
     15   "print(what, \"%p\")";
     16   print(what, "%p");
     17   "print(what, \"%t\")";
     18   print(what, "%t");
     19   "print(what, \"%;\")";
     20   print(what, "%;");
     21}
     22
     23list l = 1, 2;
     24MyPrint(l);
     25l;
     26
    527list ll;
    6 string(ll);
    7 l = l = ll;
    8 l;
     28MyPrint(ll);
     29
     30l = l + ll;
     31MyPrint(l);
     32
    933l = insert(l, ll);
    10 l;
     34MyPrint(l);
     35
     36l[10] = 5;
     37
    1138string(l);
    12  l;
    13 l[10] = 5;
    14 string(l);
     39MyPrint(l);
     40
    1541l[3] = intvec(1,2,3);
    1642l[4] = "hi";
    17 string(l);
    18 l;
     43MyPrint(l);
     44
    1945l[6] = list("ho", "he");
    20 string(l);
    21  proc hi {1;};
    22 l[8] = hi;
    23 l;
    24 string(l);
     46MyPrint(l);
     47
     48l[8] = MyPrint;
     49MyPrint(l);
     50
    2551link li = "/tmp";
    26 li;
    27 l[7] = li;
    28 l;
    29 string(l);
     52l[8] = li;
     53MyPrint(l);
     54
    3055ring r;
     56MyPrint(r);
     57
    3158ideal i;
    32 string(i);
    33 string(r);
     59MyPrint(i);
     60
    3461l[8] = r;
    3562l[9] = i;
    36 l;
     63MyPrint(l);
     64
     65matrix ma[2][2] = x,y,z,x2;
     66MyPrint(ma);
     67
     68module m=[1,y],[0,x+z];
     69MyPrint(m);
     70
     71l[1]= list(ma, m);
     72MyPrint(l);
     73
     74intmat M=betti(mres(m,0));
     75MyPrint(M);
     76print(M,"betti");
     77print(M, "%b");
     78l[2] = M;
     79MyPrint(l);
     80 
    3781ideal j = z2,x;
    3882resolution re = res(j,0);
    39 re;
    40 string(re);
     83MyPrint(re);
    4184l[11] = re;
    42 l;
    43 string(l);
    44 string(l, l);
     85MyPrint(re);
     86
     87matrix B(1..3);
     88B(1)[1,1] = 1;
     89B(2)[1,1] = 2;
     90B(3)[1,1] = 3;
     91
     92B(1..3);
     93print(B(1..3));
     94string(B(1..3));
     95
    4596qring qr = std(ideal(x,y));
    46 string(qr);
    47 l[12] = qr;
    48 l;
    49 string(l);
     97MyPrint(qr);
     98
    5099list l = 1, qr, list(2, qr);
    51 l;
    52 string(l);
     100MyPrint(l);
     101
     102
    53103tst_status(1);$
     104
Note: See TracChangeset for help on using the changeset viewer.