#!perl

use strict;
use warnings;
use Authen::OATH;
use Test::Simple tests => 20;


my $pwd  = '12345678901234567890';
my $oath = Authen::OATH->new();
my $OATH = Authen::OATH->new( 'digits' => 8 );
ok( defined $oath, "successfully created new object" );
ok( $oath->isa( 'Authen::OATH' ), "correct class." );
ok( $oath->{ 'digits' } == 6,     "default digits set to 6" );
ok( $oath->{ 'digest' } eq 'Digest::SHA1', "default digest set to Digest::SHA1" );
ok( $oath->{ 'timestep' } == 30, "default timestep set to 30" );

print "Checking test vectors for totp()...\n";
ok( $OATH->totp( $pwd, 59 ) eq "94287082" );
ok( $OATH->totp( $pwd, 1111111109 ) eq "07081804" );
ok( $OATH->totp( $pwd, 1111111111 ) eq "14050471" );
ok( $OATH->totp( $pwd, 1234567890 ) eq "89005924" );
ok( $OATH->totp( $pwd, 2000000000 ) eq "69279037" );

print "Checking test vectors for hotp()...\n";
ok( $oath->hotp( $pwd, 0 ) eq "755224" );
ok( $oath->hotp( $pwd, 1 ) eq "287082" );
ok( $oath->hotp( $pwd, 2 ) eq "359152" );
ok( $oath->hotp( $pwd, 3 ) eq "969429" );
ok( $oath->hotp( $pwd, 4 ) eq "338314" );
ok( $oath->hotp( $pwd, 5 ) eq "254676" );
ok( $oath->hotp( $pwd, 6 ) eq "287922" );
ok( $oath->hotp( $pwd, 7 ) eq "162583" );
ok( $oath->hotp( $pwd, 8 ) eq "399871" );
ok( $oath->hotp( $pwd, 9 ) eq "520489" );


