VPF::Изменить время в скрипте - Форум программистов

Suic2

Дата 25.12.2012, 10:47 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем привет, есть модуль Test::MockTime, он заменяет время внутри скрипта на нужное вам. Пример:

Код


use Test::MockTime qw(:all);
use Time::Local;

my $sec  = 0;
my $min  = 0;
my $hour = 14;
my $mday = 1; #1-31
my $mon  = 1; #1-12
my $year = 2013; #1970-...

set_fixed_time(timelocal($sec,$min,$hour,$mday,$mon-1,$year-1900));

print join "\n", localtime;

очень удобно для тестирования зависимых от времени частей программы.
Но столкнулся с проблемой, что при использовании

Код


use Time::localtime;

функция localtime не желает поддаваться действию Test::MockTime

пример:

Код


use Time::localtime;
use Time::Local;

use Test::MockTime qw(:all);

my $sec  = 0;
my $min  = 0;
my $hour = 14;
my $mday = 1; #1-31
my $mon  = 1; #1-12
my $year = 2013; #1970-...

set_fixed_time(timelocal($sec,$min,$hour,$mday,$mon-1,$year-1900));

my $t=localtime();
my $xmon=$t->mon;
my $xyear=$t->year;
my $xday=$t->mday;
my $xmon_now=$xmon+1;
my $xyear_now=$xyear+1900;

print "$xmon_now $xyear_now\n";

Есть ли способ изменить время во втором случае?

arto

Дата 25.12.2012, 11:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

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

# perl -MTest::MockTime=set_fixed_time -MTime::localtime -le ' set_fixed_time(100); print localtime()->year'
70
#

Suic2

Дата 25.12.2012, 11:35 (ссылка)

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

Загрузка ...

Новичок

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

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

как оно работает не пойму

Suic2

Дата 25.12.2012, 12:15 (ссылка)

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

Загрузка ...

Новичок

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

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

что за уличная магия:

Код


#не работает
use Time::localtime;
use Test::MockTime qw(:all);

Код


#работает
use Test::MockTime qw(:all);
use Time::localtime;

DurRandir

Дата 25.12.2012, 15:06 (ссылка)

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

Загрузка ...

Опытный

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

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

Меняется порядок импорта - меняется порядок переопределения системных функций.

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