use Test::More tests => 15;
BEGIN { use_ok('Business::BR::IE', 'canon_ie') };
is(canon_ie('ac', '00 000 000 000 99'), '0000000000099', 'discards formatting and extras');
is(canon_ie('al', '00:000:000:9'), '000000009', 'canon for IE/AL ok');
is(canon_ie('ap', '03.012.345-9'), '030123459', 'canon for IE/AP ok');
is(canon_ie('ap', '11.111.111-0'), '111111110', 'canon for IE/AM ok');
is( canon_ie('ba', '123345-63'), '12334563', 'canon for IE/BA ok' );
is(canon_ie('ma', '11 222 333 4'), '112223334', 'canon for IE/MA ok');
is ( canon_ie('mg', '062.307.904/0081'), '0623079040081', 'canon for IE/MG ok' );
is(canon_ie('ro', '726 84661 76825 6'), '72684661768256', 'canon for IE/RO ok');
is(canon_ie('rr', '24006628-1'), '240066281', 'canon for IE/RR ok');
is(canon_ie('sp', 99), '000000000099', 'amenable to ints');
is(canon_ie('sp', '999.999.999.999'), '999999999999', 'discards formatting');
is(canon_ie('sp', 111_222_333_444_555), '111222333444555', 'too long ints pass through');
is(canon_ie('sp', '111_222_333_444_555'), '111222333444555', 'as well as other too long inputs');
is(canon_ie('sp', '000x000x000x000'), '000x000x000x000', 'letters are not stripped anymore');