unit TestU_GUI;

interface

uses
  TestFramework, System.SysUtils, Vcl.Graphics, Vcl.StdCtrls, Winapi.Windows,
  System.Variants, System.UITypes, Vcl.ComCtrls, Vcl.Dialogs, Vcl.Controls, Vcl.Forms,
  Winapi.Messages, math, System.Classes, U_GUI;

type
  // Test methods for class TForm1

  SetUpAndTearDown = class(TTestCase)
  strict private
    FForm1: TForm1;
  public
    procedure SetUp; override;
    procedure TearDown; override;
    end;

  UGUI = class(TTestCase)
  strict private
    FForm1: TForm1;
  published
    procedure TestbtnAddresultClick;
    procedure TestbtnCalculateRcValueClick;
    procedure TestbtnDeleteClick;
    procedure TestFormCreate;
    procedure TestbtnAddimputClick;
    procedure TestbtnDeleteSelectedMaterialClick;
    procedure TestbtnSaveToFileFromlvMaterialsClick;
    procedure TestbtnLoadFromFileTolvMaterialsClick;
    procedure TestbtnClearListMaterialsClick;
    procedure TestbtnClearClick;
    procedure TestlvMaterialsSelectItem;
    procedure TestbtnLoadFromFileTolvConstructionClick;
    procedure TestbtnSaveToFileFromlvConstructionClick;
    procedure TestCalculatematerial;
    procedure TestedDiameterChange;
    procedure TestedLabdaChange;
  end;

   UControls = class(TTestCase)
published
   procedure TestMaterialsSelectItem(Sender: TObject);
   procedure TestFCreate(Sender: TObject);
   procedure TestSaveToFileFrom(Sender: TObject);
   procedure TestAddListView(x, y: integer; ListItem: TListItem; instr: string);
   procedure Testsplit_string(x: integer; instr: string);
   procedure TestLoadFromFile(Sender: TObject);
   procedure TestAddimputClick(Sender: TObject);
   procedure TestAddresultClick(Sender: TObject);
   end;

   UMath = class(TTestCase)
published
   procedure TestCalculate(Sender: TObject);
   procedure TestCalculateRcValueClick(Sender: TObject);
   end;

  var UGUITestSuite : TTestSuite;
      UControlsTestSuite : TTestSuite;
      UMathTestSuite : TTestSuite;
implementation

uses   U_math, U_Controls;

procedure SetUpAndTearDown.SetUp;
begin
  FForm1 := TForm1.Create(form1);
end;

procedure SetUpAndTearDown.TearDown;
begin
  FForm1.Free;
  FForm1 := nil;
end;

procedure UGUI.TestbtnAddresultClick;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.btnAddresultClick(Form1);
  // TODO: Validate method results
end;

procedure UGUI.TestbtnCalculateRcValueClick;
var Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.btnCalculateRcValueClick(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestbtnDeleteClick;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.btnDeleteClick(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestFormCreate;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.FormCreate(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestbtnAddimputClick;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.btnAddimputClick(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestbtnDeleteSelectedMaterialClick;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.btnDeleteSelectedMaterialClick(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestbtnSaveToFileFromlvMaterialsClick;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.btnSaveToFileFromlvMaterialsClick(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestbtnLoadFromFileTolvMaterialsClick;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.btnLoadFromFileTolvMaterialsClick(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestbtnClearListMaterialsClick;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.btnClearListMaterialsClick(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestbtnClearClick;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.btnClearClick(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestlvMaterialsSelectItem;
var
  Selected: Boolean;
  Item: TListItem;
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.lvMaterialsSelectItem(Sender, Item, Selected);
  // TODO: Validate method results
end;

procedure UGUI.TestbtnLoadFromFileTolvConstructionClick;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.btnLoadFromFileTolvConstructionClick(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestbtnSaveToFileFromlvConstructionClick;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.btnSaveToFileFromlvConstructionClick(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestCalculatematerial;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.Calculatematerial(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestedDiameterChange;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.edDiameterChange(Sender);
  // TODO: Validate method results
end;

procedure UGUI.TestedLabdaChange;
var
  Sender: TObject;
begin
  // TODO: Setup method call parameters
  FForm1.edLabdaChange(sender);
  // TODO: Validate method results
end;

{ UControls }

procedure UControls.TestAddimputClick(Sender: TObject);
begin
  AddimputClick(sender);
end;

procedure UControls.TestAddListView(x, y: integer; ListItem: TListItem;
  instr: string);
begin
  AddListView(x, y, ListItem, instr);
end;

procedure UControls.TestAddresultClick(Sender: TObject);
begin
  AddresultClick (sender);
end;

procedure UControls.TestFCreate(Sender: TObject);
begin
  FCreate (sender);
end;

procedure UControls.TestLoadFromFile(Sender: TObject);
begin
  LoadFromFile (sender);
end;

procedure UControls.TestMaterialsSelectItem(Sender: TObject);
begin
  MaterialsSelectItem (sender);
end;

procedure UControls.TestSaveToFileFrom(Sender: TObject);
begin
  SaveToFileFrom (sender);
end;

procedure UControls.Testsplit_string(x: integer; instr: string);
begin
  split_string(x, instr);
end;

{ UMath }

procedure UMath.TestCalculate(Sender: TObject);
begin
  // TODO: Setup method call parameters
  Calculate(sender);
  // TODO: Validate method results

end;

procedure UMath.TestCalculateRcValueClick(Sender: TObject);
begin
  // TODO: Setup method call parameters
  CalculateRcValueClick(sender);
  // TODO: Validate method results
end;
Initialization
  // Register any test cases with the test runner
RegisterTest(SetUpAndTearDown.Suite);
UGUITestSuite:=TTestSuite.Create('GraphicUserInterface');
UGUITestSuite.AddTest(UGUI.Suite);
RegisterTest(UGUITestSuite);
UControlsTestSuite:=TTestSuite.Create('Controls');
UControlstestSuite.AddTest(UControls.Suite);
RegisterTest(UControlsTestSuite);
UMathTestSuite:=TTestSuite.Create('Math');
UMathtestSuite.AddTest(UMath.Suite);
RegisterTest(UMathTestSuite);


{RegisterTest(UControls.Suite);
UControlsTestSuite:=TTestSuite.Create('U_Controls');
UControlstestSuite.AddTest(UControls.Suite);
RegisterTest(UControlsTestSuite);

RegisterTest(UMath.Suite);
UMathTestSuite:=TTestSuite.Create('U_Math');
UMathtestSuite.AddTest(UMath.Suite);
RegisterTest(UMathTestSuite);      }

end.