Fixed: Added test case

This commit is contained in:
Martin Carlberg committed 2014-04-17 16:18:21 +02:00
1 parent ee668df440
commit a740f60734
3 files changed
+25

No files matched your search

@@ -0,0 +1,11 @@
@implementation Class
{
}
@end
@implementation Class (Accessors)
{
Type ivar @accessors;
}
@end
@@ -0,0 +1,13 @@
var the_class=objj_allocateClassPair(Nil,"Class"),meta_class=the_class.isa;
objj_registerClassPair(the_class);
var the_class=objj_getClass("Class");
if(!the_class){
throw new SyntaxError("*** Could not find definition for class \"Class\"");
}
var meta_class=the_class.isa;
class_addIvars(the_class,[new objj_ivar("ivar")]);
class_addMethods(the_class,[new objj_method(sel_getUid("ivar"),function $Class__ivar(_1,_2){
return _1.ivar;
},["Type"]),new objj_method(sel_getUid("setIvar:"),function $Class__setIvar_(_3,_4,_5){
_3.ivar=_5;
},["void","Type"])]);
@@ -6,6 +6,7 @@ var FILENAMES = [
"Class/root-class",
"Class/root-class-one-ivar",
"Class/root-class-multiple-ivars",
"Class/accessors",
"Messages/no-parameters",
"Messages/one-parameter",