]>
Commit | Line | Data |
---|---|---|
7be35341 JB |
1 | --- Glib-1.300/t/options.t.orig 2013-01-15 07:47:46.000000000 +0100 |
2 | +++ Glib-1.300/t/options.t 2013-06-22 21:59:16.662022960 +0200 | |
3 | @@ -9,7 +9,7 @@ | |
4 | unless (Glib -> CHECK_VERSION (2, 6, 0)) { | |
5 | plan skip_all => 'the option stuff is new in 2.6'; | |
6 | } else { | |
7 | - plan tests => 33; | |
8 | + plan tests => 29; | |
9 | } | |
10 | ||
11 | # --------------------------------------------------------------------------- # | |
12 | @@ -155,17 +155,6 @@ | |
13 | is_deeply ($filename_array, [qw(/usr/bin/bla ./harness)]); | |
14 | } | |
15 | ||
16 | - # Test that there is no double-encoding for utf8-encoded strings. | |
17 | - { | |
18 | - @ARGV = qw(-s ❤ ❤); | |
19 | - $context -> parse(); | |
20 | - | |
21 | - is ($string, '❤'); | |
22 | - is (length $string, 1); | |
23 | - | |
24 | - is ($ARGV[0], '❤'); | |
25 | - is (length $ARGV[0], 1); | |
26 | - } | |
27 | } | |
28 | ||
29 | # --------------------------------------------------------------------------- # |