#!/usr/bin/perl

use strict;
use warnings;

# change the lib path to import OO::TO::TimeTO
use lib qw( /home/gargle/public_html/cgi/ );

use Test::More 'no_plan';

use DateTime;

use OO::TO::TimeTO;

my $timeTO = TimeTO->new();
is( ref $timeTO, "TimeTO", "A TimeTO object");

# the output of Today is $year, $month, $day, which is exactly what
# Date_to_Text_Long needs
my $today = DateTime->now();

$timeTO->setDate( $today->ymd() );
is( $timeTO->getDate(), $today->ymd(), "it's $today");

$timeTO->setTime( $today->hms() );
is( $timeTO->getTime(), $today->hms(), "it's $today");