view release on metacpan or  search on metacpan

t/01-i2osp.t  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;

## 01-i2osp.t -- Test for ::DataFormat::i2osp()
##
## 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.

use Test::More;
use Crypt::RSA::DataFormat qw(i2osp os2ip);

plan tests => 2;

my $number = 4;
my $str = i2osp ($number,4);
my $n = os2ip ($str);
is($n, $number, "os2ip(i2osp(n)) = n");

$number = '12348570923847593485790328475298759823745092384759238475903248759238475246534653984765832745682374658734265873658732465873645354863498643903234223748975039875603740897213467864567836498734612897468237648745698743648796487932648796437856928...
$str = i2osp($number,102);
$n = os2ip ($str);
is($n, $number, "os2ip(i2osp(bign)) = bign");