use strict;
use warnings;
use Test::More tests=>4;

my @examples = (
    [qw( example.    6578616d706c652e        )],
    [qw( example.1   6578616d706c652e31000000)],
    [qw( example.12  6578616d706c652e31320000)],
    [qw( example.123 6578616d706c652e31323300)],
);

foreach my $example(@examples) {
    my ($Origin_Host_CER, $required) = @$example;

    my $l = 8*int((length($Origin_Host_CER)+3)/4);
    my $result = unpack("H$l", $Origin_Host_CER . "\x00" x 3);

    is($result, $required, $Origin_Host_CER);
}