mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-26 10:11:03 +00:00
36 lines
686 B
Mathematica
36 lines
686 B
Mathematica
|
#include <objects/objects.h>
|
||
|
|
#include <assert.h>
|
||
|
|
|
||
|
|
int main()
|
||
|
|
{
|
||
|
|
#if ELT_INCLUDES_DOUBLE
|
||
|
|
|
||
|
|
id a = [[Array alloc] initWithType:@encode(double)];
|
||
|
|
elt e;
|
||
|
|
double dbl;
|
||
|
|
|
||
|
|
printf("testing elt doubles\n");
|
||
|
|
|
||
|
|
[a addElement:(double)3.14];
|
||
|
|
[a addElement:(double)1.41];
|
||
|
|
[a addElement:(double)4.15];
|
||
|
|
[a addElement:(double)1.59];
|
||
|
|
[a addElement:(double)5.92];
|
||
|
|
[a addElement:(double)9.26];
|
||
|
|
|
||
|
|
e = [a elementAtIndex:1];
|
||
|
|
dbl = [a elementAtIndex:2].double_u;
|
||
|
|
printf("dbl = %f\n", dbl);
|
||
|
|
|
||
|
|
[a addElementIfAbsent:(double)9.26];
|
||
|
|
assert([a count] == 6);
|
||
|
|
|
||
|
|
[a removeElement:(double)3.14];
|
||
|
|
assert([a count] == 5);
|
||
|
|
|
||
|
|
#endif /* ELT_INCLUDES_DOUBLE */
|
||
|
|
|
||
|
|
printf("no errors\n");
|
||
|
|
exit(0);
|
||
|
|
}
|