#!perl -T
use 5.006 ;
use strict ;
use warnings FATAL => 'all' ;
use Test::More ;
use XML::Smart ;
subtest 'Raw Binary Data' => sub {
my $bin_data_string = '
¡¢£¤¥¦§¨©ª«¬®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ' ;
my @bin_data = split( //, $bin_data_string ) ;
foreach my $bin_elem ( @bin_data ) {
cmp_ok( XML::Smart::_data_type( $bin_elem ), '==', 4, 'RawBinData: ' . "0x" . unpack("H*", $bin_elem ) );
}
done_testing() ;
};
subtest 'Raw Binary Data Unimplemented' => sub {
my @bin_data = (
0x80, 0x81, 0x8d, 0x8f, 0x90, 0xa0
);
foreach my $bin_elem ( @bin_data ) {
my $bin_elem_converted = pack("H*", $bin_elem );
cmp_ok( XML::Smart::_data_type( $bin_elem ), '==', 1, 'RawBinData Unimplemented: ' . "0x" . $bin_elem );
}
done_testing() ;
};
done_testing() ;