+ }
+
+ # test to_ascii
+
+ SKIP: {
+ eval "use Digest::MD5 qw(md5_hex)";
+
+ skip "no Digest::MD5 module", 5 if ($@);
+
+ foreach my $mfn (1 .. $isis->{'maxmfn'}) {
+ my $md5 = md5_hex($isis->to_ascii($mfn));
+ cmp_ok($args->{md5_ascii}[$mfn - 1], 'eq', $md5, "md5 $mfn");
+ }