[libunicode-map-perl] 01/01: unapply patch in git

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libunicode-map-perl.

commit acb16e85463de0ef44bd9fdc044622981d9d3440
Author: gregor herrmann <gregoa at debian.org>
Date:   Sun Aug 25 15:52:06 2013 +0200

    unapply patch in git
    
    Git-Dch: Ignore
---
 t/map.t |   18 +-----------------
 1 file changed, 1 insertion(+), 17 deletions(-)

diff --git a/t/map.t b/t/map.t
index 1fe267d..883b2cb 100644
--- a/t/map.t
+++ b/t/map.t
@@ -6,7 +6,7 @@
 # Change 1..1 below to 1..last_test_to_print .
 # (It may become useful if the test is moved to ./t subdirectory.)
 
-BEGIN { $| = 1; print "1..6\n"; }
+BEGIN { $| = 1; print "1..5\n"; }
 END {print "not ok 1\n" unless $loaded;}
 use Unicode::Map;
 $loaded = 1;
@@ -27,7 +27,6 @@ my @test = (
    ["GB2312",         "n->m: GB2312 (GB2312-80^8080 + ISO8859-1)"],
    ["DEVANAGA",       "n->m: DEVANAGA"],
    ["EUC_JP",         "n->m: EUC-JP"],
-   ["BIG5",           "n->m: BIG5"],
 );
 
 {
@@ -134,21 +133,6 @@ sub DEVANAGA {
    return testMapping ( "APPLE-DEVANAGA", $_locale, $_unicode );
 }
 
-sub BIG5 {
-   my $_locale  =
-      "\xA5\x40"
-      ."\xA5\x41"
-      ."\x30"
-      ."  "
-   ;
-   my $_unicode =
-      "\x4E\x16"
-      ."\x4E\x15"
-      ."\x00\x30\x00\x20\x00\x20"
-   ;
-   return testMapping ( "BIG5", $_locale, $_unicode );
-}
-
 sub testMapping {
     my ( $charsetId, $txtLocale, $txtUnicode ) = @_;
     return 0 if ! ( my $Map = new Unicode::Map($charsetId) );

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libunicode-map-perl.git