Subject: | [Patch] 04print_error.t for Windows 7(Japanese) |
Hi,
I created a patch about 04print_error.t and
I was able to pass the test on Windows 7(32bit Japanese) with Strawberry Perl(32bit):
5.26.1
5.24.0
5.22.2
5.20.3
5.18.4
5.14.4
5.12.3
5.10.1
5.8.9
I hope this would be some of help.
P.S.
[Example: How to apply this patch]
patch --binary -p0 04print_error.t < \path\to\Win32-GenRandom-0.05_t_04print_error.t.patch
Subject: | Win32-GenRandom-0.05_t_04print_error.t.patch |
--- Win32-GenRandom-0.05/t/04print_error.t 2018-01-28 13:16:29.000000000 +0900
+++ Win32-GenRandom-0.05-patched/t/04print_error.t 2018-01-28 16:14:23.000000000 +0900
@@ -5,7 +5,7 @@
use Test::More;
use Test::Warn;
-warnings_like {error_test()} qr/specified module|angegebene Modul|Ãà éäåà óêà çà ÃÃûé/i, 'error test emits expected warning';
+warnings_like {error_test()} qr/specified module|angegebene Modul|Ãà éäåà óêà çà ÃÃûé|\x8e\x77\x92\xe8\x82\xb3\x82\xea\x82\xbd\x83\x82\x83\x57\x83\x85\x81\x5b\x83\x8b/i, 'error test emits expected warning';
sub error_test {
is(Win32::GenRandom::_error_test(), 42, '_error_test() returns 42');
@@ -17,3 +17,4 @@
# The specified module could not be found at ....
# Das angegebene Modul wurde nicht gefunden at ....
# ÃÃ¥ Ãà éäåà óêà çà ÃÃûé ìîäóëü at ....
+# siteisareta mozyuru ga mitukarimasen. at ....