#!/usr/bin/perl
use warnings;
use strict;
use Test::More no_plan =>;#<
use Time::dt qw(dt strptime read_dt);
my $t = dt(1370322852);
# TODO your zone/tz files make this difficult to test
#is($t->dt, "2013-06-03 22:14:12 PDT") or die "failure";
# also... missing zones => silently use UTC and hate yourself
is($t->zdt("EST"), "2013-06-04 00:14:12 EST");
is(strptime("2013-06-04 01:14:12 EDT"), 1370322852);
my $t2 = read_dt("2013-06-04 01:14:12 EDT");
is($t2->epoch, 1370322852);
# vim:ts=2:sw=2:et:sta