#!/usr/bin/env perl
package Quiq::Time::RFC822::Test;
use base qw/Quiq::Test::Class/;
use v5.10;
use strict;
use warnings;
use utf8;
# -----------------------------------------------------------------------------
sub test_loadClass : Init(1) {
    shift->useOk('Quiq::Time::RFC822');
}
# -----------------------------------------------------------------------------
sub test_get : Test(3) {
    my $self = shift;
    my $str = Quiq::Time::RFC822->get(0);
    $self->is($str,'Thu, 01-Jan-1970 00:00:00 GMT');
    # kann in seltenene Fällen fehlschlagen
    my $str1 = Quiq::Time::RFC822->get('now');
    my $str2 = Quiq::Time::RFC822->get(time);
    $self->is($str1,$str2);
    # kann in seltenene Fällen fehlschlagen
    $str1 = Quiq::Time::RFC822->get('+1s');
    $str2 = Quiq::Time::RFC822->get(time+1);
    $self->is($str1,$str2);
}
# -----------------------------------------------------------------------------
package main;
Quiq::Time::RFC822::Test->runTests;
# eof