use strict;
use warnings;

use Test::More tests => 1;
use MARC::Charset::Constants qw(:all);
use MARC::Charset qw(utf8_to_marc8);

# a composed unicode character c with a cedilla should
# be decomposed into the marc8 cedilla combining character
# and the letter c

is(utf8_to_marc8(chr(0x00E7)), chr(0xF0) . 'c' );