проверьте,пожалуйста, правильность написания программы / Delphi
доброй ночи, активным участникам форума. проверьте, пожалуйста, программу.
задание вот:
1. создать функцию для нахождения суммы двух чисел (когда нажимаешь кнопку, чтобы выводился результат в Label).
2 . Добавьте в созданный проекта тест командой File | New | Other | UnitTest | Test Project .
3 . Добавьте в созданный тестового проекта модуль командой File | New | Other | UnitTest | Test Case только для созданной вами функции .
4 . Модернизируйте процедуру SetUp таким образом , чтобы при запуске теста не создавалась форма тестируемого приложения.
5 . В процедуре тестирования созданной Вами функции присвойте переменной a и b значение 12 .
6 . В конце процедуры исследуйте возможности тестирования следующими командами .
7.1 . Процедурой CheckNotEquals :
7.1.1 . с начальным значением 24 и сообщением « Ответ не должна равняться » ;
7.1.2 . измените значение параметра expected на другое и проверьте выполнения теста ;
7.1.3 . добавьте процедуру Status с повидомелнням « Успешно » и проверьте выполнение теста .
7.2 . Процедурой CheckEquals ( закомментируйте процедуру CheckNotEquals ) :
7.2.1 . с начальным значением 24 и сообщением «Значение совпадают » + текущее значение выполнения теста ;
7.2.2 . измените значение параметра expected на другое и проверьте выполнение теста .
7.3 . Процедурой Assert ( закомментируйте процедуры CheckEquals и Status) со значением false и сообщений « Все очень плохо » .
вот код программы:
ВСЕМ СПАСИБО!
задание вот:
1. создать функцию для нахождения суммы двух чисел (когда нажимаешь кнопку, чтобы выводился результат в Label).
2 . Добавьте в созданный проекта тест командой File | New | Other | UnitTest | Test Project .
3 . Добавьте в созданный тестового проекта модуль командой File | New | Other | UnitTest | Test Case только для созданной вами функции .
4 . Модернизируйте процедуру SetUp таким образом , чтобы при запуске теста не создавалась форма тестируемого приложения.
5 . В процедуре тестирования созданной Вами функции присвойте переменной a и b значение 12 .
6 . В конце процедуры исследуйте возможности тестирования следующими командами .
7.1 . Процедурой CheckNotEquals :
7.1.1 . с начальным значением 24 и сообщением « Ответ не должна равняться » ;
7.1.2 . измените значение параметра expected на другое и проверьте выполнения теста ;
7.1.3 . добавьте процедуру Status с повидомелнням « Успешно » и проверьте выполнение теста .
7.2 . Процедурой CheckEquals ( закомментируйте процедуру CheckNotEquals ) :
7.2.1 . с начальным значением 24 и сообщением «Значение совпадают » + текущее значение выполнения теста ;
7.2.2 . измените значение параметра expected на другое и проверьте выполнение теста .
7.3 . Процедурой Assert ( закомментируйте процедуры CheckEquals и Status) со значением false и сообщений « Все очень плохо » .
вот код программы:
Код:
unit Unit115;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm115 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
Function Sum(a,b:integer):integer;
{ Public declarations }
end;
var
Form115: TForm115;
implementation
{$R *.dfm}
procedure TForm115.Button1Click(Sender: TObject);
begin
label1.Caption:=inttostr(Sum(2,2));
end;
function TForm115.Sum(a, b: integer): integer;
begin
result:=a+b;
end;
end.
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm115 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
Function Sum(a,b:integer):integer;
{ Public declarations }
end;
var
Form115: TForm115;
implementation
{$R *.dfm}
procedure TForm115.Button1Click(Sender: TObject);
begin
label1.Caption:=inttostr(Sum(2,2));
end;
function TForm115.Sum(a, b: integer): integer;
begin
result:=a+b;
end;
end.
Код:
unit TestUnit115;
{
Delphi DUnit Test Case
----------------------
This unit contains a skeleton test case class generated by the Test Case Wizard.
Modify the generated code to correctly setup and call the methods from the unit
being tested.
}
interface
uses
TestFramework, System.SysUtils, Vcl.Graphics, Vcl.StdCtrls, Winapi.Windows,
System.Variants, Vcl.Dialogs, Vcl.Controls, Vcl.Forms, Winapi.Messages, Unit115,
System.Classes;
type
// Test methods for class TForm115
TestTForm115 = class(TTestCase)
strict private
FForm115: TForm115;
public
procedure SetUp; override;
procedure TearDown; override;
published
procedure TestSum;
end;
implementation
procedure TestTForm115.SetUp;
begin
FForm115 := TForm115.Create(nil);
end;
procedure TestTForm115.TearDown;
begin
FForm115.Free;
FForm115 := nil;
end;
procedure TestTForm115.TestSum;
var
ReturnValue: Integer;
b:integer;
a: Integer;
begin
a:=12;
b:=12;
// TODO: Setup method call parameters
ReturnValue := FForm115.Sum(a, b);
// CheckNotEquals(25,ReturnValue,'ответ не равен');
//Status(26,ReturnValue,'успешно!');
//checkequals(24,'значения совпадают',26)
// TODO: Validate method results
end;
initialization
// Register any test cases with the test runner
RegisterTest(TestTForm115.Suite);
assert(false,'все очень плохо');
end.
{
Delphi DUnit Test Case
----------------------
This unit contains a skeleton test case class generated by the Test Case Wizard.
Modify the generated code to correctly setup and call the methods from the unit
being tested.
}
interface
uses
TestFramework, System.SysUtils, Vcl.Graphics, Vcl.StdCtrls, Winapi.Windows,
System.Variants, Vcl.Dialogs, Vcl.Controls, Vcl.Forms, Winapi.Messages, Unit115,
System.Classes;
type
// Test methods for class TForm115
TestTForm115 = class(TTestCase)
strict private
FForm115: TForm115;
public
procedure SetUp; override;
procedure TearDown; override;
published
procedure TestSum;
end;
implementation
procedure TestTForm115.SetUp;
begin
FForm115 := TForm115.Create(nil);
end;
procedure TestTForm115.TearDown;
begin
FForm115.Free;
FForm115 := nil;
end;
procedure TestTForm115.TestSum;
var
ReturnValue: Integer;
b:integer;
a: Integer;
begin
a:=12;
b:=12;
// TODO: Setup method call parameters
ReturnValue := FForm115.Sum(a, b);
// CheckNotEquals(25,ReturnValue,'ответ не равен');
//Status(26,ReturnValue,'успешно!');
//checkequals(24,'значения совпадают',26)
// TODO: Validate method results
end;
initialization
// Register any test cases with the test runner
RegisterTest(TestTForm115.Suite);
assert(false,'все очень плохо');
end.