Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2014, 00:42   #1
carrie bradshaw
Форумчанин
 
Регистрация: 25.01.2014
Сообщений: 105
По умолчанию проверьте,пожалуйста, правильность написания программы / 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.
всем спасибо!!!
carrie bradshaw вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проверьте правильность написания кода и коментарии mugik770 Помощь студентам 0 01.09.2012 19:35
Проверьте правильность написания строк neomax38 Помощь студентам 0 26.12.2010 07:02
BlockWrite Проверьте правильность, пожалуйста. Alex Cones Общие вопросы Delphi 3 18.11.2009 21:23
Проверьте правильность написания кода в delphi neomaximus Помощь студентам 2 09.04.2009 17:29
Проверьте правильность пожалуйста Анжелика Помощь студентам 17 11.01.2009 00:28