Как переделать код для лучшего unit-тестирования, если вся бизнес-логика находится в data module?

Delphi , Базы данных , Модуль данных

Unit-тестирование является важной частью разработки программного обеспечения, так как оно позволяет гарантировать корректность работы кода и выявлять ошибки на ранних этапах разработки. Однако, когда вся бизнес-логика находится в data module, проведение unit-тестирования может стать сложной задачей. В этой статье мы рассмотрим, как можно переделать код для лучшего unit-тестирования в таких случаях.

Подтвержденный ответ: Для того чтобы сделать код более подходящим для unit-тестирования, необходимо выполнить несколько шагов:

1. Убедитесь, что ваш DataModule не имеет никаких ссылок на формы или другие компоненты пользовательского интерфейса.
2. Поместите TDataSources на формы, а не в ваши DataModules.
3. Убедитесь, что в коде DataModules нет никаких запросов на подтверждение и операций, требующих ввода пользователя.
4. Избегайте использования глобальных переменных.

Пример кода на Object Pascal (Delphi):

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Datasnap.DBClient, Datasnap.DBXConnection;

type
  TForm1 = class(TForm)
    btnConnect: TButton;
    btnDisconnect: TButton;
    btnQuery: TButton;
    dbs: TDBSQLConnection;
    dbsQuery: TDBSQLQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnConnectClick(Sender: TObject);
begin
  dbs.Connected := True;
end;

procedure TForm1.btnDisconnectClick(Sender: TObject);
begin
  dbs.Connected := False;
end;

procedure TForm1.btnQueryClick(Sender: TObject);
begin
  dbsQuery.SQL.Text := 'SELECT * FROM Table1';
  dbsQuery.Open;
end;

end.

В этом примере вся бизнес-логика находится в data module, и для проведения unit-тестирования необходимо переделать код следующим образом:

1. Удалить все ссылки на формы и другие компоненты пользовательского интерфейса из DataModule.
2. Поместить TDataSources на форму, а не в DataModule.
3. Удалить все запросы на подтверждение и операции, требующие ввода пользователя, из кода DataModule.
4. Избегать использования глобальных переменных.

Пример кода после переделки:

unit Unit1;

interface

uses
  Datasnap.DBClient, Datasnap.DBXConnection;

type
  TDataModule1 = class(TDataModule)
    dbs: TDBSQLConnection;
    dbsQuery: TDBSQLQuery;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Connect;
    procedure Disconnect;
    procedure Query;
  end;

var
  DataModule1: TDataModule1;

implementation

procedure TDataModule1.Connect;
begin
  dbs.Connected := True;
end;

procedure TDataModule1.Disconnect;
begin
  dbs.Connected := False;
end;

procedure TDataModule1.Query;
begin
  dbsQuery.SQL.Text := 'SELECT * FROM Table1';
  dbsQuery.Open;
end;

end.

Теперь, когда вся бизнес-логика находится в отдельном data module, можно проводить unit-тестирование кода без привязки к пользовательскому интерфейсу. Это позволяет гарантировать корректность работы кода и выявлять ошибки на ранних этапах разработки.

Альтернативный ответ: В качестве альтернативы можно использовать инструмент OpenCTF для автоматического создания тестов для DUnit. OpenCTF может находить все компоненты и создавать тестовые случаи автоматически во время выполнения теста. Пример тестов включает в себя некоторые базовые тесты доступа к данным.

Ссылки:

• https://sourceforge.net/projects/openctf/
• http://cc.embarcadero.com/Item/24136
• http://www.mikejustin.com/images/OpenCTF.gif

Вывод: Переделка кода для лучшего unit-тестирования, когда вся бизнес-логика находится в data module, требует выполнения нескольких шагов, таких как удаление ссылок на формы и другие компоненты пользовательского интерфейса, помещение TDataSources на форму, удаление запросов на подтверждение и операций, требующих ввода пользователя, и избегание использования глобальных переменных. Кроме того, можно использовать инструмент OpenCTF для автоматического создания тестов для DUnit.

Создано по материалам из источника по ссылке.

Статья объясняет, как переделать код для лучшего unit-тестирования, когда вся бизнес-логика находится в data module.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Модуль данных ::