Online - тесты на знание Delphi
Тест на знание свойств и методов для работы с БД в Delphi
Тест по Delphi - файл 1.doc
Опубликовано в Программирование 03 Сентябрь Разработка через тестирование в Delphi производится с помощью встроенного инструмента DUnit. В статье мы рассмотрим, как создаются тестовые проекты Delphi, как создавать юнит тесты и как тестировать. Итак, сначала поговорим о том, что такое DUnit. DUnit — это инструмент тестирования с открытыми исходными кодами, основанный на JUnit. Вообще, в состав Delphi этот инструмент включён начиная с Delphi Поставляется DUnit под лицензией Mozilla Public License 1. В статье я не буду углубляться в теорию, а лишь покажу, как пользоваться инструментом DUnit в Delphi. Будем считать, что читатель знает, что такое разработка через тестирование. Тестовый проект содержит один или несколько тестовых случаев, которые представляют из себя обычные. Рекомендуется создавать два отдельных проекта: Так вам не придётся в будущем удалять ваши тесты из готового приложения. Давайте для начала создадим проект, который мы будем тестировать. Допустим, это будет оконное VCL приложение. После создания тестируемого проекта, создадим тестовый проект. Все перечисленные поля заполнились автоматически, что нам подходит. В типичном тестовом проекте, для каждого тестируемого класса есть тестирующий класс, но это не обязательно. Тестирующий класс также привязан к тестовому случаю. Как правило, тестирующий класс имеет набор из одного или нескольких методов, которые соответствуют одному или нескольким методам тестируемого класса. В один тестовый проект могут быть включены несколько тестовых случаев. Запуск каждого тестового случая и тестового проекта может быть автоматизирован с помощью bat-файлов или скриптов сборки проекта. В основном рекомендуется создавать тесты в отдельном проекте отдельно от тестируемого проекта. Так вам не нужно будет удалять тесты из проекта перед финальной сборкой проекта. Прежде чем сделать тестовый случай, давайте определимся, что мы будем тестировать. В тестируемом проекте Project1 , который мы создали, есть форма. Давайте её и будем тестировать. Допустим, наша форма будет построчно сравнивать два текстовых файла и показывать строки с различиями. Сравнивать будем двумя способами: Код для теста сделаем элементарный, будем сравнивать строки с одинаковыми индексами. Итак, на форму ставим два текстовых поля TRichEdit и две кнопки TButton. Затем обрабатываем события от нажатий кнопок и дописываем код следующим образом:. TButton; procedure FormCreate Sender: TObject ; procedure FormDestroy Sender: TObject ; procedure Button1Click Sender: TObject ; procedure Button2Click Sender: TObject ; begin differentStrings: TObject ; begin differentStrings. TRichEdit ; var index: Count then begin richEdit. Lines , index ; richEdit. Lines [ index ] ; richEdit. Как видите, по нажатию на кнопки будут вызываться две процедуры Compare и ShowDifferences. Первая процедура будет сравнивать два текста и сохранять индексы несовпадающих строк в список differentStrings , а вторая процедура будет на основе этого списка подкрашивать несовпадающие строки в красный цвет. В процедуру Compare будет передаваться параметр ignoreCase определяющий способ сравнения строк. Пока реализацию функции Compare делать не будем, а сразу сделаем тест для неё. Modify the generated code to correctly setup and call the methods from the unit being tested. SetUp ; begin FForm1: TearDown ; begin FForm1. TestCompare ; var ignoreCase: Setup method call parameters FForm1. Как видите, здесь сделана заготовка для тестирующего класса TestTForm1 , унаследованного от класса TTestCase. В секции initialization происходит регистрация этого класса. В методе SetUp происходит подготовка к тестированию. Здесь нужно создать тестируемый класс и подготовить всё что нужно для тестов, например, подключиться к удалённому серверу или базе данных и т. Кстати здесь код сгенерирован с ошибкой: Исправим строку кода с созданием формы следующим образом:. Метод TearDown вызывается по окончании тестирования и здесь нужно освободить все ресурсы и удалить все созданные объекты. Здесь сгенерированный код нас устраивает. Метод TestCompare создан как раз для тестирования нашего метода Compare. Как видите, здесь вызывается наш метод Compare , но нет никаких проверок. Давайте добавим здесь в текстовые поля одинаковый текст, вызовем метод Compare и сделаем проверку результата. Boolean ; begin ignoreCase: CheckEquals 1 , FForm1. Разница в текстах не определена! После этого запустите тестовый проект Project1Tests. После запуска перед вами появится окошко, показанное на картинке ниже. После выполнения тестов вы увидите нашу ошибку. Это нормально, ведь пока наша функция Compare не написана и она ничего не сравнивает. Если вы щёлкните на ошибку, то в нижнем поле увидите подробности. Теперь давайте исправлять ошибки, чтобы тестирование прошло успешно. Допишите функцию сравнения следующим образом:. Lines [ i ] , RichEdit2. Lines [ i ] , TLocaleOptions. Count to Max RichEdit1. Count - 1 do differentStrings. CheckEquals 2 , FForm1. CheckEquals 0 , FForm1. Теперь протестируем нашу функцию Compare. Как видите, всё работает правильно, ошибок нет. Помимо метода CheckEquals в вашем распоряжении есть и другие методы для проверки результатов. Вот основные методы, которые вам могут понадобиться:. Отдельно хотелось бы показать, как тестировать приватные методы. Для вызова приватных методов в Delphi мы воспользуемся RTTI Run-Time Type Information. Код тестирования поменяйте следующим образом, не забыв добавить в секцию uses юнит System. Аналогично можно тестировать приватные свойства. Итак, из статьи вы узнали, как реализована поддержка разработки с помощью тестирования в Delphi , а именно: DUnit Учебники по программированию Delphi. Подписаться на уведомления о новых комментариях. Главная Темы Обзоры программ Обзоры операционных систем Обзоры устройств Обзоры роботов Учебники по использованию программ Учебники по программированию Инструкции LEGO Mindstorms EV3 RoboCam. Главная Программирование Юнит-тесты Delphi или разработка через тестирование. Юнит-тесты Delphi или разработка через тестирование Автор: Создание тестового проекта Тестовый проект содержит один или несколько тестовых случаев, которые представляют из себя обычные. Тестовые случаи и тестирование В типичном тестовом проекте, для каждого тестируемого класса есть тестирующий класс, но это не обязательно. Затем обрабатываем события от нажатий кнопок и дописываем код следующим образом: Просто в низу пишет что успешно и все. Кто может помочь отпишите. Обновить список комментариев RSS лента комментариев этой записи. Самые популярные статьи Установка светодиодных ламп 12v в люстре вместо галогеновых Конструкторы программируемых роботов Установка Android на нетбук или компьютер Тестирование веб сервисов или как пользоваться SoapUI Создаем прокси-сервер socks Шлемы виртуальной реальности из смартфона Какую 3D ручку купить? Последние комментарии Квадрокоптеры для съёмки видео Саша В. В log4d добавлена поддержка Delphi Я думаю, лампы бракованные. Нужно сдавать по чеку. Подскажите, что может быть такое. Сделал все по инструкции из статьи. Пока ждал ответа - практически полностью написал программу Последние статьи Tertill — робот, круглосуточно пропалывающий ваш огород Выбираем электросамокат для города Игрушечные судна на воздушной подушке из конструктора Strawbees и картона Настольная вакуум формовочная машина Vi. Метки Обзоры устройств Учебники по программированию LEGO Mindstorms Education EV3 Обзоры программ LEGO Учебники по использованию программ Android Windows Delphi Инструкции LEGO Mindstorms EV3. Обратная связь Карта сайта RSS-лента. При использовании материалов сайта прямая ссылка на сайт ПрогХаус обязательна.
болит низ живота месячные пришли раньше
баскетбол результаты последних игр
http://jxycxy.wanxiaowang.cn/home.php?mod=space&uid=6320
карта усть каменогорска с названием улиц
Форум жен делающих минет
добавить объявление в каталог доски
http://bbs.51pinzhi.cn/home.php?mod=space&uid=15851
каталог планов по обществознанию
как научиться танцевать тверк детям
http://www.gaohuiguoshu.com/home.php?mod=space&uid=45180
http://kmgszx.com/home.php?mod=space&uid=73850
http://www.lymx123.com/home.php?mod=space&uid=9116&do=profile
http://svazstroyinvest.ru/board/tools.php?event=profile&pname=Kelvinwreva
44 размер обуви
Изготовление изделий из профильной трубы с чертежами