Browse Source

* forgot to commit previously

git-svn-id: branches/objc@13766 -
Jonas Maebe 16 years ago
parent
commit
ef39dff478
2 changed files with 23 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. 22 0
      tests/test/uobjc7.pp

+ 1 - 0
.gitattributes

@@ -8944,6 +8944,7 @@ tests/test/units/sysutils/tfloattostr.pp svneol=native#text/plain
 tests/test/units/sysutils/tlocale.pp svneol=native#text/plain
 tests/test/units/sysutils/tsscanf.pp svneol=native#text/plain
 tests/test/units/sysutils/tstrtobool.pp svneol=native#text/plain
+tests/test/uobjc7.pp svneol=native#text/plain
 tests/test/uobjcl1.pp svneol=native#text/plain
 tests/test/uprec6.pp svneol=native#text/plain
 tests/test/uprec7.pp svneol=native#text/plain

+ 22 - 0
tests/test/uobjc7.pp

@@ -0,0 +1,22 @@
+{ %target=darwin }
+{ %cpu=powerpc,i386 }
+
+{$mode objfpc}
+{$modeswitch objectivec1}
+
+unit uobjc7;
+
+interface
+
+type
+  tobjcprot = objcprotocol
+    procedure isrequired; message 'isrequired';
+   optional
+    procedure isoptional; message 'isoptional';
+   required
+    procedure alsorequired; message 'alsorequired';
+  end;
+
+implementation
+
+end.