Encode-Korean

 view release on metacpan or  search on metacpan

t/Encode-Korean-HSR.t  view on Meta::CPAN

			  "bod.da bodda " .
			  "boddda " .
			  "maj.a maja " .
			  "maj.ja majja " .
			  "majjja " .
			  "anj.a anja " .
			  "anj.ja anjja " .
			  "anjjja" ;
	
my $encoded_ccs = encode 'hsr', $str_ccs;
my $decoded_ccs = decode 'hsr', $hsr_ccs;
my $decoded_ccs_smart_sep = decode 'hsr', $hsr_ccs_smart_sep;

is $encoded_ccs, $hsr_ccs, 'encoded complex consonants group';
is $decoded_ccs, $str_ccs, 'decoded complex consonants group';
is $decoded_ccs_smart_sep, $str_ccs, 'decoded complex consonants group with smart sep';

is $encoded_ccs, (encode 'hsr', $decoded_ccs), 'encode ($enc, $decoded)';
is $decoded_ccs, (decode 'hsr', $encoded_ccs), 'decode ($enc, $encoded)';

t/Encode-Korean-ISO_TS_11941.t  view on Meta::CPAN

			  "bod.da bodda " .
			  "boddda " .
			  "maj.a maja " .
			  "maj.ja majja " .
			  "majjja " .
			  "anj.a anja " .
			  "anj.ja anjja " .
			  "anjjja" ;
	
my $encoded_ccs = encode $enc, $str_ccs;
my $decoded_ccs = decode $enc, $hsr_ccs;
my $decoded_ccs_smart_sep = decode $enc, $hsr_ccs_smart_sep;

is $encoded_ccs, $hsr_ccs, 'encoded complex consonants group';
is $decoded_ccs, $str_ccs, 'decoded complex consonants group';
is $decoded_ccs_smart_sep, $str_ccs, 'decoded complex consonants group with smart sep';

is $encoded_ccs, (encode $enc, $decoded_ccs), 'encode ($enc, $decoded)';
is $decoded_ccs, (decode $enc, $encoded_ccs), 'decode ($enc, $encoded)';

t/Encode-Korean-MRR.t  view on Meta::CPAN

			  "bod.da bodda " .
			  "boddda " .
			  "maj.a maja " .
			  "maj.ja majja " .
			  "majjja " .
			  "anj.a anja " .
			  "anj.ja anjja " .
			  "anjjja" ;
	
my $encoded_ccs = encode $enc, $str_ccs;
my $decoded_ccs = decode $enc, $hsr_ccs;
my $decoded_ccs_smart_sep = decode $enc, $hsr_ccs_smart_sep;

is $encoded_ccs, $hsr_ccs, 'encoded complex consonants group';
is $decoded_ccs, $str_ccs, 'decoded complex consonants group';
is $decoded_ccs_smart_sep, $str_ccs, 'decoded complex consonants group with smart sep';

is $encoded_ccs, (encode $enc, $decoded_ccs), 'encode ($enc, $decoded)';
is $decoded_ccs, (decode $enc, $encoded_ccs), 'decode ($enc, $encoded)';

t/Encode-Korean-NKR_1992.t  view on Meta::CPAN

			  "bod.da bodda " .
			  "boddda " .
			  "maj.a maja " .
			  "maj.ja majja " .
			  "majjja " .
			  "anj.a anja " .
			  "anj.ja anjja " .
			  "anjjja" ;
	
my $encoded_ccs = encode $enc, $str_ccs;
my $decoded_ccs = decode $enc, $hsr_ccs;
my $decoded_ccs_smart_sep = decode $enc, $hsr_ccs_smart_sep;

is $encoded_ccs, $hsr_ccs, 'encoded complex consonants group';
is $decoded_ccs, $str_ccs, 'decoded complex consonants group';
is $decoded_ccs_smart_sep, $str_ccs, 'decoded complex consonants group with smart sep';

is $encoded_ccs, (encode $enc, $decoded_ccs), 'encode ($enc, $decoded)';
is $decoded_ccs, (decode $enc, $encoded_ccs), 'decode ($enc, $encoded)';

t/Encode-Korean-SKATS.t  view on Meta::CPAN

			  "bod.da bodda " .
			  "boddda " .
			  "maj.a maja " .
			  "maj.ja majja " .
			  "majjja " .
			  "anj.a anja " .
			  "anj.ja anjja " .
			  "anjjja" ;
	
my $encoded_ccs = encode $enc, $str_ccs;
my $decoded_ccs = decode $enc, $hsr_ccs;
my $decoded_ccs_smart_sep = decode $enc, $hsr_ccs_smart_sep;

