[cgiapp] CGI::Application::Plugin::TT Win installation problem. [Patch]

["Emanuele Zeppieri" <suppressed>]

Cees,

CGI::Application::Plugin::TT 0.06 doesn't install (without force) under
Windows because a test fails because of a subtle problem with Windows
paths.

Here is the (n)make test report:

====================================================

Running make test

Microsoft (R) Program Maintenance Utility   Version 6.00.8168.0
Copyright (C) Microsoft Corp 1988-1998. All rights reserved.

        C:\Perl\bin\perl.exe "-MExtUtils::Command::MM" "-e"
"test_harness(0, 'bl
ib\lib', 'blib\arch')" t\01_basic.t t\02_error.t t\03_tname.t
t\04_singleton.t t
\05_include_path.t t\99_pod.t
t\01_basic...........ok
t\02_error...........ok
t\03_tname...........ok 1/13#     Failed test (t\03_tname.t at line 18)
t\03_tname...........NOK 7#                   'Content-Type: text/html;
charset=
ISO-8859-1
#
# :template param:
# :template param hash:
# :template param hashref:
# :pre_process param:
# :post_process param:
# :TestAppTName\test_mode.tmpl:
# '
#     doesn't match '(?-xism::TestAppTName/test_mode\.tmpl:)'
# Looks like you failed 1 tests of 13.
t\03_tname...........dubious
        Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 7
        Failed 1/13 tests, 92.31% okay
t\04_singleton.......ok
t\05_include_path....ok
t\99_pod.............ok
Failed Test  Stat Wstat Total Fail  Failed  List of Failed
------------------------------------------------------------------------
-------
t\03_tname.t    1   256    13    1   7.69%  7
Failed 1/6 test scripts, 83.33% okay. 1/32 subtests failed, 96.88% okay.
NMAKE : fatal error U1077: 'C:\Perl\bin\perl.exe' : return code '0xff'
Stop.
  C:\Perl\bin\nmake.EXE test -- NOT OK
Running make install
  make test had returned bad status, won't install without force

====================================================

To solve the problem it is sufficient to patch the file 03_tname.t.
Below there is such a patch: it has been successfully tested both on
Linux and Windows.
It's the rawest possible, but it's very simple and direct.
(I know you didn't need it: I've made it just because diff-ing is always
fun ;-)

Surely to handle such OS-related specificities in a more general way one
should query $^O, but it's probably unnecessary here.

Thanks for CAPTT, I find it very useful!

Ciao,
Emanuele Zeppieri.

P.S.
I've just seen that the same problem was also reported by cpan testers:
http://www.nntp.perl.org/group/perl.cpan.testers/182772

====================================================

--- 03_tname.t.original Thu Feb 03 21:59:06 2005
+++ 03_tname.t  Sat Feb 26 04:12:26 2005
@@ -15,7 +15,7 @@
 like($t1_output, qr/:template param hashref:/, 'template parameter
hashref');
 like($t1_output, qr/:pre_process param:/, 'pre process parameter');
 like($t1_output, qr/:post_process param:/, 'post process parameter');
-like($t1_output, qr/:TestAppTName\/test_mode\.tmpl:/, 'template name
ok');
+like($t1_output, qr/:TestAppTName[\/\\]test_mode\.tmpl:/, 'template
name ok');


 my $t2_obj = TestAppTName::CustName->new();


---------------------------------------------------------------------
Web Archive:  http://www.mail-archive.com/suppressed/
              http://marc.theaimsgroup.com/?l=cgiapp&r=1&w=2
To unsubscribe, e-mail: suppressed
For additional commands, e-mail: suppressed