#!/usr/bin/perl -w
use Jifty::Test tests => 8;
use_ok 'Jifty::DateTime';
my $date = Jifty::DateTime->new_from_string("2006-05-03 01:23:45");
my $date_clone = $date->clone();
is $date, $date_clone;
is $date->friendly_date, '2006-05-03';
$date = Jifty::DateTime->now;
is $date->friendly_date, 'today';
$date = Jifty::DateTime->now->subtract(days => 1);
is $date->friendly_date, 'yesterday';
$date = Jifty::DateTime->now->subtract(days => 2);
like $date->friendly_date, qr/^\d\d\d\d-\d\d-\d\d$/;
$date = Jifty::DateTime->now->add(days => 1);
is $date->friendly_date, 'tomorrow';
$date = Jifty::DateTime->now->add(days => 2);
like $date->friendly_date, qr/^\d\d\d\d-\d\d-\d\d$/;