Forráskód Böngészése

* fixed test after merge in r13458 (selector() -> objcselector())

git-svn-id: branches/objc@13596 -
Jonas Maebe 16 éve
szülő
commit
1a34492990
1 módosított fájl, 2 hozzáadás és 2 törlés
  1. 2 2
      tests/test/tobjc1.pp

+ 2 - 2
tests/test/tobjc1.pp

@@ -8,11 +8,11 @@ var
   a: NSObject;
 begin
   a:=NSObject(NSObject(NSObject.alloc).init);
-  if a.respondstoselector_(selector('isKindOfClass:')) then
+  if a.respondstoselector_(objcselector('isKindOfClass:')) then
     writeln('ok string selector!')
   else
     halt(1);
-  if a.respondstoselector_(selector(NSObject.init)) then
+  if a.respondstoselector_(objcselector(NSObject.init)) then
     writeln('ok method selector!')
   else
     halt(2);