#!/usr/bin/perl -sw
##
## Copyright (c) 2000, Vipul Ved Prakash. All rights reserved.
## This code is free software; you can redistribute it and/or modify
## it under the same terms as Perl itself.
##
## $Id: 04-octet_xor.t,v 1.1 2001/02/19 20:22:21 vipul Exp $
use lib '../lib';
use Crypt::RSA::DataFormat qw(octet_xor);
use Data::Dumper;
print "1..2\n";
my $i = 0;
my $a = "abcdefghijklmnopqrstuvwxyz";
my $b = "ABCDEFGHIJ";
my $d = octet_xor ($a, $b);
my $e = octet_xor ($d, $b);
my $f = octet_xor ($d, $a);
$f =~ s/^\0+//;
print $e eq $a ? "ok" : "not ok"; print " ", ++$i, "\n";
# if octet_xor has endianness issues, this should break.
print $f eq $b ? "ok" : "not ok"; print " ", ++$i, "\n";