1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
use strict;
use warnings;
use Test::More tests => 4;
use DateTime;
use Time::HiRes;
use Time::Warp qw|to time|;
# Redefine "now" so that we can warp it.
no warnings 'redefine';
local *DateTime::now = sub { shift->from_epoch( epoch => (scalar time), @_ ) };
use warnings 'redefine';
use lib qw(t/lib);
use DBIC::Test;
my $schema = DBIC::Test->init_schema;
my $row;
my $t = time();
Time::HiRes::sleep (int ($t) + 1 - $t);
$row = $schema->resultset('DBIC::Test::Schema::TestDatetime')
->create({ display_name => 'test record' });
my $time = $row->t_updated;
ok $row->t_created, 'created timestamp';
is $row->t_updated->strftime('%a, %d %b %Y %H:%M'), $row->t_created->strftime('%a, %d %b %Y %H:%M'), 'update and create timestamp';
to(time + 60);
$row->update({ display_name => 'updating test record' });
is $row->display_name, 'updating test record', 'update record';
isnt $row->t_updated, $time, 'timestamp update';
|
