Skip Menu |

This queue is for tickets about the Win32-OLE CPAN distribution.

Report information
The Basics
Id: 53704
Status: open
Priority: 0/
Queue: Win32-OLE
People
Owner: JDB [...] cpan.org
Requestors: kmx [...] cpan.org
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Thu Jan 14 16:53:07 2010 kmx [...] cpan.org - Ticket created
Subject: t/ole.t failing test 42 (translate ANSI->OEM)
Hi,

I have experienced failing test "# 42. Translate character from ANSI -> OEM" in t/ole.t - here is the failing message:

Show quoted text
# Excel version is 11.0
# ANSI(cp1252) -> OEM(cp437/cp850): 163 -> 156
# ANSI is "ú" (163) and OEM is "Ł" (157)
not ok 42

I am pretty sure that the reason is Eastern Europe locale on my Windows box = ANSI:cp1250 OEM:cp852

The same behaviour on Win32 strawberry perl 5.8.9 and 5.10.1.

Would it be possible to somehow modify this test to be ready for non English/Latin1 Windows? Even skipping the test on non-English Windows would be fine.

Thanks.

--
kmx


  Thu Jan 14 19:50:48 2010 jand [...] ActiveState.com - Correspondence added
Subject: RE: [rt.cpan.org #53704] t/ole.t failing test 42 (translate ANSI->OEM)
Date: Thu, 14 Jan 2010 16:50:31 -0800
To: <bug-Win32-OLE [...] rt.cpan.org>, "'undisclosed-recipients:'"
From: "Jan Dubois" <jand [...] activestate.com>
On Thu, 14 Jan 2010, kmx via RT wrote: Show quoted text
> > I have experienced failing test "# 42. Translate character from ANSI -> OEM" in > t/ole.t - here is the failing message: > > # Excel version is 11.0 > # ANSI(cp1252) -> OEM(cp437/cp850): 163 -> 156 > # ANSI is "ú" (163) and OEM is "Ł" (157) > not ok 42 > > I am pretty sure that the reason is Eastern Europe locale on my Windows box = > ANSI:cp1250 OEM:cp852
Yes, that diagnosis is correct. The test assumes that the OEM codepage is either 437 or 850 and might fail for any other code page that doesn't map the Pound sign to chr(156). Show quoted text
> The same behaviour on Win32 strawberry perl 5.8.9 and 5.10.1. > > Would it be possible to somehow modify this test to be ready for non > English/Latin1 Windows? Even skipping the test on non-English Windows would be > fine.
Can you confirm that the following command prints "852" on your system? perl -MWin32::OLE::NLS -we"print GetLocaleInfo(GetSystemDefaultLCID(), Win32::OLE::NLS::LOCALE_IDEFAULTCODEPAGE)" Cheers, -Jan
  Thu Jan 14 20:11:35 2010 JDB [...] cpan.org - Taken
  Thu Jan 14 20:12:21 2010 JDB [...] cpan.org - Correspondence added
http://code.google.com/p/libwin32/source/detail?r=486
  Thu Jan 14 20:12:22 2010 JDB [...] cpan.org - Status changed from 'open' to 'patched'
  Fri Jan 15 01:54:38 2010 kmx [...] cpan.org - Correspondence added
Show quoted text
> Can you confirm that the following command prints "852" on your
> system?
>
> perl -MWin32::OLE::NLS -we"print GetLocaleInfo(GetSystemDefaultLCID(),
> Win32::OLE::NLS::LOCALE_IDEFAULTCODEPAGE)"

Yes, exactly as you have expected.

--
kmx

  Fri Jan 15 01:54:41 2010 The RT System itself - Status changed from 'patched' to 'open'