is $encoded_ccs, $hsr_ccs, 'encoded complex consonants group';
is $decoded_ccs, $str_ccs, 'decoded complex consonants group';
is $decoded_ccs_smart_sep, $str_ccs, 'decoded complex consonants group with smart sep';

is $encoded_ccs, (encode $enc, $decoded_ccs), 'encode ($enc, $decoded)';
is $decoded_ccs, (decode $enc, $encoded_ccs), 'decode ($enc, $encoded)';

t/Encode-Korean-SKR_1959.t  view on Meta::CPAN

			  "bod.da bodda " .
			  "boddda " .
			  "maj.a maja " .
			  "maj.ja majja " .
			  "majjja " .
			  "anj.a anja " .
			  "anj.ja anjja " .
			  "anjjja" ;
	
my $encoded_ccs = encode $enc, $str_ccs;
my $decoded_ccs = decode $enc, $hsr_ccs;
my $decoded_ccs_smart_sep = decode $enc, $hsr_ccs_smart_sep;

is $encoded_ccs, $hsr_ccs, 'encoded complex consonants group';
is $decoded_ccs, $str_ccs, 'decoded complex consonants group';
is $decoded_ccs_smart_sep, $str_ccs, 'decoded complex consonants group with smart sep';

is $encoded_ccs, (encode $enc, $decoded_ccs), 'encode ($enc, $decoded)';
is $decoded_ccs, (decode $enc, $encoded_ccs), 'decode ($enc, $encoded)';

t/Encode-Korean-SKR_1984.t  view on Meta::CPAN

			  "bod.da bodda " .
			  "boddda " .
			  "maj.a maja " .
			  "maj.ja majja " .
			  "majjja " .
			  "anj.a anja " .
			  "anj.ja anjja " .
			  "anjjja" ;
	
my $encoded_ccs = encode $enc, $str_ccs;
my $decoded_ccs = decode $enc, $hsr_ccs;
my $decoded_ccs_smart_sep = decode $enc, $hsr_ccs_smart_sep;

is $encoded_ccs, $hsr_ccs, 'encoded complex consonants group';
is $decoded_ccs, $str_ccs, 'decoded complex consonants group';
is $decoded_ccs_smart_sep, $str_ccs, 'decoded complex consonants group with smart sep';

is $encoded_ccs, (encode $enc, $decoded_ccs), 'encode ($enc, $decoded)';
is $decoded_ccs, (decode $enc, $encoded_ccs), 'decode ($enc, $encoded)';

t/Encode-Korean-SKR_2000.t  view on Meta::CPAN

			  "bod.da bodda " .
			  "boddda " .
			  "maj.a maja " .
			  "maj.ja majja " .
			  "majjja " .
			  "anj.a anja " .
			  "anj.ja anjja " .
			  "anjjja" ;
	
my $encoded_ccs = encode $enc, $str_ccs;
my $decoded_ccs = decode $enc, $hsr_ccs;
my $decoded_ccs_smart_sep = decode $enc, $hsr_ccs_smart_sep;

is $encoded_ccs, $hsr_ccs, 'encoded complex consonants group';
is $decoded_ccs, $str_ccs, 'decoded complex consonants group';
is $decoded_ccs_smart_sep, $str_ccs, 'decoded complex consonants group with smart sep';

is $encoded_ccs, (encode $enc, $decoded_ccs), 'encode ($enc, $decoded)';
is $decoded_ccs, (decode $enc, $encoded_ccs), 'decode ($enc, $encoded)';

t/Encode-Korean-Yale.t  view on Meta::CPAN

			  "bod.da bodda " .
			  "boddda " .
			  "maj.a maja " .
			  "maj.ja majja " .
			  "majjja " .
			  "anj.a anja " .
			  "anj.ja anjja " .
			  "anjjja" ;
	
my $encoded_ccs = encode $enc, $str_ccs;
my $decoded_ccs = decode $enc, $hsr_ccs;
my $decoded_ccs_smart_sep = decode $enc, $hsr_ccs_smart_sep;

is $encoded_ccs, $hsr_ccs, 'encoded complex consonants group';
is $decoded_ccs, $str_ccs, 'decoded complex consonants group';
is $decoded_ccs_smart_sep, $str_ccs, 'decoded complex consonants group with smart sep';

is $encoded_ccs, (encode $enc, $decoded_ccs), 'encode ($enc, $decoded)';
is $decoded_ccs, (decode $enc, $encoded_ccs), 'decode ($enc, $encoded)';