view release on metacpan or  search on metacpan

t/01.xxd.t  view on Meta::CPAN

# vim: filetype=perl :
use strict;
use warnings;

#use Test::More tests => 1; # last test to print
use Test::More 'no_plan';    # substitute with previous line when done

BEGIN {
   use_ok('Data::HexDump::XXD');
}
local $/ = '';

{
   my $input = join '', map { chr $_ } 0 .. 255;
   (my $expected = <DATA>) =~ s/\s*\z//mxs;
   is(Data::HexDump::XXD::xxd($input), $expected, 'dump as expected');
}

{
   my $input = join '', map { chr $_ } 0 .. 250;
   (my $expected = <DATA>) =~ s/\s*\z//mxs;

t/02.xxd_r.t  view on Meta::CPAN

# vim: filetype=perl :
use strict;
use warnings;

#use Test::More tests => 1; # last test to print
use Test::More 'no_plan';    # substitute with previous line when done

BEGIN {
   use_ok('Data::HexDump::XXD');
}
local $/ = '';

{
   my $expected = join '', map { chr $_ } 0 .. 255;
   my $input = <DATA>;
   is(Data::HexDump::XXD::xxd_r($input),
      $expected, 'dump reverse as expected');
}

{
   my $expected = join '', map { chr $_ } 0 .. 250;