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