#########################################################################
#        This Perl script is Copyright (c) 2001, Peter J Billam         #
#               c/o P J B Computing, www.pjb.com.au                     #
#                                                                       #
#     This program is free software; you can redistribute it and/or     #
#            modify it under the same terms as Perl itself.             #
#########################################################################
require './Tea.raw';  import Crypt::Tea;

my $text = <<EOT;
Hier lieg' ich auf dem Frlingshgel:
die Wolke wird mein Flgel,
ein Vogel fliegt mir voraus.

Ach, sag' mir, all-einzige Liebe,
wo du bleibst, da ich bei dir bliebe !
doch du und die Lfte, ihr habt kein Haus.

Der Sonnenblume gleich steht mein Gemthe offen,
sehnend, sich dehnend in Lieben und Hoffen.
Frhling, was bist du gewillt ?
wenn werd' ich gestillt ?

Die Wolke seh' ich wandeln und den Flu,
es dringt der Sonne goldner Ku tief bis in's Geblt hinein;
die Augen, wunderbar berauschet, thun, als scliefen sie ein,
nur noch das Ohr der Ton der Biene lauschet.

Ich denke Diess und denke Das,
ich sehne mich, und weiss nicht recht, nach was:
halb ist es Lust, halb ist es Klage;
mein Herz, o sage,
was webst du fr Erinnerung
in goldnen grner Zweige Dmmerung ?

Alte, unnennbare Tage !
EOT

my $d = &asciidigest ($text); 
if ($d eq '5sO762E_kw3WK++EiHhHiA') {
	print "asciidigest OK ...\n";
} else {
	print "ERROR: asciidigest was $d, should be 5sO762E_kw3WK++EiHhHiA\n";
	exit 1;
}

$key = &asciidigest ("G $$ ". time);
my $c = &encrypt ($text, $key); 
my $p = &decrypt ($c, $key);
if ($p eq $text) {
	print "encrypt and decrypt OK ...\n";
} else {
	print "ERROR: encrypt and decrypt failed: encrypt was\n$c\n";
	exit 1;
}
exit 0;

__END__

# POD Documentation (perldoc or pod2html this file)
=head1 NAME

test - Perl script to test Crypt::Tea.pm

=head1 SYNOPSIS

  make test

=head1 DESCRIPTION

This tests the Crypt::Tea.pm module, version #VERSION#

=head1 AUTHOR

Peter J Billam <computing@pjb.com.au>

=head1 SEE ALSO

http://www.pjb.com.au/, http://www.cpan.org, perl(1).

=cut

