Thread Umlaute mit Test::More (3 answers)
Opened by roli at 2015-07-10 10:01

roli
 2015-07-10 10:01
#181523 #181523
User since
2004-12-31
424 Artikel
BenutzerIn
[default_avatar]
Hallo zusammen,

ich habe (wie so oft) ein Problem mit Umlauten in meinen Scripten.
Der Windows Rechner an dem ich sitze nutzt die Codepage 850 in der Dos-Box,
mein Script ist via Notepad++ als "Ansi" mit Dos\Windows Zeilenumbruch Datei gespeichert.
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
use Modern::Perl '2015';

use Test::More "no_plan";

my $encoding = $^O eq 'MSWin32' ? 'cp850' : 'utf8';
binmode(STDOUT, ":encoding($encoding)" );
binmode(STDERR, ":encoding($encoding)" );
binmode(STDIN,  ":encoding($encoding)" );

my @umlaute = qw/Ä Ü Ö ß ä ü ö/;

foreach my $umlaut ( @umlaute ) {
        say "Umlaute: $umlaut";
}

fail("Umlaute können dargestellt werden");

Als Ergebnis erhalte ich:
Quote
C:\Users\roli\Daten\selenium\Funktionen>chcp
Aktive Codepage: 850.

C:\Users\roli\Daten\selenium\Funktionen>perl uml.pl
Umlaute: Ä
Umlaute: Ü
Umlaute: Ö
Umlaute: ß
Umlaute: ä
Umlaute: ü
Umlaute: ö
not ok 1 - Umlaute k÷nnen dargestellt werden
# Failed test 'Umlaute k÷nnen dargestellt werden'
# at uml.pl line 17.
1..1
# Looks like you failed 1 test of 1.

C:\Users\roli\Daten\selenium\Funktionen>


Was muss ich machen, damit der Output von Test::More auch mit Umlauten hier in meiner Konfiguration umgehen kann?

Danke
Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2

View full thread Umlaute mit Test::More