瀏覽代碼

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

git-svn-id: branches/objc@13596 -
Jonas Maebe 16 年之前
父節點
當前提交
1a34492990
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      tests/test/tobjc1.pp

+ 2 - 2
tests/test/tobjc1.pp

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