* filename converted to lowercase

tests/TS010005.PP

@@ -1,41 +0,0 @@
-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

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

tests/TS010007.PP

@@ -1,43 +0,0 @@
-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

@@ -1,38 +0,0 @@
-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

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