#!/usr/bin/perl 

use strict;
use utf8;
use warnings; 

use FindBin;
use lib $FindBin::Bin; 
use lib $FindBin::Bin."/../../../../../../"; 

use com::oclib::perl::util::date::20070212::Date;

print "\n\ndateTest.pl has beggined\n";

my $test = new com::oclib::perl::util::date::20070212::Date();
print "classCreated: ".$test->get("classCreated")."\n";
print "classCreator: ".$test->Get("classCreator")."\n";
print "classEditors: ".$test->getAttribute("classEditors")."\n";
print "classHistory: ".$test->GetAttribute("classHistory")."\n";
print "classIndexLocation: ".$test->getParam("classIndexLocation")."\n";
print "classLocation: ".$test->GetParam("classLocation")."\n";
print "className: ".$test->get("className")."\n";
print "classNamespace: ".$test->get("classNamespace")."\n";
print "classVersion: ".$test->get("classVersion")."\n";
print "classVersionIndexLocation: ".$test->get("classVersionIndexLocation")."\n";

print "\$test->getNormalizedNow(): ".$test->getNormalizedNow()."\n";

print "dateTest.pl has ended\n\n";