#61281: bad implementation of bind_param
https://rt.cpan.org/Ticket/Display.html?id=61281

Once changed, I get

All tests successful.
Files=171, Tests=7798, 71 wallclock secs ( 1.72 usr  0.23 sys + 61.79 cusr  
5.61 csys = 69.35 CPU)
Result: PASS


So far so good (I committed and pushed)

Then I checked out SQL::Statement and used it with this DBI:

$ make test
PERL_DL_NONLAZY=1 /pro/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 
'blib/lib', 'blib/arch')" t/*.t xt/*.t
t/00error.t .......... # Using required:
#   SQL::Statement: 1.32
# Using recommended:
#   DBD::CSV: 0.31
#   DBD::DBM: 0.06
#   DBD::File: 0.4
#   DBI: 1.614
# Running tests for SQL::Statement
t/00error.t .......... 1/? # Running tests for DBD::CSV
# Running tests for DBD::DBM
# Running tests for DBD::File
t/00error.t .......... ok
t/01prepare.t ........ ok
t/02executeDirect.t .. ok
t/03executeDBD.t ..... # Running tests for DBD::CSV
t/03executeDBD.t ..... 1/? # Running tests for DBD::File
# Running tests for DBD::DBM
t/03executeDBD.t ..... ok
t/04names.t .......... ok
t/05create.t ......... ok
t/06aggregate.t ...... # SQL::Statement v1.32
# DBI v1.614
# DBD::File v0.40
t/06aggregate.t ...... ok
t/06group.t .......... 1/3
#   Failed test 'GROUP BY several columns'
#   at t/06group.t line 31.
# Looks like you failed 1 test of 3.
t/06group.t .......... Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/3 subtests
t/07case.t ........... ok
:
:
Test Summary Report
-------------------
t/00error.t        (Wstat: 0 Tests: 28 Failed: 0)
  TODO passed:   20-21
t/06group.t        (Wstat: 256 Tests: 3 Failed: 1)
  Failed test:  3
  Non-zero exit status: 1
t/16morejoins.t    (Wstat: 0 Tests: 48 Failed: 0)
  TODO passed:   42-43, 46-47
t/22calc.t         (Wstat: 0 Tests: 40 Failed: 0)
  TODO passed:   39
Files=27, Tests=1049,  5 wallclock secs ( 0.23 usr  0.03 sys +  4.69 cusr  0.21 
csys =  5.16 CPU)
Result: FAIL
Failed 1/27 test programs. 1/1049 subtests failed.


Then I used both for DBD::CSV ...

make test
Skip blib/lib/Bundle/DBD/CSV.pm (unchanged)
Skip blib/lib/DBD/CSV.pm (unchanged)
PERL_DL_NONLAZY=1 /pro/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 
'blib/lib', 'blib/arch')" t/*.t
t/00_meta.t ............ skipped: Author tests not required for installation
t/00_minimumversion.t .. skipped: Author tests not required for installation
t/00_pod.t ............. ok
t/00_pod_cov.t ......... ok
t/10_base.t ............ 1/? # Showing relevant versions
# Using DBI            version 1.614
# Using DBD::File      version 0.40
# Using SQL::Statement version 1.32
# Using Text::CSV_XS   version 0.74
# DBD::CSV                 0.31 using Text::CSV_XS (0.74)
#   DBD::File              0.40 using IO::File (1.14)
#     DBI::DBD::SqlEngine  0.02 using SQL::Statement 1.32
# DBI                      1.614
# OS                       linux (2.6.31.12-0.2-default)
# Perl                     5.012000 (i686-linux-64int-ld)
t/10_base.t ............ ok
:
:
All tests successful.

Test Summary Report
-------------------
t/73_csv-case.t      (Wstat: 0 Tests: 44 Failed: 0)
  TODO passed:   30, 32, 34, 36, 38, 40, 42
Files=23, Tests=655,  2 wallclock secs ( 0.17 usr  0.03 sys +  2.38 cusr  0.19 
csys =  2.77 CPU)
Result: PASS

-- 
H.Merijn Brand  http://tux.nl      Perl Monger  http://amsterdam.pm.org/
using 5.00307 through 5.12 and porting perl5.13.x on HP-UX 10.20, 11.00,
11.11, 11.23, and 11.31, OpenSuSE 10.3, 11.0, and 11.1, AIX 5.2 and 5.3.
http://mirrors.develooper.com/hpux/           http://www.test-smoke.org/
http://qa.perl.org      http://www.goldmark.org/jeff/stupid-disclaimers/

Reply via email to