#
# $Id: 01-RoundTrip.t,v 0.1 2005/08/30 01:32:11 dankogai Exp $
#
use strict;
use Test::More tests => 27;
require Acme::Bleach::Numerically;
Acme::Bleach::Numerically->import(qw/num2str str2num/);
is(str2num(''), 0, qq(str2num('') is 0));
is(num2str(0), '', qq(num2str(0) is ''));
my $ascii = join '', map {chr} (0..255);
is(num2str(str2num($ascii)), $ascii, "ascii table");
open my $fh, "<:raw", $0 or die "$0 : $!";
my @lines = <$fh>;
my $file = join '', @lines;
close $fh; chomp @lines;
for my $line (@lines){
is(num2str(str2num($line)), $line, $line);
}
is(num2str(str2num($file)), $file, "Whole File");
__END__