Тестирование структур данных и XML в Perl

Question

У меня есть инструмент, который:
1. Преобразует несколько структур данных в XML. Я использую XML :: Element для преобразования из структуры данных в XML.
2. Преобразует XML в структуры данных. Я использую XML :: TreeBuilder для преобразования XML в структуры данных.

Мне нужно написать модульные тесты для этого инструмента.
1. Чтобы проверить преобразование структур данных в XML, я выполняю тестирование XML с использованием функций из модуля Test :: XML :: XPath. Например - like_xpath функция.
2. Для тестирования преобразования XML в структуры данных я использую функцию cmp_deeply из Test :: Deep.

Правильный ли подход тестирования структур данных и XML?
Или я что-то пропустил?
PS.
Это мой первый опыт модульных тестов в Perl.

Answer 1

Возможно, я простодушен, но это похоже на ситуацию, когда может быть лучше проверить общую картину, чем беспокоиться о деталях между ними. Вот схематический пример:

my $orig_data_structure = ...

my $xml = data_to_xml($orig_data_structure);
my $new_data_structure = xml_to_data($xml);

my $msg = 'The round trip should leave the data unchanged.';
cmp_deeply($new_data_structure, $orig_data_structure, $msg);