[Bps-public-commit] r12252 - in Date-Extract: .

[sartak at bestpractical.com]

Author: sartak
Date: Mon May 12 09:28:51 2008
New Revision: 12252

Added:
   Date-Extract/t/10-misc.t
Modified:
   Date-Extract/   (props changed)

Log:
 r55583 at onn:  sartak | 2008-05-12 09:19:41 -0400
 Test that the default time_zone is floating


Added: Date-Extract/t/10-misc.t
==============================================================================
--- (empty file)
+++ Date-Extract/t/10-misc.t	Mon May 12 09:28:51 2008
@@ -0,0 +1,11 @@
+#!perl -T
+use strict;
+use warnings;
+use Test::More tests => 2;
+use Date::Extract;
+
+my $parser = Date::Extract->new;
+my $dt = $parser->extract("writing a test today!");
+is($dt->time_zone->name, 'floating', 'default time zone is floating');
+is($dt->ymd, DateTime->today(time_zone => 'floating')->ymd, 'extracted the date as today');
+