Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Unit тесты

Страницы: 1 2 >
kot1110 © (2005-11-30 10:10:00)
Удалено модератором
Примечание: СПАМ

kot1110 (2005-12-01 09:20:00) [1]
Понятно ... вариантов нет

kot1110 (2005-11-30 15:58:00) [2]
еще варианты....

kot1110 (2005-11-30 15:20:00) [3]
агась

Digitman (2005-11-30 15:16:00) [4]

> kot1110 (30.11.05 15:13) [17]

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

kot1110 (2005-11-30 15:13:00) [5]
неполучилос :) тоже самое выводит

Digitman (2005-11-30 14:55:00) [6]

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

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

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

ну почему же ?

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

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

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

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

kot1110 (2005-11-30 14:40:00) [7]
в 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;

kot1110 (2005-11-30 14:32:00) [8]
нету, в том то и дело. а ты вообще с юниттестами знаком. а то у них там не все как у "людей" :)

Digitman (2005-11-30 14:28:00) [9]

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

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

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

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

kot1110 (2005-11-30 14:15:00) [10]
Это что-то системное похоже - я не знаю что там и посмотреть не могу, но оно использует tesuMain как основу для теста, который я сам и делаю. В нем нет и упоминания о главной форме

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

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

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

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

kot1110 (2005-11-30 13:52:00) [12]
это фича Unit-тестовая - запускается тест для консоля или для gui.

Digitman (2005-11-30 13:46:00) [13]
что творится в теле
TextTestRunner.RunRegisteredTests
и
GUITestRunner.RunRegisteredTests;

?

kot1110 (2005-11-30 13:39:00) [14]
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:17:00) [15]

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

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

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

kot1110 (2005-11-30 13:00:00) [16]
В том то и дело что нет! нет там левой формы. только вормы проекта(основного, а не тест-проекта), причем не одну из них установить главной нельзя - делфя не позволяет :) хелп плз

Digitman (2005-11-30 12:56:00) [17]

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

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

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

kot1110 (2005-11-30 12:39:00) [18]
расскажите как это сделать. я даже не знаю ее имя

Digitman (2005-11-30 12:04:00) [19]

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

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

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

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

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »