Explorar o código

* Removed some superfluous code

git-svn-id: trunk@30362 -
michael %!s(int64=10) %!d(string=hai) anos
pai
achega
1ca0b1c5a0
Modificáronse 1 ficheiros con 1 adicións e 13 borrados
  1. 1 13
      packages/fcl-fpcunit/src/tests/frameworktest.pp

+ 1 - 13
packages/fcl-fpcunit/src/tests/frameworktest.pp

@@ -20,21 +20,9 @@ uses
   consoletestrunner, classes, SysUtils, fpcunit, testreport, asserttest,
   suitetest;
 
-Const
-  ShortOpts = 'alh';
-  Longopts : Array[1..5] of String = (
-    'all','list','format:','suite:','help');
-  Version = 'Version 0.1';
 
 Type
-  TFPCUnitRunner = Class(TTestRunner)
-
-  end;
-
-
-
-
-
+  TFPCUnitRunner = Class(TTestRunner);
 
 Var
   App : TFPCUnitRunner;