+ lowercase filenames

tests/ts010005.pp

@@ -0,0 +1,41 @@
+type
+   tclass1 = class
+      procedure a;virtual;
+      procedure b;virtual;
+   end;
+
+   tclass2 = class(tclass1)
+      procedure a;override;
+      procedure b;override;
+      procedure c;virtual;
+   end;
+
+
+  procedure tclass1.a;
+
+    begin
+    end;
+
+  procedure tclass1.b;
+
+    begin
+    end;
+
+  procedure tclass2.a;
+
+    begin
+    end;
+
+  procedure tclass2.b;
+
+    begin
+    end;
+
+
+  procedure tclass2.c;
+
+    begin
+    end;
+
+begin
+end.

tests/ts010006.pp

@@ -0,0 +1,11 @@
+library test;
+
+  procedure exporttest;export;
+
+    begin
+    end;
+
+  exports exporttest;
+
+begin
+end.

tests/ts010007.pp

@@ -0,0 +1,43 @@
+type
+   tobject2 = class
+      i : longint;
+      procedure y;
+      constructor create;
+      class procedure x;
+      class procedure v;virtual;
+   end;
+
+  procedure tobject2.y;
+
+    begin
+    end;
+
+  class procedure tobject2.v;
+
+    begin
+    end;
+
+  class procedure tobject2.x;
+
+    begin
+       v;
+    end;
+
+  constructor tobject2.create;
+
+    begin
+    end;
+
+  type
+     tclass2 = class of tobject2;
+
+  var
+     a : class of tobject2;
+     object2 : tobject2;
+
+begin
+   a.x;
+   tobject2.x;
+   object2:=tobject2.create;
+   object2:=a.create;
+end.

tests/ts010008.pp

@@ -0,0 +1,38 @@
+type
+   tobject2 = class
+      constructor create;
+      function rname : string;
+      procedure wname(const s : string);
+      property name : string read rname write wname;
+   end;
+
+   tclass2 = class of tobject2;
+
+var
+   o2 : tobject2;
+   c2 : tclass2;
+
+constructor tobject2.create;
+
+  begin
+     inherited create;
+  end;
+
+procedure tobject2.wname(const s : string);
+
+  begin
+  end;
+
+function tobject2.rname : string;
+
+  begin
+  end;
+
+begin
+   o2:=tobject2.create;
+   o2.name:='1234';
+   writeln(o2.name);
+   o2.destroy;
+   o2:=c2.create;
+   c2.destroy;
+end.

tests/ts010009.pp

@@ -0,0 +1,13 @@
+unit ts010009;
+
+  interface
+
+  type
+     tr = record
+        case a : (x,y,z) of
+           x : (l : longint);
+        end;
+
+  implementation
+
+end.