perl-Glib r1058 - in trunk: . t

[tsch svn gnome org]

Author: tsch
Date: Sun Jan 18 14:46:28 2009
New Revision: 1058
URL: http://svn.gnome.org/viewvc/perl-Glib?rev=1058&view=rev

Log:
Don't use UTF-8 umlauts unconditionally as this causes trouble on non-UTF-8
locales.


Modified:
   trunk/ChangeLog
   trunk/t/options.t

Modified: trunk/t/options.t
==============================================================================
--- trunk/t/options.t	(original)
+++ trunk/t/options.t	Sun Jan 18 14:46:28 2009
@@ -140,18 +140,18 @@
   # Test actual parsing.
   {
     @ARGV = qw(-n
-               -s blÃ
+               -s bla
                -i 42
                --filename ~/Foo
-               --string-array ÃÃÃ --string-array ÃÃÃ
+               --string-array aaa --string-array bbb
                --filename-array /usr/bin/bla --filename-array ./harness);
     $context -> parse();
 
     is ($none, FALSE);
-    is ($string, 'blÃ');
+    is ($string, 'bla');
     is ($int, 42);
     is ($filename, '~/Foo');
-    is_deeply ($string_array, [qw/ÃÃÃ ÃÃÃ/]);
+    is_deeply ($string_array, [qw/aaa bbb/]);
     is_deeply ($filename_array, [qw(/usr/bin/bla ./harness)]);
   }
 }