tests, docs, and it works

1 files changed, 18 insertions, 0 deletions

diff --git a/t/precision.t b/t/precision.t
new file mode 100644
index 0000000..751e1d6
--- /dev/null
+++ b/t/precision.t
@@ -0,0 +1,18 @@
+#!perl
+use Test::More;
+use DateTime;
+use DateTime::Format::GeekTime;
+
+if ($ENV{SLOW_TESTS}) {
+    plan tests=>65536;
+}
+else {
+    plan skip_all => 'Slow test, set $ENV{SLOW_TESTS} to run it';
+}
+
+for my $i (0..65535) {
+    my $gkt=sprintf '0x%04X on day 0x000',$i;
+    my $dt=DateTime::Format::GeekTime->parse_datetime($gkt);
+    my $round_trip=DateTime::Format::GeekTime->format_datetime($dt);
+    is(substr($round_trip,0,19),$gkt);
+}