#!/usr/bin/perl -w

           use Test::Simple tests => 12;

use MathML::Entities;

ok(name2numbered('© 2004') eq '© 2004', 'XHTML entities to numeric char refs');
ok(name2utf8('© 2004') eq chr(169).chr(160).'2004', 'XHTML entities to utf-8');
ok(name2numbered('by &foo;') eq 'by &foo;', 'Unknown entities I');
ok(name2utf8('by &foo;') eq 'by &foo;', 'Unknown entities II');
ok(name2numbered('&, <, >, ' "') eq '&, <, >, ' "', 'Safe five I');
ok(name2utf8('&, <, >, ' "') eq '&, <, >, ' "', 'Safe five II');
ok(name2numbered('&, <, >, ' "') eq '&, <, >, ' "', 'Uppercase safe five I');
ok(name2utf8('&, <, >, ' "') eq '&, <, >, ' "', 'Uppercase safe five II');
ok(name2numbered('∮d𝔉') eq '∮d𝔉', 'MathML entities to numeric char refs');
ok(name2utf8('∮d𝔉') eq chr(8750).'d'.chr(120073), 'MathML entities to utf-8');
ok(name2numbered('  =⃥') eq '  =⃥', 'Multiple character refs');
ok(name2utf8('  =⃥') eq chr(8287).chr(8202).chr(61).chr(8421), 'Multiple utf-8 characters');