Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

проверьте,пожалуйста, правильность написания программы / Delphi

79K
26 мая 2014 года
carrie.bradshaw1990
14 / / 18.05.2014
доброй ночи, активным участникам форума. проверьте, пожалуйста, программу.

задание вот:
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.


Код:
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.
ВСЕМ СПАСИБО!
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог