#!/usr/bin/perl
use strict;
use Test::More tests => 12;
use Time::Piece::MySQL;
my $lt = localtime;
isa_ok( $lt, 'Time::Piece' );
my $gmt = gmtime;
isa_ok( $gmt, 'Time::Piece' );
for my $t ( $lt, $gmt )
{
    is( $t->mysql_date, $t->ymd );
    is( $t->mysql_time, $t->hms );
    is( $t->mysql_datetime, join ' ', $t->ymd, $t->hms );
}
my $t = Time::Piece->from_mysql_datetime( $lt->mysql_datetime );
isa_ok( $t, 'Time::Piece' );
is( $t->mysql_datetime, $lt->mysql_datetime );
my $t2 = Time::Piece->from_mysql_date( $lt->mysql_date );
isa_ok( $t2, 'Time::Piece' );
is( $t2->ymd, $lt->ymd );