Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 27.05.2014, 01:46   #1 (permalink)
Charlotte
Member
 
Регистрация: 20.04.2014
Сообщений: 63
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Проверьте,пожалуйста, правильность написания программы. 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 и сообщений « Все очень плохо » .

вот код программы:
Код:
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.
всем спасибо!
Charlotte вне форума   Ответить с цитированием

Старый 27.05.2014, 01:46
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Пожалуйста, не забудьте прочитать данные темы

Проверьте правильность сборки
Проверьте правильность печатной платы
Проверьте правильность печатки
Проверьте правильность программы на Паскале
Проверьте правильность программы на паскале

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:58.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.