gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-05-30 00:11:26 +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/test03.m Normal file
View file

@ -0,0 +1,44 @@
#include <objects/objects.h>
int main()
{
id array = [[Array alloc] initWithType:@encode(int)];
id bag;
id llist;
id btree;
[array addElementsCount:6, ((elt)0),((elt)1),((elt)5),((elt)3),
((elt)4),((elt)2)];
bag = [array shallowCopyAs:[Bag class]];
llist = [[EltNodeCollector alloc] initWithType:@encode(int)
nodeCollector:[[LinkedList alloc] init]
nodeClass:[LinkedListEltNode class]];
[llist addContentsOf:array];
btree = [[EltNodeCollector alloc] initWithType:@encode(int)
nodeCollector:[[BinaryTree alloc] init]
nodeClass:[BinaryTreeEltNode class]];
[btree addContentsOf:array];
printf("btree count = %d\n", [btree count]);
/* tmp test */
/*
if (typeof((id)0) != typeof(id))
printf("typeof error\n");
*/
[array printForDebugger];
[bag printForDebugger];
[llist printForDebugger];
[btree printForDebugger];
/* foo = [array shallowCopyAs:[Object class]];
Shouldn't the compiler complain about this?
Object does not conform to <Collecting> */
exit(0);
}