Mercurial > projects > ldc
comparison tests/minicomplex/mem1.d @ 341:1bb99290e03a trunk
[svn r362] Started merging the old 'test' dir as well as the newer 'tangotests' dir into 'tests/mini' and 'tests/minicomplex'.
author | lindquist |
---|---|
date | Sun, 13 Jul 2008 02:51:19 +0200 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
340:351c0077d0b3 | 341:1bb99290e03a |
---|---|
1 module tangotests.mem1; | |
2 | |
3 import tango.stdc.stdio; | |
4 | |
5 void main() | |
6 { | |
7 printf("new int;\n"); | |
8 int* i = new int; | |
9 assert(*i == 0); | |
10 | |
11 printf("new int[3];\n"); | |
12 int[] ar = new int[3]; | |
13 ar[0] = 1; | |
14 ar[1] = 56; | |
15 assert(ar.length == 3); | |
16 assert(ar[0] == 1); | |
17 assert(ar[1] == 56); | |
18 assert(ar[2] == 0); | |
19 | |
20 printf("array ~= elem;\n"); | |
21 int[] ar2; | |
22 ar2 ~= 22; | |
23 assert(ar2.length == 1); | |
24 assert(ar2[0] == 22); | |
25 | |
26 printf("array ~= array;\n"); | |
27 ar2 ~= ar; | |
28 assert(ar2.length == 4); | |
29 assert(ar2[0] == 22); | |
30 assert(ar2[1] == 1); | |
31 printf("%d %d %d %d\n", ar2[0], ar2[1], ar2[2], ar2[3]); | |
32 assert(ar2[2] == 56); | |
33 assert(ar2[3] == 0); | |
34 | |
35 printf("array ~ array;\n"); | |
36 int[] ar5 = ar ~ ar2; | |
37 assert(ar5.length == 7); | |
38 assert(ar5[0] == 1); | |
39 assert(ar5[1] == 56); | |
40 assert(ar5[2] == 0); | |
41 assert(ar5[3] == 22); | |
42 assert(ar5[4] == 1); | |
43 assert(ar5[5] == 56); | |
44 assert(ar5[6] == 0); | |
45 | |
46 printf("array ~ elem;\n"); | |
47 int[] ar4 = ar2 ~ 123; | |
48 assert(ar4.length == 5); | |
49 assert(ar4[0] == 22); | |
50 assert(ar4[1] == 1); | |
51 assert(ar4[2] == 56); | |
52 assert(ar4[3] == 0); | |
53 assert(ar4[4] == 123); | |
54 | |
55 printf("elem ~ array;\n"); | |
56 int[] ar3 = 123 ~ ar2; | |
57 assert(ar3.length == 5); | |
58 assert(ar3[0] == 123); | |
59 assert(ar3[1] == 22); | |
60 assert(ar3[2] == 1); | |
61 assert(ar3[3] == 56); | |
62 assert(ar3[4] == 0); | |
63 } |