anchor.diff:      {$IFNDEF FPC}[TestCase]{$ENDIF} Procedure testBase;
     End;
   
  +  {$IFNDEF FPC}[TextFixture]{$ENDIF}
  +  TTarGZParserTests = Class (TFslTestCase)
  +  private
  +    function load(filename : String) : TFslList<TFslNameBuffer>;
  +  Published
  +    {$IFNDEF FPC}[TestCase]{$ENDIF} Procedure testPackage;
  +    {$IFNDEF FPC}[TestCase]{$ENDIF} Procedure testTzData;
  +  End;
  +
   implementation
   
   const psc = {$IFDEF WINDOWS} '\' {$ELSE} '/' {$ENDIF};
  
positive.code:   Fproc;
  end;
  
  initialization
    {$IFDEF FPC}
    RegisterTest('Generics Tests', TFslGenericsTests);
  
negative.code:   TDUnitX.RegisterTestFixture(TTurtleTests);
    TDUnitX.RegisterTestFixture(TDecimalTests);
    TDUnitX.RegisterTestFixture(TLangParserTests);
    TDUnitX.RegisterTestFixture(TTarGZParserTests);
  //  TDUnitX.RegisterTestFixture(TDigitalSignatureTests);
    {$ENDIF}
  end.
  