Unit тесты

← →
kot1110 (2005-11-30 10:10) [0]

Удалено модератором
Примечание: СПАМ

← →
Digitman © (2005-11-30 10:21) [1]

> Реально что-нибудь сделать?

ну а почему же нет ?

Main-формой VCL MDI-приложения обязана быть форма со св-вом FormStyle = MDIForm, и эта форма д.б. создана ДО создания любой из child-форм

← →
kot1110 (2005-11-30 11:20) [2]

Не вопрос, НО...
но при создании тест-проекта я не могу main-формой объявить действительно главную форму проекта (именно проекта, а не тест-проекта). Дело в том что в Unit-тест проекте главной формой является форма выполнения теста и изменить что-либо невозможно. Есть какие-либо другие варианты?...

P.S. Спасибо за ответ

← →
Digitman © (2005-11-30 12:04) [3]

> в Unit-тест проекте главной формой является форма выполнения
> теста

и что мешает сделать ее MDIParent-формой ?

← →
kot1110 (2005-11-30 12:39) [4]

расскажите как это сделать. я даже не знаю ее имя

← →
Digitman © (2005-11-30 12:56) [5]

> даже не знаю ее имя

Здрасть-приехали !)

Проект твой ? В дизайн-тайм в Инспекторе объектов форму видишь ? Ну так и установи там св-во FormStyle равным MDIForm !

← →
kot1110 (2005-11-30 13:00) [6]

В том то и дело что нет! нет там левой формы. только вормы проекта(основного, а не тест-проекта), причем не одну из них установить главной нельзя - делфя не позволяет :) хелп плз

← →
Digitman © (2005-11-30 13:17) [7]

> не одну из них установить главной нельзя - делфя не позволяет

что за глупости ?!

ну-ка приведи содержимое dpr-файлов обоих проектов ...

← →
kot1110 (2005-11-30 13:39) [8]

program ExpertTests;
{

Delphi DUnit Test Project
-------------------------
This project contains the DUnit test framework and the GUI/Console test runners.
Add "CONSOLE_TESTRUNNER" to the conditional defines entry in the project options
to use the console test runner. Otherwise the GUI test runner will be used by
default.

}

{$IFDEF CONSOLE_TESTRUNNER}
{$APPTYPE CONSOLE}
{$ENDIF}

uses
Forms,
TestFramework,
GUITestRunner,
TextTestRunner,
TestuMain in "TestuMain.pas",
uClass in "..\Class\uClass.pas",
uJournal in "..\Journal\uJournal.pas" {fmJournal},
uSMEGlobal in "..\Kernel\uSMEGlobal.pas",
uMain in "..\Main\uMain.pas" {fmMain},
uRecord in "..\Record\uRecord.pas" {fmRecord},
uSMEConst in "..\SMEConst\uSMEConst.pas";

{$R *.RES}

begin
Application.Initialize;
if IsConsole then
TextTestRunner.RunRegisteredTests
else
GUITestRunner.RunRegisteredTests;
end.

program Expert;

uses
Forms,
uMain in "Main\uMain.pas" {fmMain},
uSMEGlobal in "Kernel\uSMEGlobal.pas",
uJournal in "Journal\uJournal.pas" {fmJournal},
uRecord in "Record\uRecord.pas" {fmRecord},
uSMEConst in "SMEConst\uSMEConst.pas",
uClass in "Class\uClass.pas";

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TfmMain, fmMain);
Application.Run;
end.

← →
Digitman © (2005-11-30 13:46) [9]

что творится в теле
TextTestRunner.RunRegisteredTests
и
GUITestRunner.RunRegisteredTests;

?

← →
kot1110 (2005-11-30 13:52) [10]

это фича Unit-тестовая - запускается тест для консоля или для gui.

← →
Digitman © (2005-11-30 14:00) [11]

> запускается тест для консоля или для gui

это и ежу понятно)

меня интересует, что конкретно творится в телах соотв.методов соотв.объектов ... от этого и решение зависит ...

← →
kot1110 (2005-11-30 14:15) [12]

Это что-то системное похоже - я не знаю что там и посмотреть не могу, но оно использует tesuMain как основу для теста, который я сам и делаю. В нем нет и упоминания о главной форме

← →
Digitman © (2005-11-30 14:28) [13]

> что-то системное похоже

что-то не встречались мне ни TextTestRunner ни GUITestRunner ни в каких "системах" ... мож я от жизни отстал ?

> не знаю что там и посмотреть не могу

т.е. ты утверждаешь, что на твоей машине нет файлов TextTestRunner.pas и GUITestRunner.pas ? тогда откуда взялись соответствующие DCU ? Ссылка есть ?

← →
kot1110 (2005-11-30 14:32) [14]

нету, в том то и дело. а ты вообще с юниттестами знаком. а то у них там не все как у "людей" :)

← →
kot1110 (2005-11-30 14:40) [15]

в D:\Program Files\Borland\BDS\3.0\source\dUnit\src есть такой файл

unit GUITestRunner;
interface

uses
TestFramework,

Windows,
Math,
Graphics, Controls, Forms, Dialogs,
ComCtrls, ExtCtrls, StdCtrls, ImgList, Buttons, Menus, ActnList,
SysUtils, Classes, IniFiles, ToolWin;

...

procedure RunRegisteredTests;
begin
RunTest(registeredTests)
end;

...

procedure RunTest(test: ITest);
begin
with TGUITestRunner.Create(nil) do
begin
try
Suite := test;
ShowModal;
finally
Free;
end;
end;
end;

> ты вообще с юниттестами знаком

нет, не знаком ... ибо без надобности ..

> у них там не все как у "людей"

ну почему же ?

судя по малому фрагменту приведенного тобой кода - все там выглядит вполне прилично, хоть ии непривычно для тех кто привык доверять Борланду в части автогенерации его стандартными экспертами dpr-файлов

достаточно эту затейливую тест-чехарду изменить вот так :

with TGUITestRunner.Create(Application) do
begin
try
Suite := test;
FormStyle := fsMDIForm;
ShowModal;
finally
Free;
end;
end;

и все пойдет как по маслу

← →
kot1110 (2005-11-30 15:13) [17]

неполучилос :) тоже самое выводит

> kot1110 (30.11.05 15:13) [17]

исходник-то перекомпилил ?)...

← →
kot1110 (2005-11-30 15:20) [19]

агась

← →
kot1110 (2005-11-30 15:58) [20]

еще варианты....

← →
kot1110 (2005-12-01 09:20) [21]

Понятно ... вариантов нет

Unit тесты Найти похожие ветки