Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Added test for rfc2822() function.

  • Loading branch information...
commit b213c02e2015f419a871fbd62488195107b34c60 1 parent e3856a0
Timothy Totten authored

Showing 1 changed file with 18 additions and 0 deletions. Show diff stats Hide diff stats

  1. +18 0 t/DateTime-rfc2822.t
18 t/DateTime-rfc2822.t
... ... @@ -0,0 +1,18 @@
  1 +use v6;
  2 +use Test;
  3 +
  4 +BEGIN { @*INC.unshift: 'lib' }
  5 +
  6 +plan 1;
  7 +
  8 +use DateTime::Utils;
  9 +
  10 +# Try currently implemented strftime() formats
  11 +my $g1 = DateTime.new(:year(1582), :month(10), :day(4),
  12 + :hour(13), :minute(2), :second(3.654321),
  13 + :timezone(-28800) );
  14 +
  15 +my $need = "Mon, 04 Oct 1582 13:02:03 -0800";
  16 +
  17 +is rfc2822($g1), $need, 'rfc2822 format'; # test 1
  18 +

0 comments on commit b213c02

Please sign in to comment.
Something went wrong with that request. Please try again.