Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
40 lines (28 sloc) 1.18 KB
use Modern::Perl;
use Test::More;
use Schema;
use Test::Database;
my $schema = Test::Database->new->create(Schema => ':memory:');
my $photo_id = '4729801945';
my $next_photo_id = '2253839375';
my $prev_photo_id = '4730456558';
my $photoset_id = '72157624347519408';
my $photo = $schema->resultset('Photo')->find($photo_id);
is $photo->location => 'Chico, California';
ok $photo->update({region => undef});
is $photo->location => 'Chico';
ok $photo->update({locality => undef, region => 'Texas'});
is $photo->location => 'Texas', 'location';
is $photo->set->id => $photoset_id, 'photoset id';
is $photo->previous->id => $prev_photo_id, 'previous photo';
is $photo->next->id => $next_photo_id, 'next photo';
ok !$photo->previous->previous, 'no previous photo';
ok !$photo->next->next, 'no next photo';
ok $photo->update({idx => undef}), 'clear idx';
ok !$photo->previous, 'returns false';
ok !$photo->next, 'returns false';
like $photo->time_since => qr/\d+ \w+ and \d+ \w+ ago/, 'time since';
ok $photo->update({taken => undef}), 'clear taken';
ok $photo = $schema->resultset('Photo')->find($photo_id), 'refresh';
ok !$photo->time_since, 'no time since';
done_testing;