* fixed test (NSZone is not a class, define a local class to alias)

git-svn-id: branches/objc@13676 -

tests/test/tobjc8.pp

@@ -11,13 +11,20 @@ uses
 
 type
   TMyTestClass = objcclass(NSObject)
+  end;
+
+  TMyTestClass2 = objcclass(NSObject)
     { should give a hint because of a missing 'override' }
     function hash: cuint;
-  end; external name 'NSZone';
+  end; external name 'TMyTestClass';
 
 var
   a: id;
+  b: tmytestclass2;
 begin
+  b:=nil;
+  if assigned(b) then
+    ;
   { avoid warnings/hints about unused types/variables }
   a:=TMyTestClass.alloc;
   tmytestclass(a).Retain;