gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-05-29 16:01:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

Initial revision

Browse source 
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@1 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
Andrew McCallum 1994-11-04 16:29:24 +00:00
commit 0098375b73
248 changed files with 40027 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

44
Testing/test04.m Normal file
View file

@ -0,0 +1,44 @@
#include <objects/objects.h>
#define N 20
#if (sun && __svr4__)
long lrand48();
#define random lrand48
#else
long random();
#endif
int main()
{
int i;
short s, s1, s2;
Heap* heap = [[Heap alloc] initWithType:"s"];
Array* array = [[Array alloc] initWithType:"s"];
for (i = 0; i < N; i++)
{
s = (short)random();
[heap addElement:s];
[array addElement:s];
}
[array sortContents];
for (i = 0; i < N; i++)
{
s1 = [heap removeFirstElement].short_int_u;
s2 = [array removeLastElement].short_int_u;
printf("(%d,%d) ", s1, s2);
if (s1 != s2)
exit(1);
}
printf("\n");
/* cause an error */
/* s = [heap elementAtIndex:999].short_int_u; */
[heap free];
exit(0);
}