program TestApp;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { add your units here }, LCLTextFileInString, SvnInfoReader, FlistFormat,
  LCLAnIniFile, IssFormat, ExtraFunctionsLCL, VerInfoTxtFormat;

//var-ы для тестов вбивать сюда.
  
////Тест модификации TTextFileInString.
//var
  //TestText : TTextFileInString;
  
////Тест TSvnInfoReaded
//var
  //TestSvnReader : TSvnInfoReader;
  //PathStr : AnsiString;
  
////Тест TFlistFormat
//var
  //FlistFile : TFlistFormat;
  
////Тест TAnIniFile
//var
  //AnIniFile : TAnIniFile;
  //ValueList : AIniValueList;
  
////Тест TIssFormat
//var
  //IssFile : TIssFormat;
  
////Тест ParseNumericHead
//var
  //InputStr, ParsedStr : AnsiString;
  
////Тест TVerInfoTxtFormat
//var
  //VITFormat : TVerInfoTxtFormat;

begin
  //Сюды (ниже) - вбивать тесты.
  
  ////Тест модификации TTextFileInString.
  //TestText := TTextFileInString.Create;
  //TestText.Load('..\..\..\entries');
  //repeat
    //Writeln(TestText.CurReadLn);
  //until TestText.Eof;
  //TestText.Free;
  
  ////Тест TSvnInfoReaded
  //TestSvnReader := TSvnInfoReader.Create;
  ////PathStr := 'Z:\home\sagrer\haiku\haiku\trunk';
  //PathStr := 'E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk';
  //Writeln(TestSvnReader.IsSvnDir(PathStr) );
  //Writeln(TestSvnReader.GetSvnDirFormat(PathStr) );
  //Writeln(TestSvnReader.GetSvnDirRevision(PathStr));
  //TestSvnReader.Free;
  
  ////Тест TFlistFormat
  //FlistFile := TFlistFormat.Create;
  //FlistFile.GlobalRoot := 'E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\generated';
  //FlistFile.AddRealDirectory('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\generated',true);
  //FlistFile.Save('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\test1.flist');
  //FlistFile.RemoveDirectory('.\src');
  //FlistFile.Save('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\test2.flist');
  //FlistFile.Free;
  
  ////Тест TAnIniFile.
  //AnIniFile := TAnIniFile.Create;
  //AnIniFile.Load('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\default.iss');
  //SetLength(ValueList,0,0);
  //AnIniFile.ReadIniValueList('Types',ValueList);
  //AnIniFile.RemoveIniValueListValue(ValueList,0,'Description');
  //AnIniFile.WriteIniValueList('Types',ValueList);
  //SetLength(ValueList,0,0);
  //AnIniFile.ReadIniValueList('Registry',ValueList);
  //AnIniFile.RemoveIniValueListElement(ValueList,0);
  //AnIniFile.WriteIniValueList('Registry',ValueList);
  //SetLength(ValueList,0,0);
  //AnIniFile.Save('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\test1.iss');
  //AnIniFile.Free;
  
  ////Тест TIssFormat
  //IssFile := TIssFormat.Create;
  //IssFile.Load('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\default.iss');
  ////IssFile.RemoveInstalType('StandardInstall');
  //IssFile.WriteInstallType('StandardInstall','Name: StandardInstall; Description: НеОбыкновенная установка; Languages: ');
  //IssFile.Save('E:\Sagrer\Works\GipatProj\ProgsDev\GGBuildTools\trunk\test1.iss');
  //IssFile.Free;
  
  ////Тест ParseNumericHead
  //InputStr := '12345abcd';
  //ParsedStr := ParseNumericHead(InputStr);
  //Writeln(InputStr);
  //Writeln(ParsedStr);
  
  ////Тест TVerInfoTxtFormat
  //VITFormat := TVerInfoTxtFormat.Create;
  ////Тупо сгенерим какую-нить версию...
  //VITFormat.Ver1 := 0;
  //VITFormat.Ver2 := 2;
  //VITFormat.Ver3 := 3;
  //VITFormat.Ver4 := 5;
  //VITFormat.Status := VIT_Status_ReleaseCandidate;
  //VITFormat.RCNum := 3;
  ////И выведем в консоль сгенеренные строки...
  //Writeln('GenerateVersionString() -> '+VITFormat.GenerateVersionString());
  //Writeln('GenerateVersionString_nosvn() -> '+VITFormat.GenerateVersionString_nosvn());
  //Writeln('GenerateFNVersionString_nostatus() -> '+VITFormat.GenerateFNVersionString_nostatus());
  //Writeln('GenerateFNVersionString() -> '+VITFormat.GenerateFNVersionString());
  //Writeln('GenerateShortVersionString() -> '+VITFormat.GenerateShortVersionString());
  //Writeln('GenerateShortVersionString_nosvn() -> '+VITFormat.GenerateShortVersionString_nosvn());
  //Writeln('GenerateDotsVersionString() -> '+VITFormat.GenerateDotsVersionString());
  //VITFormat.Free;
  
  //Ждать нажматия Enter-а
  Writeln('Done.');
  Readln();
end.