VPF::Использование Test::Simple для своего скрипта.

z0091

Дата 15.10.2012, 00:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.10.2012
Где: Самара

Репутация: нет
Всего: нет

Всем привет!

Мне необходимо выполнить тестирование своего небольшого скрипта. Скрипт я разбил на функции. Каждая функция выполняет максимально простое действие.

Код


#!/usr/bin/perl -w

package go;
require Exporter;
@ISA=(Exporter);
@EXPORT = qw(domain_calc_sort check_list domain_sort email_list domain_calc go);

{

sub go {

    foreach (<>) {
        my $name = check_list(chomp($_));
        if ($name) {
            my ($value, $key) = split( /@/, $_ );

                $list{ $key }{ $value } = $value;

            } else {
                push (@list, "\L$_");
            }
    }
}
#тут остальной код.

sub domain_calc_sort {
    my ( $h ) = @_;
    my @domain_calc_sort;
    # Сортируем домены по кол-ву ящиков. Возврашаем список массивом
    my %ha = %$h;
    my @sorted_keys = (sort {$ha{$b} <=>  $ha{$a}} keys %ha);
    foreach(@sorted_keys){
        push ( @domain_calc_sort, $_." : ".$ha{$_} );
    };
    return @domain_calc_sort;
}
go;
1;
}

Ранее функции "go" у меня не было. Но ее добавил, что бы весь скрипт состоял из функций, потому что как я понял, для тестирования мне необходимо оформить ее как perl модуль.

Теперь например я хочу протестировать скрипт.

test.pm

Код


#!/usr/bin/perl
# use Test::Simple tests => 2;
use go;

# ok(1);
# my %food_color = ( 
# "mail.ru" => "1", "reg.ru" => "1", "vk.com" => "5", "i.ua" => "3" ); 

# my @domain = go::domain_calc_sort( \%food_color );
# print @domain;
print "2";

1;
# ok(1+1 == 2,'1+1=2');

ps. код комментировал в процессе решения проблемы.

В итоге, запуска скрипт test.pm, он ожидает что бы я указал файл для чтения. Если указать файл, то выполнится исходный скрипт.

Суть проблемы в том, как мне использовать тесты? МНе не нужно что бы подключаемый скрипт начал выполняться. Мне нужно только проверить работу отдельных его функций.

z0091

Дата 15.10.2012, 20:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 15.10.2012
Где: Самара

Репутация: нет
Всего: нет

Бльше всего интересует, как корректно подключить файл, в котором есть блок:

Код


foreach (<>) {...}

require_ok('myfile.pl'); или use ('myfile.pl') подключают, но начинают его тут-же выполнять. Ждут ввовда <>.

Pfailed

Дата 16.10.2012, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39

В модулях обычно не запускается выполнение никаких функций, а происходит лишь их определение, поэтому их и удобно тестировать.
Сами функции стоит запускать из главной программы, где подключаются нужные модули. Поэтому можно сказать, что ваш модуль написан неверно.
А именовать модули принято в CamelCase, так что ваш "go" должен быть "Go". Также ".pm" это расширение для модулей, а для скриптов используется ".pl".

--------------------

I'm on CPAN
I'm on github

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »