Start 2010-08-01T21:00:26 ActivePerl-1200 CPAN-1.9402 LIB=C:\PROGRA~1\MICROS~3\VC98\Lib\PSDK;C:\PROGRA~1\MICROS~2\Lib;C:\PROGRA~1\MICROS~3\VC98\Lib;C:\PROGRA~1\MICROS~3\VC98\MFC\Lib INCLUDE=C:\PROGRA~1\MICROS~2\Include;C:\PROGRA~1\MICROS~3\VC98\ATL\Include;C:\PROGRA~1\MICROS~3\VC98\Include;C:\PROGRA~1\MICROS~3\VC98\MFC\Include PATH=C:/CPANFL~1.12/var/libs/bin;C:\PROGRA~1\MICROS~2\Bin;C:\PROGRA~1\MICROS~2\Bin\WinNT;C:\PROGRA~1\MICROS~3\VC98\Bin;C:\PROGRA~1\MICROS~3\Common\MSDev98\Bin;C:\Perl-5.12\site\bin;C:\Perl-5.12\bin;C:\cygwin\bin;C:\PROGRA~1\Perforce;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\system32\WINDOW~2\v1.0;C:\mysql\bin Going to read 'C:\cpanfly-5.12\var\cpan\Metadata' Database was generated on Sun, 01 Aug 2010 21:27:00 GMT Running make for R/RE/REHSACK/SQL-Statement-1.30.tar.gz Fetching with LWP: http://cpan.nas.activestate.com/authors/id/R/RE/REHSACK/SQL-Statement-1.30.tar.gz Fetching with LWP: http://cpan.nas.activestate.com/authors/id/R/RE/REHSACK/CHECKSUMS Checksum for C:\cpanfly-5.12\var\cpan\sources\authors\id\R\RE\REHSACK\SQL-Statement-1.30.tar.gz ok SQL-Statement-1.30 SQL-Statement-1.30/lib SQL-Statement-1.30/lib/SQL SQL-Statement-1.30/lib/SQL/Dialects SQL-Statement-1.30/lib/SQL/Dialects/ANSI.pm SQL-Statement-1.30/lib/SQL/Dialects/Role.pm SQL-Statement-1.30/lib/SQL/Dialects/AnyData.pm SQL-Statement-1.30/lib/SQL/Dialects/CSV.pm SQL-Statement-1.30/lib/SQL/Statement SQL-Statement-1.30/lib/SQL/Statement/TermFactory.pm SQL-Statement-1.30/lib/SQL/Statement/Structure.pod SQL-Statement-1.30/lib/SQL/Statement/GetInfo.pm SQL-Statement-1.30/lib/SQL/Statement/Term.pm SQL-Statement-1.30/lib/SQL/Statement/Syntax.pod SQL-Statement-1.30/lib/SQL/Statement/RAM.pm SQL-Statement-1.30/lib/SQL/Statement/Placeholder.pm SQL-Statement-1.30/lib/SQL/Statement/Roadmap.pod SQL-Statement-1.30/lib/SQL/Statement/Function.pm SQL-Statement-1.30/lib/SQL/Statement/Util.pm SQL-Statement-1.30/lib/SQL/Statement/Embed.pod SQL-Statement-1.30/lib/SQL/Statement/Operation.pm SQL-Statement-1.30/lib/SQL/Statement/Functions.pm SQL-Statement-1.30/lib/SQL/Statement.pm SQL-Statement-1.30/lib/SQL/Parser.pm SQL-Statement-1.30/lib/SQL/Eval.pm SQL-Statement-1.30/t SQL-Statement-1.30/t/14allcols.t SQL-Statement-1.30/t/19idents.t SQL-Statement-1.30/t/11functions.t SQL-Statement-1.30/t/20pod.t SQL-Statement-1.30/t/06aggregate.t SQL-Statement-1.30/t/SQLtest.pm SQL-Statement-1.30/t/13call.t SQL-Statement-1.30/t/04names.t SQL-Statement-1.30/t/21pod_coverage.t SQL-Statement-1.30/t/17quoting.t SQL-Statement-1.30/t/00error.t SQL-Statement-1.30/t/03executeDBD.t SQL-Statement-1.30/t/01prepare.t SQL-Statement-1.30/t/09ops.t SQL-Statement-1.30/t/08join.t SQL-Statement-1.30/t/02executeDirect.t SQL-Statement-1.30/t/12eval.t SQL-Statement-1.30/t/23dialects.t SQL-Statement-1.30/t/07case.t SQL-Statement-1.30/t/18bigjoin.t SQL-Statement-1.30/t/10limit.t SQL-Statement-1.30/t/05create.t SQL-Statement-1.30/t/16morejoins.t SQL-Statement-1.30/t/15naturaljoins.t SQL-Statement-1.30/t/22calc.t SQL-Statement-1.30/Changes SQL-Statement-1.30/MANIFEST SQL-Statement-1.30/META.yml SQL-Statement-1.30/.aspell.local.pws SQL-Statement-1.30/MANIFEST.SKIP SQL-Statement-1.30/Makefile.PL SQL-Statement-1.30/README CPAN.pm: Going to build R/RE/REHSACK/SQL-Statement-1.30.tar.gz >>> C:\Perl-5.12\bin\perl.exe Makefile.PL *** This version of SQL::Statement conflicts with the version of module DBD::AnyData (0.09) you have installed. It's strongly recommended that you update it after installing this version of SQL::Statement. *** *** This version of SQL::Statement conflicts with the version of module DBI (1.611) you have installed. It's strongly recommended that you update it after installing this version of SQL::Statement. *** Warning: prerequisite DBD::File 0.39 not found. We have 0.38. Warning: prerequisite DBI::DBD::SqlEngine 0.01 not found. Checking if your kit is complete... Looks good Writing Makefile for SQL::Statement ---- Unsatisfied dependencies detected during ---- ---- REHSACK/SQL-Statement-1.30.tar.gz ---- DBI::DBD::SqlEngine [requires] DBD::File [requires] Running make test Delayed until after prerequisites Running test for module 'DBI::DBD::SqlEngine' Running make for T/TI/TIMB/DBI-1.613.tar.gz Checksum for C:\cpanfly-5.12\var\cpan\sources\authors\id\T\TI\TIMB\DBI-1.613.tar.gz ok DBI-1.613/ DBI-1.613/Changes DBI-1.613/dbd_xsh.h DBI-1.613/DBI.pm DBI-1.613/DBI.xs DBI-1.613/dbi_sql.h DBI-1.613/dbilogstrip.PL DBI-1.613/dbipport.h DBI-1.613/dbiprof.PL DBI-1.613/dbiproxy.PL DBI-1.613/dbivport.h DBI-1.613/DBIXS.h DBI-1.613/dbixs_rev.h DBI-1.613/dbixs_rev.pl DBI-1.613/Driver.xst DBI-1.613/Driver_xst.h DBI-1.613/ex/ DBI-1.613/lib/ DBI-1.613/Makefile.PL DBI-1.613/MANIFEST DBI-1.613/META.yml DBI-1.613/Perl.xs DBI-1.613/README DBI-1.613/Roadmap.pod DBI-1.613/t/ DBI-1.613/TASKS.pod DBI-1.613/test.pl DBI-1.613/TODO_2005.txt DBI-1.613/TODO_gofer.txt DBI-1.613/typemap DBI-1.613/t/01basics.t DBI-1.613/t/02dbidrv.t DBI-1.613/t/03handle.t DBI-1.613/t/04mods.t DBI-1.613/t/05concathash.t DBI-1.613/t/06attrs.t DBI-1.613/t/07kids.t DBI-1.613/t/08keeperr.t DBI-1.613/t/09trace.t DBI-1.613/t/10examp.t DBI-1.613/t/11fetch.t DBI-1.613/t/12quote.t DBI-1.613/t/13taint.t DBI-1.613/t/14utf8.t DBI-1.613/t/15array.t DBI-1.613/t/19fhtrace.t DBI-1.613/t/20meta.t DBI-1.613/t/30subclass.t DBI-1.613/t/35thrclone.t DBI-1.613/t/40profile.t DBI-1.613/t/41prof_dump.t DBI-1.613/t/42prof_data.t DBI-1.613/t/43prof_env.t DBI-1.613/t/49dbd_file.t DBI-1.613/t/50dbm_simple.t DBI-1.613/t/51dbm_file.t DBI-1.613/t/52dbm_complex.t DBI-1.613/t/60preparse.t DBI-1.613/t/65transact.t DBI-1.613/t/70callbacks.t DBI-1.613/t/72childhandles.t DBI-1.613/t/80proxy.t DBI-1.613/t/85gofer.t DBI-1.613/t/86gofer_fail.t DBI-1.613/t/87gofer_cache.t DBI-1.613/t/90sql_type_cast.t DBI-1.613/t/pod-coverage.t DBI-1.613/t/pod.t DBI-1.613/lib/Bundle/ DBI-1.613/lib/DBD/ DBI-1.613/lib/DBI/ DBI-1.613/lib/Win32/ DBI-1.613/lib/Win32/DBIODBC.pm DBI-1.613/lib/DBI/Const/ DBI-1.613/lib/DBI/DBD/ DBI-1.613/lib/DBI/DBD.pm DBI-1.613/lib/DBI/FAQ.pm DBI-1.613/lib/DBI/Gofer/ DBI-1.613/lib/DBI/Profile.pm DBI-1.613/lib/DBI/ProfileData.pm DBI-1.613/lib/DBI/ProfileDumper/ DBI-1.613/lib/DBI/ProfileDumper.pm DBI-1.613/lib/DBI/ProfileSubs.pm DBI-1.613/lib/DBI/ProxyServer.pm DBI-1.613/lib/DBI/PurePerl.pm DBI-1.613/lib/DBI/SQL/ DBI-1.613/lib/DBI/Util/ DBI-1.613/lib/DBI/W32ODBC.pm DBI-1.613/lib/DBI/Util/_accessor.pm DBI-1.613/lib/DBI/Util/CacheMemory.pm DBI-1.613/lib/DBI/SQL/Nano.pm DBI-1.613/lib/DBI/ProfileDumper/Apache.pm DBI-1.613/lib/DBI/Gofer/Execute.pm DBI-1.613/lib/DBI/Gofer/Request.pm DBI-1.613/lib/DBI/Gofer/Response.pm DBI-1.613/lib/DBI/Gofer/Serializer/ DBI-1.613/lib/DBI/Gofer/Transport/ DBI-1.613/lib/DBI/Gofer/Transport/Base.pm DBI-1.613/lib/DBI/Gofer/Transport/pipeone.pm DBI-1.613/lib/DBI/Gofer/Transport/stream.pm DBI-1.613/lib/DBI/Gofer/Serializer/Base.pm DBI-1.613/lib/DBI/Gofer/Serializer/DataDumper.pm DBI-1.613/lib/DBI/Gofer/Serializer/Storable.pm DBI-1.613/lib/DBI/DBD/Metadata.pm DBI-1.613/lib/DBI/DBD/SqlEngine.pm DBI-1.613/lib/DBI/Const/GetInfo/ DBI-1.613/lib/DBI/Const/GetInfoReturn.pm DBI-1.613/lib/DBI/Const/GetInfoType.pm DBI-1.613/lib/DBI/Const/GetInfo/ANSI.pm DBI-1.613/lib/DBI/Const/GetInfo/ODBC.pm DBI-1.613/lib/DBD/DBM.pm DBI-1.613/lib/DBD/ExampleP.pm DBI-1.613/lib/DBD/File/ DBI-1.613/lib/DBD/File.pm DBI-1.613/lib/DBD/Gofer/ DBI-1.613/lib/DBD/Gofer.pm DBI-1.613/lib/DBD/NullP.pm DBI-1.613/lib/DBD/Proxy.pm DBI-1.613/lib/DBD/Sponge.pm DBI-1.613/lib/DBD/Gofer/Policy/ DBI-1.613/lib/DBD/Gofer/Transport/ DBI-1.613/lib/DBD/Gofer/Transport/Base.pm DBI-1.613/lib/DBD/Gofer/Transport/null.pm DBI-1.613/lib/DBD/Gofer/Transport/pipeone.pm DBI-1.613/lib/DBD/Gofer/Transport/stream.pm DBI-1.613/lib/DBD/Gofer/Policy/Base.pm DBI-1.613/lib/DBD/Gofer/Policy/classic.pm DBI-1.613/lib/DBD/Gofer/Policy/pedantic.pm DBI-1.613/lib/DBD/Gofer/Policy/rush.pm DBI-1.613/lib/DBD/File/Developers.pod DBI-1.613/lib/DBD/File/Roadmap.pod DBI-1.613/lib/Bundle/DBI.pm DBI-1.613/ex/perl_dbi_nulls_test.pl DBI-1.613/ex/profile.pl CPAN.pm: Going to build T/TI/TIMB/DBI-1.613.tar.gz >>> C:\Perl-5.12\bin\perl.exe Makefile.PL *** You are using a perl configured with threading enabled. *** You should be aware that using multiple threads is *** not recommended for production environments. Creating test wrappers for DBD::Gofer: t/zvg_01basics.t t/zvg_02dbidrv.t t/zvg_03handle.t t/zvg_04mods.t t/zvg_05concathash.t t/zvg_06attrs.t t/zvg_07kids.t t/zvg_08keeperr.t t/zvg_09trace.t t/zvg_10examp.t t/zvg_11fetch.t t/zvg_12quote.t t/zvg_13taint.t t/zvg_14utf8.t t/zvg_15array.t t/zvg_19fhtrace.t t/zvg_20meta.t t/zvg_30subclass.t t/zvg_35thrclone.t (use threads) t/zvg_40profile.t t/zvg_41prof_dump.t t/zvg_42prof_data.t t/zvg_43prof_env.t t/zvg_49dbd_file.t t/zvg_50dbm_simple.t t/zvg_51dbm_file.t t/zvg_52dbm_complex.t t/zvg_60preparse.t t/zvg_65transact.t t/zvg_70callbacks.t t/zvg_72childhandles.t t/zvg_80proxy.t t/zvg_85gofer.t t/zvg_86gofer_fail.t t/zvg_87gofer_cache.t t/zvg_90sql_type_cast.t Creating test wrappers for DBI::SQL::Nano: t/zvn_49dbd_file.t t/zvn_50dbm_simple.t t/zvn_51dbm_file.t t/zvn_52dbm_complex.t t/zvn_85gofer.t Creating test wrappers for DBI::PurePerl: t/zvp_01basics.t t/zvp_02dbidrv.t t/zvp_03handle.t t/zvp_04mods.t t/zvp_05concathash.t t/zvp_06attrs.t t/zvp_07kids.t t/zvp_08keeperr.t t/zvp_09trace.t t/zvp_10examp.t t/zvp_11fetch.t t/zvp_12quote.t t/zvp_13taint.t t/zvp_14utf8.t t/zvp_15array.t t/zvp_19fhtrace.t t/zvp_20meta.t t/zvp_30subclass.t t/zvp_35thrclone.t (use threads) t/zvp_40profile.t t/zvp_41prof_dump.t t/zvp_42prof_data.t t/zvp_43prof_env.t t/zvp_49dbd_file.t t/zvp_50dbm_simple.t t/zvp_51dbm_file.t t/zvp_52dbm_complex.t t/zvp_60preparse.t t/zvp_65transact.t t/zvp_70callbacks.t t/zvp_72childhandles.t t/zvp_80proxy.t t/zvp_85gofer.t t/zvp_86gofer_fail.t t/zvp_87gofer_cache.t t/zvp_90sql_type_cast.t Creating test wrappers for DBD::Gofer + DBI::SQL::Nano: t/zvxgn_49dbd_file.t t/zvxgn_50dbm_simple.t t/zvxgn_51dbm_file.t t/zvxgn_52dbm_complex.t t/zvxgn_85gofer.t Creating test wrappers for DBD::Gofer + DBI::PurePerl: t/zvxgp_01basics.t t/zvxgp_02dbidrv.t t/zvxgp_03handle.t t/zvxgp_04mods.t t/zvxgp_05concathash.t t/zvxgp_06attrs.t t/zvxgp_07kids.t t/zvxgp_08keeperr.t t/zvxgp_09trace.t t/zvxgp_10examp.t t/zvxgp_11fetch.t t/zvxgp_12quote.t t/zvxgp_13taint.t t/zvxgp_14utf8.t t/zvxgp_15array.t t/zvxgp_19fhtrace.t t/zvxgp_20meta.t t/zvxgp_30subclass.t t/zvxgp_35thrclone.t (use threads) t/zvxgp_40profile.t t/zvxgp_41prof_dump.t t/zvxgp_42prof_data.t t/zvxgp_43prof_env.t t/zvxgp_49dbd_file.t t/zvxgp_50dbm_simple.t t/zvxgp_51dbm_file.t t/zvxgp_52dbm_complex.t t/zvxgp_60preparse.t t/zvxgp_65transact.t t/zvxgp_70callbacks.t t/zvxgp_72childhandles.t t/zvxgp_80proxy.t t/zvxgp_85gofer.t t/zvxgp_86gofer_fail.t t/zvxgp_87gofer_cache.t t/zvxgp_90sql_type_cast.t Creating test wrappers for DBI::SQL::Nano + DBI::PurePerl: t/zvxnp_49dbd_file.t t/zvxnp_50dbm_simple.t t/zvxnp_51dbm_file.t t/zvxnp_52dbm_complex.t t/zvxnp_85gofer.t Creating test wrappers for DBD::Gofer + DBI::SQL::Nano + DBI::PurePerl: t/zvxgnp_49dbd_file.t t/zvxgnp_50dbm_simple.t t/zvxgnp_51dbm_file.t t/zvxgnp_52dbm_complex.t t/zvxgnp_85gofer.t *** This version of DBI conflicts with the version of module DBD::AnyData (0.09) you have installed. It's strongly recommended that you update it after installing this version of DBI. *** *** This version of DBI conflicts with the version of module DBD::PO (2.10) you have installed. It's strongly recommended that you update it after installing this version of DBI. *** *** This version of DBI conflicts with the version of module SQL::Statement (1.27) you have installed. It's strongly recommended that you update it after installing this version of DBI. *** Checking if your kit is complete... Looks good Warning: By default new modules are installed into your 'site_lib' directories. Since site_lib directories come after the normal library directories you must delete old DBI files and directories from your 'privlib' and 'archlib' directories and their auto subdirectories. Reinstall DBI and your DBD::* drivers after deleting the old directories. Here's a list of probable old files and directories: C:/Perl-5.12/lib/Bundle/DBD C:/Perl-5.12/lib/Bundle/DBI.pm C:/Perl-5.12/lib/DBD C:/Perl-5.12/lib/DBI C:/Perl-5.12/lib/DBI.pm C:/Perl-5.12/lib/DBI/Changes.pm C:/Perl-5.12/lib/DBI/Const C:/Perl-5.12/lib/DBI/Const/GetInfo C:/Perl-5.12/lib/DBI/Const/GetInfo/ANSI.pm C:/Perl-5.12/lib/DBI/Const/GetInfo/ODBC.pm C:/Perl-5.12/lib/DBI/Const/GetInfoReturn.pm C:/Perl-5.12/lib/DBI/Const/GetInfoType.pm C:/Perl-5.12/lib/DBI/DBD C:/Perl-5.12/lib/DBI/DBD.pm C:/Perl-5.12/lib/DBI/DBD/Metadata.pm C:/Perl-5.12/lib/DBI/FAQ.pm C:/Perl-5.12/lib/DBI/Gofer C:/Perl-5.12/lib/DBI/Gofer/Execute.pm C:/Perl-5.12/lib/DBI/Gofer/Request.pm C:/Perl-5.12/lib/DBI/Gofer/Response.pm C:/Perl-5.12/lib/DBI/Gofer/Serializer C:/Perl-5.12/lib/DBI/Gofer/Serializer/Base.pm C:/Perl-5.12/lib/DBI/Gofer/Serializer/DataDumper.pm C:/Perl-5.12/lib/DBI/Gofer/Serializer/Storable.pm C:/Perl-5.12/lib/DBI/Gofer/Transport C:/Perl-5.12/lib/DBI/Gofer/Transport/Base.pm C:/Perl-5.12/lib/DBI/Gofer/Transport/pipeone.pm C:/Perl-5.12/lib/DBI/Gofer/Transport/stream.pm C:/Perl-5.12/lib/DBI/Profile.pm C:/Perl-5.12/lib/DBI/ProfileData.pm C:/Perl-5.12/lib/DBI/ProfileDumper C:/Perl-5.12/lib/DBI/ProfileDumper.pm C:/Perl-5.12/lib/DBI/ProfileDumper/Apache.pm C:/Perl-5.12/lib/DBI/ProfileSubs.pm C:/Perl-5.12/lib/DBI/ProxyServer.pm C:/Perl-5.12/lib/DBI/PurePerl.pm C:/Perl-5.12/lib/DBI/Roadmap.pm C:/Perl-5.12/lib/DBI/SQL C:/Perl-5.12/lib/DBI/SQL/Nano.pm C:/Perl-5.12/lib/DBI/Util C:/Perl-5.12/lib/DBI/Util/CacheMemory.pm C:/Perl-5.12/lib/DBI/Util/_accessor.pm C:/Perl-5.12/lib/DBI/W32ODBC.pm C:/Perl-5.12/lib/PerlEx/DBI.pm C:/Perl-5.12/lib/Win32/DBIODBC.pm C:/Perl-5.12/lib/auto/DBD C:/Perl-5.12/lib/auto/DBI C:/Perl-5.12/lib/auto/DBI/.packlist C:/Perl-5.12/lib/auto/DBI/DBI.bs C:/Perl-5.12/lib/auto/DBI/DBI.dll C:/Perl-5.12/lib/auto/DBI/DBI.exp C:/Perl-5.12/lib/auto/DBI/DBI.lib C:/Perl-5.12/lib/auto/DBI/DBIXS.h C:/Perl-5.12/lib/auto/DBI/Driver.xst C:/Perl-5.12/lib/auto/DBI/Driver_xst.h C:/Perl-5.12/lib/auto/DBI/dbd_xsh.h C:/Perl-5.12/lib/auto/DBI/dbi_sql.h C:/Perl-5.12/lib/auto/DBI/dbipport.h C:/Perl-5.12/lib/auto/DBI/dbivport.h C:/Perl-5.12/lib/auto/DBI/dbixs_rev.h I see you're using perl 5.012000 on MSWin32-x86-multi-thread, okay. Remember to actually *read* the README file! Use 'make' to build the software (dmake or nmake on Windows). Then 'make test' to execute self tests. Then 'make install' to install the DBI and then delete this working directory before unpacking and building any DBD::* drivers. Windows users need to use the correct make command. That may be nmake or dmake depending on which Perl you are using. If using the Win32 ActiveState build then it is recommended that you use the ppm utility to fetch and install a prebuilt DBI instead. Writing Makefile for DBI >>> nmake Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "mkpath" -- blib\lib\DBI C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "rm_f" -- blib\lib\DBI\Changes.pm C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "cp" -- Changes blib\lib\DBI\Changes.pm C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "mkpath" -- blib\lib\DBI C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "rm_f" -- blib\lib\DBI\Roadmap.pm C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "cp" -- Roadmap.pod blib\lib\DBI\Roadmap.pm cp Driver_xst.h blib\arch\auto\DBI\Driver_xst.h cp lib/DBD/Proxy.pm blib\lib\DBD\Proxy.pm cp lib/DBI/Gofer/Response.pm blib\lib\DBI\Gofer\Response.pm cp lib/DBI/Gofer/Transport/Base.pm blib\lib\DBI\Gofer\Transport\Base.pm cp lib/DBI/Util/_accessor.pm blib\lib\DBI\Util\_accessor.pm cp lib/DBD/DBM.pm blib\lib\DBD\DBM.pm cp DBIXS.h blib\arch\auto\DBI\DBIXS.h cp Roadmap.pod blib\lib\Roadmap.pod cp dbixs_rev.pl blib\lib\dbixs_rev.pl cp lib/DBI/Const/GetInfoType.pm blib\lib\DBI\Const\GetInfoType.pm cp lib/DBI/Gofer/Serializer/DataDumper.pm blib\lib\DBI\Gofer\Serializer\DataDumper.pm cp lib/DBI/DBD/Metadata.pm blib\lib\DBI\DBD\Metadata.pm cp lib/DBD/Gofer/Transport/pipeone.pm blib\lib\DBD\Gofer\Transport\pipeone.pm cp lib/DBI/Const/GetInfo/ODBC.pm blib\lib\DBI\Const\GetInfo\ODBC.pm cp lib/DBI/ProfileDumper/Apache.pm blib\lib\DBI\ProfileDumper\Apache.pm cp lib/DBD/File/Roadmap.pod blib\lib\DBD\File\Roadmap.pod cp Driver.xst blib\arch\auto\DBI\Driver.xst cp lib/DBD/File.pm blib\lib\DBD\File.pm cp lib/DBI/Util/CacheMemory.pm blib\lib\DBI\Util\CacheMemory.pm cp lib/DBD/NullP.pm blib\lib\DBD\NullP.pm cp lib/DBI/ProfileSubs.pm blib\lib\DBI\ProfileSubs.pm cp dbi_sql.h blib\arch\auto\DBI\dbi_sql.h cp dbd_xsh.h blib\arch\auto\DBI\dbd_xsh.h cp dbivport.h blib\arch\auto\DBI\dbivport.h cp lib/DBI/FAQ.pm blib\lib\DBI\FAQ.pm cp lib/DBD/Gofer/Transport/Base.pm blib\lib\DBD\Gofer\Transport\Base.pm cp dbixs_rev.h blib\arch\auto\DBI\dbixs_rev.h cp lib/DBD/Gofer/Policy/rush.pm blib\lib\DBD\Gofer\Policy\rush.pm cp lib/DBI/SQL/Nano.pm blib\lib\DBI\SQL\Nano.pm cp lib/DBI/Const/GetInfo/ANSI.pm blib\lib\DBI\Const\GetInfo\ANSI.pm cp lib/DBI/Gofer/Request.pm blib\lib\DBI\Gofer\Request.pm cp lib/DBD/Gofer/Transport/stream.pm blib\lib\DBD\Gofer\Transport\stream.pm cp lib/DBD/Gofer/Policy/classic.pm blib\lib\DBD\Gofer\Policy\classic.pm cp lib/DBI/Const/GetInfoReturn.pm blib\lib\DBI\Const\GetInfoReturn.pm cp lib/DBD/Gofer/Policy/Base.pm blib\lib\DBD\Gofer\Policy\Base.pm cp DBI.pm blib\lib\DBI.pm cp lib/DBI/Gofer/Serializer/Storable.pm blib\lib\DBI\Gofer\Serializer\Storable.pm cp lib/DBI/Gofer/Transport/stream.pm blib\lib\DBI\Gofer\Transport\stream.pm cp lib/DBD/Sponge.pm blib\lib\DBD\Sponge.pm cp lib/DBD/Gofer/Policy/pedantic.pm blib\lib\DBD\Gofer\Policy\pedantic.pm cp lib/DBI/W32ODBC.pm blib\lib\DBI\W32ODBC.pm cp lib/DBI/Gofer/Transport/pipeone.pm blib\lib\DBI\Gofer\Transport\pipeone.pm cp lib/DBD/Gofer.pm blib\lib\DBD\Gofer.pm cp lib/DBD/Gofer/Transport/null.pm blib\lib\DBD\Gofer\Transport\null.pm cp lib/Bundle/DBI.pm blib\lib\Bundle\DBI.pm cp TASKS.pod blib\lib\TASKS.pod cp lib/DBD/File/Developers.pod blib\lib\DBD\File\Developers.pod cp lib/DBI/Profile.pm blib\lib\DBI\Profile.pm cp lib/DBI/ProfileDumper.pm blib\lib\DBI\ProfileDumper.pm cp lib/DBI/ProxyServer.pm blib\lib\DBI\ProxyServer.pm cp lib/DBI/Gofer/Serializer/Base.pm blib\lib\DBI\Gofer\Serializer\Base.pm cp dbipport.h blib\arch\auto\DBI\dbipport.h cp lib/DBI/Gofer/Execute.pm blib\lib\DBI\Gofer\Execute.pm cp lib/DBI/DBD.pm blib\lib\DBI\DBD.pm cp lib/DBI/DBD/SqlEngine.pm blib\lib\DBI\DBD\SqlEngine.pm cp lib/Win32/DBIODBC.pm blib\lib\Win32\DBIODBC.pm cp lib/DBI/PurePerl.pm blib\lib\DBI\PurePerl.pm cp lib/DBD/ExampleP.pm blib\lib\DBD\ExampleP.pm cp lib/DBI/ProfileData.pm blib\lib\DBI\ProfileData.pm C:\Perl-5.12\bin\perl.exe -p -e "s/~DRIVER~/Perl/g" Driver.xst > Perl.xsi C:\Perl-5.12\bin\perl.exe C:\cpanfly-5.12\var\megalib\ExtUtils\xsubpp -typemap C:\Perl-5.12\lib\ExtUtils\typemap -typemap typemap Perl.xs > Perl.xsc && C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "mv" -- Perl.xsc Perl.c cl -c -nologo -GF -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DUSE_SITECUSTOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX -MD -Zi -DNDEBUG -O1 -DVERSION=\"1.613\" -DXS_VERSION=\"1.613\" "-IC:\Perl-5.12\lib\CORE" Perl.c Perl.c C:\Perl-5.12\bin\perl.exe C:\cpanfly-5.12\var\megalib\ExtUtils\xsubpp -typemap C:\Perl-5.12\lib\ExtUtils\typemap -typemap typemap DBI.xs > DBI.xsc && C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "mv" -- DBI.xsc DBI.c cl -c -nologo -GF -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DUSE_SITECUSTOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX -MD -Zi -DNDEBUG -O1 -DVERSION=\"1.613\" -DXS_VERSION=\"1.613\" "-IC:\Perl-5.12\lib\CORE" DBI.c DBI.c DBI.xs(288) : warning C4018: '<' : signed/unsigned mismatch DBI.xs(322) : warning C4018: '<' : signed/unsigned mismatch DBI.xs(348) : warning C4018: '<' : signed/unsigned mismatch Running Mkbootstrap for DBI () C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "chmod" -- 644 DBI.bs C:\Perl-5.12\bin\perl.exe -MExtUtils::Mksymlists -e "Mksymlists('NAME'=>\"DBI\", 'DLBASE' => 'DBI', 'DL_FUNCS' => { }, 'FUNCLIST' => [], 'IMPORTS' => { }, 'DL_VARS' => []);" link -out:blib\arch\auto\DBI\DBI.dll -dll -nologo -nodefaultlib -debug -opt:ref,icf -libpath:"C:\Perl-5.12\lib\CORE" -machine:x86 DBI.obj C:\Perl-5.12\lib\CORE\perl512.lib oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib uuid.lib ws2_32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib comctl32.lib msvcrt.lib -def:DBI.def Creating library blib\arch\auto\DBI\DBI.lib and object blib\arch\auto\DBI\DBI.exp if exist blib\arch\auto\DBI\DBI.dll.manifest mt -nologo -manifest blib\arch\auto\DBI\DBI.dll.manifest -outputresource:blib\arch\auto\DBI\DBI.dll;2 if exist blib\arch\auto\DBI\DBI.dll.manifest del blib\arch\auto\DBI\DBI.dll.manifest C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "chmod" -- 755 blib\arch\auto\DBI\DBI.dll C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "cp" -- DBI.bs blib\arch\auto\DBI\DBI.bs C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "chmod" -- 644 blib\arch\auto\DBI\DBI.bs C:\Perl-5.12\bin\perl.exe "-Iblib\arch" "-Iblib\lib" dbiprof.PL dbiprof Extracted dbiprof from dbiprof.PL with variable substitutions. C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "cp" -- dbiprof blib\script\dbiprof pl2bat.bat blib\script\dbiprof C:\Perl-5.12\bin\perl.exe "-Iblib\arch" "-Iblib\lib" dbiproxy.PL dbiproxy Extracted dbiproxy from dbiproxy.PL with variable substitutions. C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "cp" -- dbiproxy blib\script\dbiproxy pl2bat.bat blib\script\dbiproxy C:\Perl-5.12\bin\perl.exe "-Iblib\arch" "-Iblib\lib" dbilogstrip.PL dbilogstrip Extracted dbilogstrip from dbilogstrip.PL with variable substitutions. C:\Perl-5.12\bin\perl.exe -MExtUtils::Command -e "cp" -- dbilogstrip blib\script\dbilogstrip pl2bat.bat blib\script\dbilogstrip TIMB/DBI-1.613.tar.gz nmake -- OK Running make test >>> nmake test TEST_VERBOSE=1 Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. C:\Perl-5.12\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/01basics.t ............... 1..130 ok 1 - use DBI; ok 2 - ... testing sql_type ok 3 - ... testing sql_type ok 4 - ... testing sql_type ok 5 - ... testing sql_type ok 6 - ... testing sql_type ok 7 - ... testing sql_type ok 8 - ... testing sql_type ok 9 - ... testing sql_type ok 10 - ... testing sql_type ok 11 - ... testing sql_type ok 12 - ... testing sql_type ok 13 - ... testing sql_type ok 14 - ... testing sql_type ok 15 - ... testing sql_type ok 16 - ... testing sql_type ok 17 - ... testing sql_type ok 18 - ... testing sql_type ok 19 - ... testing sql_type ok 20 - ... testing sql_type ok 21 - ... testing sql_type ok 22 - ... testing sql_type ok 23 - ... testing sql_type ok 24 - ... testing sql_type ok 25 - ... testing sql_type ok 26 - ... testing sql_type ok 27 - ... testing sql_type ok 28 - ... testing sql_type ok 29 - ... testing sql_type ok 30 - ... testing sql_type ok 31 - ... testing sql_type ok 32 - ... testing sql_type ok 33 - ... testing sql_type ok 34 - ... testing sql_type ok 35 - ... testing sql_type ok 36 - ... testing sql_type ok 37 - ... testing sql_type ok 38 - ... testing sql_type ok 39 - ... testing sql_type ok 40 - ... testing sql_type ok 41 - ... testing sql_type ok 42 - ... testing sql_type ok 43 - ... testing sql_type ok 44 - ... testing sql_type ok 45 - ... testing sql_type ok 46 - ... testing sql_type ok 47 - ... testing sql_type ok 48 - ... testing sql_type ok 49 - ... testing sql_type ok 50 - ... testing sql_type ok 51 - ... testing sql_type ok 52 - ... testing sql_type ok 53 - ... testing sql_type ok 54 - ... testing sql_type ok 55 - ... testing sql_type ok 56 - ... testing sql_type ok 57 - ... testing sql_type ok 58 - ... testing sql_type ok 59 - ... testing sql_type ok 60 - ... testing sql_cursor_types ok 61 - ... testing sql_cursor_types ok 62 - ... testing sql_cursor_types ok 63 - ... testing sql_cursor_types ok 64 - ... testing sql_cursor_types ok 65 - ... looks_like_number : undef -> undef ok 66 - ... looks_like_number : "" -> undef (eg "don't know") ok 67 - ... looks_like_number : "foo" -> defined false ok 68 - ... looks_like_number : "foo" -> defined false ok 69 - ... looks_like_number : 1 -> true ok 70 - ... looks_like_number : "." -> false ok 71 - ... looks_like_number : 1 -> true ok 72 - ... looks_like_number : 1 -> true ok 73 - ... 1000 initial state is 400 ok 74 - ... neat : 1 + 1 -> "2" ok 75 - ... neat : 2 -> "'2'" ok 76 - ... neat : undef -> "undef" ok 77 - ... test array argument w/seperator and maxlen ok 78 - ... test array argument w/out seperator or maxlen ok 79 - The object isa DBI::dr ok 80 - ... test debug ok 81 - ... test DebugDispatch ok 82 - ... test Warn ok 83 - ... this should say Tim Bunce ok 84 - ... the version should match DBI version ok 85 - ... this should work and return 1 ok 86 - ... this should equal 1 ok 87 - ... CachedKids should be undef initially ok 88 - ... CachedKids should be our ref ok 89 - ... this should be zero ok 90 - ... this should be zero ok 91 - ... Active flag is true ok 92 - ... we should get a warning here ok 93 - ... we should get a warning here ok 94 - ... we should get no warnings here ok 95 - ... we at least have one driver installed ok 96 - ... we should at least have ExampleP installed ok 97 - ... we should at least have one driver ok 98 - ... should be -1077531989 ok 99 - ... should be -1077531989 ok 100 - ... should be -1077531990 ok 101 ok 102 ok 103 ok 104 ok 105 ok 106 ok 107 ok 108 ok 109 ok 110 ok 111 ok 112 ok 113 ok 114 ok 115 ok 116 ok 117 ok 118 ok 119 ok 120 ok 121 ok 122 ok 123 ok 124 # skip developer tests ok 125 # skip developer tests ok 126 # skip developer tests ok 127 # skip developer tests ok 128 - ... DBI::dbi_debug's initial state is 0 ok 129 - ... DBI::dbi_debug is 15 ok 130 - ... DBI::dbi_debug is 0 ok t/02dbidrv.t ............... 1..53 ok 1 - use DBI; ok 2 - ... check DBD::Test::dr::imp_data_size to avoid typo ok 3 - ... check DBD::Test::db::imp_data_size to avoid typo ok 4 - ... DBD::Test->driver called to getnew Driver handle ok 5 - ... new Driver handle (DBI::dr=HASH(0x1a8a4a4)) created successfully ok 6 - The object isa DBI::dr ok 7 - ... got a Test Driver object back from DBI->install_driver ok 8 - The object isa DBI::dr ok 9 - ... checking the DBI::_get_imp_data function ok 10 - ... Driver object passed to data_sources ok 11 - The object isa DBI::dr ok 12 - ... Driver object is not tied ok 13 - ... got correct datasources from DBI->data_sources("Test") ok 14 - ... this Driver does not yet have any Kids ok 15 - ... got a database handle from calling $drh->connect ok 16 - The object isa DBI::db ok 17 - ... this Driver does not yet have any Kids ok 18 - ... Driver object passed to data_sources ok 19 - The object isa DBI::dr ok 20 - ... Driver object is not tied ok 21 - ... checking fetched datasources from Driver ok 22 - ... got correct datasources from $dbh->data_sources() ok 23 - ... Database object passed to do ok 24 - The object isa DBI::db ok 25 - ... Database object is not tied ok 26 - ... got Driver object from Database object with Driver attribute ok 27 - The object isa DBI::dr ok 28 - ... Driver object is not tied ok 29 - ... got Driver object from Database object by FETCH-ing Driver attribute ok 30 - The object isa DBI::dr ok 31 - ... Driver object is not tied ok 32 - ... this will trigger more driver internal tests above in DBD::Test::db ok 33 - ... checking Driver handle err set with set_err method ok 34 - ... checking Database handle err set with set_err method ok 35 - ... checking Database handle err set with Driver handle set_err method ok 36 - ... this Driver does not yet have any Kids ok 37 - ... $dbh->DESTROY should set $drh->err to 42 ok 38 - ... checking $DBI::err set with Driver handle set_err method ok 39 - ... checking $DBI::errstr ok 40 - ... checking $DBI::state ok 41 - ... checking $DBI::state ok 42 - ... checking $DBI::state ok 43 - ... trying to assign to $DBI::rows should throw an excpetion ok 44 - ... FetchHashKeyName is NAME ok 45 - ... FetchHashKeyName is now changed to NAME_lc ok 46 - ... calling $drh->disconnect_all (not implemented but will fail silently) ok 47 - has dbixs_revision ok 48 - has integer dbixs_revision ok 49 - ... $drh can FETCH ok 50 - ... and it returned a proper CODE ref ok 51 - ... used FETCH returned from can to fetch the Name attribute ok 52 - ... the Name attribute is equal to Test ok 53 - ... ok t/03handle.t ............... 1..137 ok 1 - use DBI; ok 2 ok 3 - The object isa DBI::dr ok 4 - ... this Driver does not yet have any Kids ok 5 ok 6 ok 7 ok 8 - The object isa DBI::db ok 9 - ... our Driver has one Kid ok 10 - ... our Driver has one ActiveKid ok 11 - The object isa DBI::st ok 12 - ... execute ran successfully ok 13 - ... we got the CachedKids hash ok 14 - ... there is one CachedKid ok 15 - ... our statment handle should be in the CachedKids ok 16 - ... our first statment is Active ok 17 - The object isa DBI::st ok 18 - ... prepare_cached returned the same statement handle ok 19 - ... we got warned about our first statement handle being still active ok 20 - ... our first statment is no longer Active since we re-prepared it ok 21 - The object isa DBI::st ok 22 - ... prepare_cached returned a different statement handle now ok 23 - ... there are two CachedKids ok 24 - ... both statment handles should be in the CachedKids ok 25 - ... executing first statement handle again ok 26 - ... first statement handle is now active again ok 27 - The object isa DBI::st ok 28 - ... our fourth statement handle is not the same as our first ok 29 - ... first statement handle is still active ok 30 - ... there are two CachedKids ok 31 - ... second and fourth statment handles should be in the CachedKids ok 32 - ... first statement handle is no longer active ok 33 - ... fourth statement handle executed properly ok 34 - ... fourth statement handle is Active ok 35 - The object isa DBI::st ok 36 - ... we still only got one warning ok 37 - ... fourth statement handle and fifth one match ok 38 - ... fourth statement handle is not Active ok 39 - ... fifth statement handle is not Active (shouldnt be its the same as fifth) ok 40 - ... there are two CachedKids ok 41 - ... second and fourth/fifth statment handles should be in the CachedKids ok 42 - ... sixth statement handle is active ok 43 - ... first statement handle is not active ok 44 - ... first statement handle becomes the sixth ok 45 - ... sixth statement handle is now not active ok 46 - ... first statement handle is now active again ok 47 - ... first statement handle becomes the sixth ok 48 - ... sixth statement handle is active ok 49 - ... first statement handle is not active ok 50 - ... first statement handle becomes the sixth ok 51 - ... sixth statement handle is now not active ok 52 - ... first statement handle is now active again ok 53 - ... can not swap a sth with a dbh ok 54 ok 55 - ... first statement handle becomes the sixth ok 56 - ... sixth statement handle is active ok 57 - ... first statement handle is not active ok 58 ok 59 ok 60 - ... can't swap_inner_handle with handle from different parent ok 61 ok 62 ok 63 - ... can swap to different parent if forced ok 64 ok 65 - ping should be true before disconnect ok 66 - ping should be false after disconnect ok 67 - ... our Driver has one Kid after disconnect ok 68 - ... our Driver has no ActiveKids after disconnect ok 69 - ... our ExampleP driver should have 0 Kids after dbh was destoryed ok 70 - The object isa DBI::db ok 71 - ... the Driver should have 1 Kid(s) now ok 72 - not testing Driver here ok 73 - The object isa DBI::st ok 74 - not testing Database here ok 75 - ... the Driver should have no Kids ok 76 - The object isa DBI::db ok 77 - ... the Driver should have 1 Kid(s) now ok 78 - The object isa DBI::dr ok 79 - The object isa DBI::st ok 80 - not testing Database here ok 81 - ... the Driver should have no Kids ok 82 - The object isa DBI::db ok 83 - ... the Driver should have 1 Kid(s) now ok 84 - not testing Driver here ok 85 - The object isa DBI::st ok 86 - The object isa DBI::db ok 87 - ... the Driver should have no Kids ok 88 - The object isa DBI::db ok 89 - ... the Driver should have 1 Kid(s) now ok 90 - The object isa DBI::dr ok 91 - The object isa DBI::st ok 92 - The object isa DBI::db ok 93 - ... the Driver should have no Kids ok 94 - ... the Driver should have no Kids at the end of this test ok 95 - The object isa DBI::db ok 96 - ... our Driver should have 1 Kid(s) here ok 97 ok 98 ok 99 - we need weakrefs for take_imp_data to work safely with child handles ok 100 - should have 3 entries (implementation detail) ok 101 - should have 2 defined handles ok 102 - ... we got some imp_data to test ok 103 - ... test that our imp_data is greater than or equal to 80, this is reasonable ok 104 - ... our Driver should have 0 Kid(s) after calling take_imp_data ok 105 - sth should be reblessed ok 106 warn: Can't call FETCH method on handle DBI::db=HASH(0x1ae6c8c) after take_imp_data() at t/03handle.t line 316. ok 107 - ... our Driver should be undefined warn: Can't call FETCH method on handle DBI::db=HASH(0x1ae6c8c) after take_imp_data() at t/03handle.t line 319. ok 108 - ... our TraceLevel should be undefined warn: Can't call disconnect method on handle DBI::db=HASH(0x1ae6c8c) after take_imp_data() at t/03handle.t line 322. ok 109 - ... disconnect should return undef warn: Can't call quote method on handle DBI::db=HASH(0x1ae6c8c) after take_imp_data() at t/03handle.t line 324. ok 110 - ... quote should return undefined ok 111 - ... we should have gotten 4 warnings ok 112 - The object isa DBI::db ok 113 - ... our Driver should have 1 Kid(s) again ok 114 - ... our Driver has no Kids after this test ok 115 - The object isa DBI::dr ok 116 - ... our Driver (2) has no Kids before this test ok 117 - The object isa DBI::db ok 118 - The object isa DBI::st ok 119 - ... NUM_OF_PARAMS is 0 ok 120 - ... NUM_OF_FIELDS should be undef ok 121 - ... Statement is "foo bar" ok 122 - ... NAME is undefined ok 123 - ... TYPE is undefined ok 124 - ... SCALE is undefined ok 125 - ... PRECISION is undefined ok 126 - ... NULLABLE is undefined ok 127 - ... RowsInCache is undefined ok 128 - ... ParamValues is undefined ok 129 - ... NAME_uc is undefined ok 130 - ... NAME_lc is undefined ok 131 - ... NAME_hash is undefined ok 132 - ... NAME_uc_hash is undefined ok 133 - ... NAME_lc_hash is undefined ok 134 - ... $dbh can call "prepare" ok 135 - ... $dbh cannot call "nonesuch" ok 136 - ... $sth can call "execute" ok 137 - ... our Driver (2) has no Kids after this test ok t/04mods.t ................. 1..12 ok 1 - use DBI; ok 2 - use DBI::Const::GetInfo::ANSI; ok 3 - use DBI::Const::GetInfo::ODBC; ok 4 - use DBI::Const::GetInfoType; ok 5 - use DBI::Const::GetInfoReturn; ok 6 - ... we have at least one key in the GetInfoType hash ok 7 - ... the GetInfoType hash is constructed from the ANSI and ODBC hashes ok 8 - ... we have at least one key in the GetInfoReturnType hash ok 9 - ... the GetInfoReturnType hash is constructed from the ANSI and ODBC hashes ok 10 - ... we have at least one key in the GetInfoReturnValues hash ok 11 - DBI::Const::GetInfoReturn->can('Format') ok 12 - DBI::Const::GetInfoReturn->can('Explain') ok t/05concathash.t ........... 1..41 ok 1 - use DBI; ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 - should work with nul bytes in kv_sep and pair_sep ok 10 - should work with nul bytes in hash value (neat) ok 11 - should work with nul bytes in hash value (not neat) ok 12 ok 13 ok 14 ok 15 - test ok 16 - test ok 17 - Unknown sort order ok 18 - Float Hash - Not Neat lexical ok 19 - Numeric - Not Neat lexical ok 20 - Mixed Hash - Not Neat lexical ok 21 - Simple Hash - Not Neat lexical ok 22 - Float Hash - Neat lexical ok 23 - Numeric - Neat lexical ok 24 - Mixed Hash - Neat lexical ok 25 - Simple Hash - Neat lexical ok 26 - Float Hash - Not Neat guess ok 27 - Numeric - Not Neat guess ok 28 - Mixed Hash - Not Neat guess ok 29 - Simple Hash - Not Neat guess ok 30 - Float Hash - Neat guess ok 31 - Numeric - Neat guess ok 32 - Mixed Hash - Neat guess ok 33 - Simple Hash - Neat guess ok 34 - Float Hash - Not Neat numeric ok 35 - Numeric - Not Neat numeric ok 36 - Mixed Hash - Not Neat numeric ok 37 - Simple Hash - Not Neat numeric ok 38 - Float Hash - Neat numeric ok 39 - Numeric - Neat numeric ok 40 - Mixed Hash - Neat numeric ok 41 - Simple Hash - Neat numeric ok t/06attrs.t ................ 1..145 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - ... checking Warn attribute for dbh ok 4 - ... checking Active attribute for dbh ok 5 - ... checking AutoCommit attribute for dbh ok 6 - ... checking CompatMode attribute for dbh ok 7 - ... checking InactiveDestory attribute for dbh ok 8 - ... checking PrintError attribute for dbh ok 9 - ... checking PrintWarn attribute for dbh ok 10 - ... checking RaiseError attribute for dbh ok 11 - ... checking ShowErrorStatement attribute for dbh ok 12 - ... checking ChopBlanks attribute for dbh ok 13 - ... checking LongTrunkOk attribute for dbh ok 14 - ... checking TaintIn attribute for dbh ok 15 - ... checking TaintOut attribute for dbh ok 16 - ... checking Taint attribute for dbh ok 17 - ... checking Executed attribute for dbh ok 18 - ... checking ErrCount attribute for dbh ok 19 - ... checking Kids attribute for dbh ok 20 - ... checking ActiveKids attribute for dbh ok 21 - ... checking CachedKids attribute for dbh ok 22 - ... checking HandleError attribute for dbh ok 23 - ... checking Profile attribute for dbh ok 24 - ... checking Statement attribute for dbh ok 25 - ... checking RowCacheSize attribute for dbh ok 26 - ... checking ReadOnly attribute for dbh ok 27 - ... checking FetchHashKeyName attribute for dbh ok 28 - ... checking Name attribute for dbh ok 29 - ... checking TraceLevel attribute for dbh ok 30 - ... checking LongReadLen attribute for dbh ok 31 - should be able to FETCH_many ok 32 - should see driver-private dbh attribute value ok 33 - ... catching exception ok 34 - ... $dbh->err is undefined ok 35 - ... checking $dbh->errstr ok 36 - ... checking $dbh->state ok 37 - ... checking Executed attribute for dbh ok 38 - ... checking Executed attribute for dbh (after reset) ok 39 - ... checking ErrCount attribute for dbh (after error was generated) ok 40 - The object isa DBI::dr ok 41 - ... checking $dbh->err ok 42 - ... checking ErrCount attribute for drh ok 43 - ... checking Warn attribute for drh ok 44 - ... checking Active attribute for drh ok 45 - ... checking AutoCommit attribute for drh ok 46 - ... checking CompatMode attribute for drh ok 47 - ... checking InactiveDestory attribute for drh ok 48 - ... checking PrintError attribute for drh ok 49 - ... checking PrintWarn attribute for drh ok 50 - ... checking RaiseError attribute for drh ok 51 - ... checking ShowErrorStatement attribute for drh ok 52 - ... checking ChopBlanks attribute for drh ok 53 - ... checking LongTrunkOk attribute for drh ok 54 - ... checking TaintIn attribute for drh ok 55 - ... checking TaintOut attribute for drh ok 56 - ... checking Taint attribute for drh ok 57 - ... checking Executed attribute for drh ok 58 - ... checking Kids attribute for drh ok 59 - ... checking ActiveKids attribute for drh ok 60 - ... checking CachedKids attribute for drh ok 61 - ... checking HandleError attribute for drh ok 62 - ... checking Profile attribute for drh ok 63 - ... checking ReadOnly attribute for drh ok 64 - ... checking TraceLevel attribute for drh ok 65 - ... checking LongReadLen attribute for drh ok 66 - ... checking FetchHashKeyName attribute for drh ok 67 - ... checking Name attribute for drh ok 68 - The object isa DBI::st ok 69 - ... checking Executed attribute for sth ok 70 - ... checking Executed attribute for dbh ok 71 - ... checking ErrCount attribute for sth ok 72 - ... checking exception ok 73 - ... checking $sth->errstr ok 74 - ... checking $sth->state ok 75 - ... checking Executed attribute for sth ok 76 - ... checking Exceuted attribute for dbh ok 77 - ... checking ErrCount attribute for sth ok 78 - ... checking exception ok 79 - ... checking ErrCount attribute for sth (after assignment) ok 80 - ... checking ErrCount attribute for sth (after reset) ok 81 - ... checking Warn attribute for sth ok 82 - ... checking Active attribute for sth ok 83 - ... checking CompatMode attribute for sth ok 84 - ... checking InactiveDestroy attribute for sth ok 85 - ... checking PrintError attribute for sth ok 86 - ... checking PrintWarn attribute for sth ok 87 - ... checking RaiseError attribute for sth ok 88 - ... checking ShowErrorStatement attribute for sth ok 89 - ... checking ChopBlanks attribute for sth ok 90 - ... checking LongTrunkOk attribute for sth ok 91 - ... checking TaintIn attribute for sth ok 92 - ... checking TaintOut attribute for sth ok 93 - ... checking Taint attribute for sth ok 94 - ... checking Kids attribute for sth ok 95 - ... checking ActiveKids attribute for sth ok 96 - ... checking CachedKids attribute for sth ok 97 - ... checking HandleError attribute for sth ok 98 - ... checking Profile attribute for sth ok 99 - ... checking ReadOnly attribute for sth ok 100 - ... checking TraceLevel attribute for sth ok 101 - ... checking LongReadLen attribute for sth ok 102 - ... checking FetchHashKeyName attribute for sth ok 103 - ... checking CursorName attribute for sth ok 104 - ... checking NUM_OF_FIELDS attribute for sth ok 105 - ... checking NUM_OF_PARAMS attribute for sth ok 106 - ... checking type of NAME attribute for sth ok 107 - ... checking number of elements returned ok 108 - ... checking values returned ok 109 - ... checking type of NAME_lc attribute for sth ok 110 - ... checking number of elements returned ok 111 - ... checking values returned ok 112 - ... checking type of NAME_uc attribute for sth ok 113 - ... checking number of elements returned ok 114 - ... checking values returned ok 115 - ... checking type of NAME_hash attribute for sth ok 116 - ... checking number of keys returned ok 117 - ... checking values returned ok 118 - ... checking values returned ok 119 - ... checking type of NAME_lc_hash attribute for sth ok 120 - ... checking number of keys returned ok 121 - ... checking values returned ok 122 - ... checking values returned ok 123 - ... checking type of NAME_uc_hash attribute for sth ok 124 - ... checking number of keys returned ok 125 - ... checking values returned ok 126 - ... checking values returned ok 127 - ... checking type of TYPE attribute for sth ok 128 - ... checking number of elements returned ok 129 - ... checking values returned ok 130 - ... checking type of NULLABLE attribute for sth ok 131 - ... checking number of elements returned ok 132 - ... checking values returned ok 133 - ... checking type of PRECISION attribute for sth ok 134 - ... checking number of elements returned ok 135 - ... checking values returned ok 136 - ... checking type of SCALE attribute for sth ok 137 - ... checking number of elements returned ok 138 - ... checking values returned ok 139 - ... checking type of ParamValues attribute for sth ok 140 - ... checking values returned ok 141 - ... checking Statement attribute for sth ok 142 - ... checking type of RowsInCache attribute for sth ok 143 - should see driver-private sth attribute value Checking inheritance ok 144 - dbh ReadOnly value should be inherited from drh ok 145 - sth ReadOnly value should be inherited from dbh ok t/07kids.t ................. 1..20 ok 1 - The object isa DBI::db ok 2 - ... database handle has 0 Kid(s) at start ok 3 - ... database handle has 0 ActiveKid(s) at start ok 4 - The object isa DBI::st ok 5 - ... database handle has 1 Kid(s) after $dbh->prepare ok 6 - ... database handle has 0 ActiveKid(s) after $dbh->prepare ok 7 - ... database handle has 1 Kid(s) after $sth->execute ok 8 - ... database handle has 1 ActiveKid(s) after $sth->execute ok 9 - ... database handle has 1 Kid(s) after $sth->finish ok 10 - ... database handle has 0 ActiveKid(s) after $sth->finish ok 11 - ... database handle has 0 Kid(s) after $sth is destroyed ok 12 - ... database handle has 0 ActiveKid(s) after $sth is destroyed ok 13 - The object isa DBI::dr ok 14 - ... driver handle has 1 Kid(s) ok 15 - ... driver handle has 1 ActiveKid(s) ok 16 - ... driver handle has 1 Kid(s) after $dbh->disconnect ok 17 - ... driver handle has 0 ActiveKid(s) after $dbh->disconnect ok 18 - ... lets be sure that $dbh is not undefined ok 19 - ... driver handle has 0 Kid(s) after undef $dbh ok 20 - ... driver handle has 0 ActiveKid(s) after undef $dbh ok t/08keeperr.t .............. 1..69 ok 1 - use DBI; ok 2 - ... checking error ok 3 - ... checking error Test HandleSetErr ok 4 - The object isa DBI::db ok 5 - ... $DBI::err is not defined HandleSetErr called: h=DBI::db=HASH(0x19c61d4), err=, errstr=(got info), state= ok 6 - ... $DBI::err is defined ok 7 - ... $DBI::err is an empty string ok 8 - ... $DBI::errstr is as we expected ok 9 - ... $dbh->errstr matches $DBI::errstr ok 10 - ... $warn{failed} is 0 ok 11 - ... $warn{warning} is 0 ok 12 - ... the @handlewarn array is (1, 0, 0) HandleSetErr called: h=DBI::db=HASH(0x19c61d4), err=0, errstr=(got warn), state=AA001 warn: 'DBD::ExampleP::db set_err warning: (got info)\n(got warn) at t/08keeperr.t line 131.\n' ok 13 - ... $DBI::err is defined ok 14 - ... $DBI::err is "0" ok 15 - ... $DBI::errstr is as we expected ok 16 - ... $dbh->errstr matches $DBI::errstr ok 17 - ... $DBI::state is AA001 ok 18 - ... $warn{warning} is 1 ok 19 - ... the @handlewarn array is (1, 1, 0) HandleSetErr called: h=DBI::db=HASH(0x19c61d4), err=, errstr=(got more info), state= warn: 'DBD::ExampleP::db set_err warning: (got info)\n(got warn)\n(got more info) at t/08keeperr.t line 146.\n' ok 20 - ... $DBI::err is defined ok 21 - ... $DBI::err is "0" ok 22 - ... $dbh->err is "0" ok 23 - ... $DBI::state is AA001 ok 24 - ... $DBI::errstr is as we expected ok 25 - ... $dbh->errstr matches $DBI::errstr ok 26 - ... $warn{warning} is 2 ok 27 - ... the @handlewarn array is (2, 1, 0) warn: 'DBD::ExampleP::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error) at t/08keeperr.t line 167.\n' ok 28 - ... $DBI::err is defined ok 29 - ... $DBI::err is 42 ok 30 - ... $warn{warning} is 2 ok 31 - ... $dbh->errstr is as we expected ok 32 - ... $DBI::state is AA002 ok 33 - ... the @handlewarn array is (2, 1, 1) HandleSetErr called: h=DBI::db=HASH(0x19c61d4), err=, errstr=(got info), state= warn: 'DBD::ExampleP::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info) at t/08keeperr.t line 179.\n' ok 34 - ... $DBI::err is defined ok 35 - ... $DBI::err is 42 ok 36 - ... $warn{warning} is 2 ok 37 - ... $dbh->errstr is as we expected ok 38 - ... the @handlewarn array is (3, 1, 1) HandleSetErr called: h=DBI::db=HASH(0x19c61d4), err=0, errstr=(got warn), state= warn: 'DBD::ExampleP::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info)\n(got warn) at t/08keeperr.t line 190.\n' ok 39 - ... $DBI::err is defined ok 40 - ... $DBI::err is 42 ok 41 - ... $warn{warning} is 2 ok 42 - ... $dbh->errstr is as we expected ok 43 - ... the @handlewarn array is (3, 2, 1) warn: 'DBD::ExampleP::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info)\n(got warn) [err was 42 now 4200] [state was AA002 now AA003]\n(got new error) at t/08keeperr.t line 201.\n' ok 44 - ... $DBI::err is defined ok 45 - ... $DBI::err is 4200 ok 46 - ... $warn{warning} is 2 ok 47 - ... $dbh->errstr is as we expected ok 48 - ... the @handlewarn array is (3, 2, 2) ok 49 - ... $dbh->errstr is defined ok 50 - ... $dbh->err is defined ok 51 - ... $dbh->state is an empty string warn: 'DBD::ExampleP::db set_err failed: foo at t/08keeperr.t line 226.\n' ok 52 - ... only returned one value ok 53 - ... the first value is undefined warn: 'DBD::ExampleP::db set_err failed: foo [err was 1 now 2]\nbar at t/08keeperr.t line 230.\n' ok 54 - ... $dbh->set_err returned undefiend warn: 'DBD::ExampleP::db set_err failed: foo [err was 1 now 2]\nbar [err was 2 now 3]\nbaz at t/08keeperr.t line 231.\n' ok 55 - ... $dbh->set_err returned undefiend HandleSetErr called: h=DBI::db=HASH(0x19c61d4), err=0, errstr=warn, state= warn: 'DBD::ExampleP::db set_err failed: foo [err was 1 now 2]\nbar [err was 2 now 3]\nbaz\nwarn at t/08keeperr.t line 232.\n' ok 56 - ... $dbh->set_err returned undefiend ok 57 - ... $dbh->errstr is as we expected ok 58 - ... $warn{failed} is 4 ok 59 - ... the @handlewarn array is (0, 1, 3) warn: 'DBD::ExampleP::db method failed: foo at t/08keeperr.t line 242.\n' ok 60 - ... only returned one value ok 61 - ... the first value is undefined warn: 'DBD::ExampleP::db method failed: foo at t/08keeperr.t line 246.\n' ok 62 - ... only returned one value ok 63 - ... the first value is "42" warn: 'DBD::ExampleP::db method failed: foo at t/08keeperr.t line 250.\n' ok 64 - ... returned no values HandleSetErr called: h=DBI::db=HASH(0x19c61d4), err=, errstr=info, state=override warn: 'DBD::ExampleP::db set_err failed: errstr99 at t/08keeperr.t line 257.\n' ok 65 - ... only returned one value ok 66 - ... the first value is undefined ok 67 - ... $dbh->err is 99 ok 68 - ... $dbh->errstr is as we expected ok 69 - ... $dbh->state is as we expected ok t/09trace.t ................ 1..67 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - trace file size = 3231 ok 4 - ... checking TraceLevel attribute ok 5 - ... trace file successfully created parse_trace_flag SQL ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 parse_trace_flag foo ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 parse_trace_flag bar ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok 28 ok 29 parse_trace_flag baz ok 30 ok 31 ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 parse_trace_flag boo ok 38 ok 39 ok 40 ok 41 ok 42 ok 43 ok 44 ok 45 parse_trace_flag bop ok 46 ok 47 ok 48 ok 49 ok 50 ok 51 ok 52 ok 53 parse_trace_flag SQL foo bar baz boo bop ok 54 - ... ok 55 - ... inherit ok 56 - The object isa DBI::st ok 57 ok 58 ok 59 test unknown parse_trace_flag ok 60 ok 61 caught warn: DBI::db=HASH(0x1b03f9c)->parse_trace_flags(nonesuch) ignored unknown trace flags: 'nonesuch' at t/09trace.t line 118 ok 62 ok 63 caught warn: DBI::db=HASH(0x1b03f9c)->parse_trace_flags(nonesuch|SQL|nonesuch2) ignored unknown trace flags: 'nonesuch' 'nonesuch2' at t/09trace.t line 120 ok 64 ok 65 ok 66 ok 67 ok t/10examp.t ................ 1..210 ok 1 - connect should fail ok 2 - ... we should have an exception here ok 3 - ... $dbh2 should not be defined ok 4 ok 5 ok 6 - ... these 2 handles are cached, so they are the same ok 7 ok 8 - ... this handle was created with different parameters, so it is not the same ok 9 ok 10 - Executed should be true ok 11 ok 12 - should return same handle ok 13 - Executed should be false because reset by connect attributes ok 14 - The object isa DBI::dr ok 15 - ... these are our cached kids ok 16 - ... we have emptied out cache ok 17 ok 18 - ... PrintError should be 0 ok 19 - ... FetchHashKey is NAME ok 20 - ... checking the example driver_path others ok 21 - DBI commit: invalid number of arguments: got handle + 1, expected handle + between 0 and 0 # Usage: $h->commit() at t/10examp.t line 87. # ok 22 - ping should return true ok 23 - prepare should fail ok 24 - sth->err should be true ok 25 - DBI::err should be true ok 26 - $DBI::err should match $dbh->err ok 27 - $DBI::errstr should contain error string ok 28 - $DBI::errstr should match $dbh->errstr ok 29 ok 30 ok 31 ok 32 ok 33 - DBI::db=HASH(0x1b5044c) ne DBI::db=HASH(0x1b5044c) ok 34 ok 35 ok 36 ok 37 ok 38 ok 39 ok 40 ok 41 ok 42 ok 43 ok 44 ok 45 ok 46 ok 47 ok 48 ok 49 ok 50 ok 51 ok 52 ok 53 - errstr should contain error message ok 54 ok 55 - errstr should contain error message ok 56 ok 57 ok 58 - errstr should contain error message ok 59 ok 60 - errstr should contain error message ok 61 ok 62 ok 63 ok 64 ok 65 ok 66 ok 67 ok 68 fetchrow_hashref('NAME_uc') ok 69 ok 70 ok 71 ok 72 ok 73 fetchrow_hashref('ParamValues') ok 74 ok 75 FetchHashKeyName ok 76 ok 77 ok 78 ok 79 ok 80 ok 81 fetchall_arrayref ok 82 ok 83 ok 84 ok 85 ok 86 ok 87 fetchall_arrayref array slice ok 88 ok 89 ok 90 ok 91 fetchall_arrayref hash slice ok 92 ok 93 ok 94 ok 95 fetchall_arrayref hash ok 96 ok 97 ok 98 ok 99 - '16895 0 .' ne '16895 0 .' rows() ok 100 - row count 46 ok 101 - 46 vs 46 ok 102 - 46 vs 46 fetchall_arrayref array slice and max rows ok 103 ok 104 ok 105 selectrow_array ok 106 ok 107 selectrow_hashref ok 108 ok 109 ok 110 ok 111 selectall_arrayref ok 112 ok 113 ok 114 ok 115 selectall_arrayref Slice array slice ok 116 ok 117 ok 118 - ". 16895" eq ". 16895" ok 119 selectall_arrayref Columns array slice ok 120 ok 121 ok 122 - ". 16895" eq ". 16895" ok 123 selectall_arrayref hash slice ok 124 ok 125 ok 126 ok 127 ok 128 ok 129 ok 130 selectall_hashref ok 131 - selectall_hashref result ok 132 - selectall_hashref HASH: HASH ok 133 ok 134 - 0 eq 0 selectall_hashref by column number ok 135 ok 136 - 0 eq 0 selectcol_arrayref ok 137 ok 138 ok 139 selectcol_arrayref column slice ok 140 ok 141 ok 142 ok 143 others... ok 144 ok 145 RaiseError & PrintError & ShowErrorStatement ok 146 ok 147 ok 148 ok 149 ok 150 ok 151 ok 152 ok 153 ok 154 ok 155 ok 156 ok 157 ok 158 ok 159 ok 160 ok 161 - DBD::ExampleP::st execute failed: 2 values bound when 1 expected [for Statement "select mode from ?" with ParamValues: 1='first', 2='second'] at t/10examp.t line 366. # ok 162 - DBD::ExampleP::st execute failed: 2 values bound when 1 expected [for Statement "select mode from ?" with ParamValues: 1='first', 2='second'] at t/10examp.t line 366. # ok 163 ok 164 ok 165 ok 166 ok 167 ok 168 HandleError ok 169 ok 170 HandleError -> die ok 171 ok 172 - HandleError: DBD::ExampleP::db prepare failed: Unknown field names: unknown_field_name2 [h=DBI::db=HASH(0x1b5044c), rv=undef, \#=3] at t/10examp.t line 395. # HandleError -> 0 -> RaiseError HandleError: DBD::ExampleP::db prepare failed: Unknown field names: unknown_field_name2 [h=DBI::db=HASH(0x1b5044c), rv=undef, #=3] ok 173 ok 174 - DBD::ExampleP::db prepare failed: Unknown field names: unknown_field_name2 at t/10examp.t line 416. # HandleError -> 1 -> return (original)undef HandleError: DBD::ExampleP::db prepare failed: Unknown field names: unknown_field_name2 [h=DBI::db=HASH(0x1b5044c), rv=undef, #=3] ok 175 - ok 176 HandleError -> 2 -> return (modified)42 HandleError: DBD::ExampleP::db prepare failed: Unknown field names: unknown_field_name2 [h=DBI::db=HASH(0x1b5044c), rv=undef, #=3] ok 177 - ok 178 ok 179 ok 180 - The object isa DBI::st ok 181 ok 182 ok 183 ok 184 - Remove dumpcsr.tst ok 185 - Actually gone table_info ok 186 Local C:/cpanfly-5.12/var/cpan/build/DBI-1.613-Duq_2f subdirs: lib ex .. . blib t ok 187 ok 188 ok 189 tables ok 190 - Table count mismatch5 vs 5 ok 191 - "schema"."table" ne "schema"."table" ok 192 - "sch-ema"."table" ne "sch-ema"."table" ok 193 - "schema"."ta-ble" ne "schema"."ta-ble" ok 194 - "sch ema"."table" ne "sch ema"."table" ok 195 - "schema"."ta ble" ne "schema"."ta ble" Testing the fake directories (0). ok 196 ok 197 ok 198 - 0 rows instead of 0 ok 199 Testing the fake directories (100). ok 200 ok 201 ok 202 - 100 rows instead of 100 ok 203 - 'file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' ne 'file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' Testing the fake directories (200). ok 204 ok 205 ok 206 - 200 rows instead of 200 ok 207 - 'file200 file199 file198 file197 file196 file195 file194 file193 file192 file191 file190 file189 file188 file187 file186 file185 file184 file183 file182 file181 file180 file179 file178 file177 file176 file175 file174 file173 file172 file171 file170 file169 file168 file167 file166 file165 file164 file163 file162 file161 file160 file159 file158 file157 file156 file155 file154 file153 file152 file151 file150 file149 file148 file147 file146 file145 file144 file143 file142 file141 file140 file139 file138 file137 file136 file135 file134 file133 file132 file131 file130 file129 file128 file127 file126 file125 file124 file123 file122 file121 file120 file119 file118 file117 file116 file115 file114 file113 file112 file111 file110 file109 file108 file107 file106 file105 file104 file103 file102 file101 file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' ne 'file200 file199 file198 file197 file196 file195 file194 file193 file192 file191 file190 file189 file188 file187 file186 file185 file184 file183 file182 file181 file180 file179 file178 file177 file176 file175 file174 file173 file172 file171 file170 file169 file168 file167 file166 file165 file164 file163 file162 file161 file160 file159 file158 file157 file156 file155 file154 file153 file152 file151 file150 file149 file148 file147 file146 file145 file144 file143 file142 file141 file140 file139 file138 file137 file136 file135 file134 file133 file132 file131 file130 file129 file128 file127 file126 file125 file124 file123 file122 file121 file120 file119 file118 file117 file116 file115 file114 file113 file112 file111 file110 file109 file108 file107 file106 file105 file104 file103 file102 file101 file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' Testing $dbh->func(). ok 208 ok 209 ok 210 - ping should return false after disconnect ok t/11fetch.t ................ 1..24 # fetchall_hashref(C1) ok 1 ok 2 ok 3 ok 4 # fetchall_hashref(C2) ok 5 ok 6 ok 7 ok 8 # fetchall_hashref([C2]) ok 9 ok 10 ok 11 ok 12 # fetchall_hashref([C1 C2]) ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok t/12quote.t ................ 1..10 ok 1 - ... quoting strings with embedded single quotes ok 2 - ... quoting number as SQL_VARCHAR ok 3 - ... quoting number as SQL_INTEGER ok 4 - ... quoting undef as NULL ok 5 - ... properly quotes foo as "foo" ok 6 - ... properly quotes f"o as "f""o" ok 7 - ... properly quotes foo, bar as "foo"."bar" ok 8 - ... properly quotes undef, undef, bar as "bar" ok 9 - ... properly quotes foo, undef, bar as "foo"."bar" ok 10 - ... now quotes it as "bar"@"foo" after flushing cache ok t/13taint.t ................ 1..36 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 - should execute ok ok 20 ok 21 ok 22 ok 23 TaintIn ok 24 ok 25 ok 26 ok 27 TaintOut ok 28 ok 29 ok 30 ok 31 ok 32 - Insecure dependency in parameter 1 of DBI::db=HASH(0x2c2c204)->prepare method call while running with -T switch at t/13taint.t line 113. # ok 33 - Insecure dependency in parameter 1 of DBI::st=HASH(0x2c2c344)->execute method call while running with -T switch at t/13taint.t line 115. # ok 34 - ok 35 - ok 36 ok t/14utf8.t ................. 1..16 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok t/15array.t ................ 1..55 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - The object isa DBI::st ok 4 - ... we should have 0 rows ok 5 - ... execute_array should return false ok 6 - execute_array failure with RaiseError should have died ok 7 ok 8 - ... we should have 2 rows ok 9 - ... we should have 3 tuple_status ok 10 - ... our rows are as expected ok 11 - ... our tuple_status is as expected ok 12 - ... bind_param_array should return true ok 13 - ... execute_array should return true ok 14 - ... we should have 3 rows ok 15 - ... we should have 3 tuple_status ok 16 - ... our rows are as expected ok 17 - ... our tuple_status is as expected ok 18 - ... execute_array should return true ok 19 - ... we should have executed 3 rows ok 20 - ... we should have affected 3 rows ok 21 - ... execute_array should return true ok 22 - ... execute_array should return 0 (but true) ok 23 - ... we should have 0 rows ok 24 - ... we should have 0 tuple_status ok 25 - ... execute_array should return 1 ok 26 - ... we should have 1 rows ok 27 - ... our rows are as expected ok 28 - ... we should have 1 tuple_status ok 29 - ... our tuple_status is as expected ok 30 - ... execute_array should return 0 ok 31 - ... we should have 0 rows ok 32 - ... we should have 0 tuple_status ok 33 - The object isa DBI::st ok 34 - ... execute_array should return true ok 35 - ... execute_array should return 0 (but true) ok 36 - ... we should have 0 rows ok 37 - ... execute_array should return true ok 38 - ... we should have 2 rows ok 39 - ... we should have 2 tuple_status ok 40 - ... rows should match ok 41 - ... tuple_status should match ok 42 - The object isa DBI::st ok 43 - ... execute_array should return true ok 44 - ... we should have 3 rows ok 45 - ... we should have 3 tuple_status ok 46 - ... rows should match ok 47 - ... tuple status should match ok 48 - ... execute_array should return undef ok 49 - ... errstr is as expected ok 50 - ... execute_array should return undef ok 51 - ... errstr is as expected ok 52 - ... execute_array should return undef ok 53 - ... errstr is as expected ok 54 - ... bind_param_array should return undef ok 55 - ... errstr is as expected ok t/19fhtrace.t .............. 1..27 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - ... checking TraceLevel attribute ok 4 - ... regular fh: trace file successfully created ok 5 - ... regular fh: filehandle successfully set ok 6 - ... regular fh: trace_msg <- trace= ( 2 ) [1 items] at 19fhtrace.t line 196 ok 7 - ... regular fh: file successfully changed ok 8 - ... regular fh: trace_msg after changing trace output Next logline -> trace for DBD::ExampleP::db (DBI::db=HASH(0x1ad8b64)~0x1ad8ae4 0) thr#234014 <- trace= ( 2 ) [1 items] at 19fhtrace.t line 209 ok 9 - Tracefile removed ok 10 - Tracefile FOO opened ok 11 - Tracefile created ok 12 - Regression test ok 13 - Traced message ok 14 - Regression test ok 15 - ... layered fh: file is layered: *** Test our layer # # ok 16 - ... layered fh: filehandle successfully set ok 17 - ... layered fh: trace_msg: Layered logline # # <- trace(1, 'STDOUT')= ( 1 ) [1 items] at 19fhtrace.t line 251 ok 18 - ... layered fh: close doesn't close: Layered logline # # ok 19 - ... layered fh: trace_msg after change trace output: Layered logline # # ok 20 - ... scalar trace: file is layered: *** Test our layer # # ok 21 - ... scalar trace: filehandle successfully set ok 22 - ... scalar trace: *** Test our layer # <- trace(1, GLOB(0x1aa725c))= ( 1 ) [1 items] at 19fhtrace.t line 267 # Layered logline # # Next logline <- trace(1, 'STDOUT')= ( 1 ) [1 items] at 19fhtrace.t line 273 ok 23 - ... scalar trace: close doesn't close: *** Test our layer # <- trace(1, GLOB(0x1aa725c))= ( 1 ) [1 items] at 19fhtrace.t line 267 # Layered logline # # ok 24 - ... scalar trace: after change trace output: *** Test our layer # <- trace(1, GLOB(0x1aa725c))= ( 1 ) [1 items] at 19fhtrace.t line 267 # Layered logline # # ok 25 - ... logger: trace_msg # Next logline DBI::db=HASH(0x1ad8ae4) trace level set to 0x0/1 (DBI @ 0x100/0) in DBI 1.613-ithread (pid 2872) ok 26 - ... logger: close doesn't close # ok 27 - ... logger: trace_msg after change trace output # Next logline <- disconnect= ( 1 ) [1 items] at 19fhtrace.t line 157 <- FETCH('Active')= ( '' ) [1 items] at ExampleP.pm line 259 <- DESTROY(DBI::db=HASH(1ad8ae4))= ( undef ) [1 items] ok t/20meta.t ................. 1..8 ok 1 - use DBI; ok 2 - use DBI::DBD::Metadata; ok 3 - The object isa DBI::db ok 4 ok 5 ok 6 ok 7 ok 8 ok t/30subclass.t ............. 1..36 ok 1 - use DBI; ok 2 - The object isa MyDBI::db ok 3 ok 4 - The object isa MyDBI::db ok 5 ok 6 ok 7 - The object isa MyDBI::st ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 - The reference isa ARRAY ok 16 ok 17 ok 18 ok 19 ok 20 - Clone A isa MyDBI::db ok 21 ok 22 ok 23 - Clone B isa MyDBI::db ok 24 ok 25 ok 26 - The object isa MyDBI::db ok 27 ok 28 - installed method isa ARRAY ok 29 ok 30 ok 31 ok 32 ok 33 - Failed connect \#1 ok 34 ok 35 - Failed connect \#2 ok 36 fetch 4 prepare 1 ok t/35thrclone.t ............. 1..20 ok 1 - use DBI; ok 2 - ... assignment of neat_maxlen was successful ok 3 - The object isa DBI::db ok 4 - ... DBI::neat_maxlen still holding its value ok 5 - The object isa DBI::db ok 6 - ... new $dbh is not the same instance as $dbh_parent ok 7 - ... the Driver has one Kid ok 8 - ... DBI::neat_maxlen still holding its value ok 9 - The object isa DBI::db ok 10 - ... new $dbh is not the same instance as $dbh_parent ok 11 - ... the Driver has one Kid ok 12 - ... DBI::neat_maxlen still holding its value ok 13 - The object isa DBI::db ok 14 - ... new $dbh is not the same instance as $dbh_parent ok 15 - ... the Driver has one Kid ok 16 - ... DBI::neat_maxlen still holding its value ok 17 - The object isa DBI::db ok 18 - ... new $dbh is not the same instance as $dbh_parent ok 19 - ... the Driver has one Kid ok 20 - ... all tests have passed ok t/40profile.t .............. 1..60 Test enabling the profile ok 1 ok 2 ok 3 ok 4 ok 5 bless( { 'Path' => [ '!MethodName', '!Caller2' ], 'Data' => { 'do' => { '40profile.t line 80' => [ 1, '0', '0', '0', '0', '1280721659.46625', '1280721659.46625' ] } } }, 'DBI::Profile' ) ok 6 ok 7 ok 8 ok 9 ok 10 dbi_profile bless( { 'Path' => [ '!Statement', '!MethodName' ], 'Data' => { '' => { 'connected' => [ 1, '0', '0', '0', '0', '1280721659.46625', '1280721659.46625' ], 'FETCH' => [ 1, '0', '0', '0', '0', '1280721659.46625', '1280721659.46625' ], 'STORE' => [ 5, '0', '0', '0', '0', '1280721659.46625', '1280721659.46625' ] }, 'Hi mom' => { 'my_method_name' => [ 1, '1', '1', '1', '1', '1280721659.46625', '1280721659.46625' ] } } }, 'DBI::Profile' ) ok 11 ok 12 ok 13 ok 14 - should return ref to leaf node ok 15 - should return ref to leaf node ok 16 - should return ref to correct leaf node 1 1 1 1 1 1280721659.46625 1280721659.46625 ok 17 2 3 1 1 2 1280721659.46625 1280721659.48187 ok 18 Test collected profile data bless( { 'Path' => [ '!Statement' ], 'Data' => { 'set foo=1' => [ 1, '0', '0', '0', '0', '1280721659.70062', '1280721659.70062' ], '' => [ 7, '0', '0', '0', '0', '1280721659.48187', '1280721659.48187' ], 'select mode,size,name from ?' => [ 2451, '0.21875', '0', '0', '0.015625', '1280721659.48187', '1280721659.70062' ] } }, 'DBI::Profile' ) ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok 28 ok 29 ok 30 ok 31 ok 32 ok 33 ok 34 Test profile format Profile Output DBI::Profile: 0.218750s 100.00% (2459 calls) 40profile.t @ 2010-08-01 21:00:59 '' => 0.000000s / 7 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'select mode,size,name from ?' => 0.218750s / 2451 = 0.000089s avg (first 0.000000s, min 0.000000s, max 0.015625s) 'set foo=1' => 0.000000s ok 35 ok 36 ok 37 ok 38 ok 39 ok 40 ok 41 - should have 9 nodes ok 42 testing '!File', '!Caller' and their variants in Path ok 43 testing '!Time' and variants in Path ok 44 - !Time and !Time~1000000 should work testing &norm_std_n3 in Path ok 45 ok 46 - &norm_std_n3 should normalize statement testing code ref in Path ok 47 ok 48 ok 49 - should be vetoed ok 50 - $_ should contain statement ok 51 - should have @_ as keys ok 52 - should be able to filter by method ok 53 - output should go to log file testing as_text ok 54 ok 55 ok 56 DBI::Profile: 2.000000s 200.00% (203 calls) 40profile.t @ 2010-08-01 21:01:00 'A' => 'Z' => 1.000000s / 101 = 0.009901s avg (first 2.000000s, min 3.000000s, max 4.000000s) 'B' => 'Y' => 1.000000s / 102 = 0.009804s avg (first 2.000000s, min 3.000000s, max 4.000000s) dbi_profile_merge_nodes ok 57 ok 58 ok 59 ok 60 DBI::Profile: 0.000000s 0.00% (12 calls) 40profile.t @ 2010-08-01 21:01:00 'foo' => 'DESTROY' => 'baz' => 0.000000s 'FETCH' => 'baz' => 0.000000s 'STORE' => 'baz' => 0.000000s / 5 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'connected' => 'baz' => 0.000000s 'execute' => 'baz' => 0.000000s 'fetchrow_hashref' => 'baz' => 0.000000s 'finish' => 'baz' => 0.000000s 'prepare' => 'baz' => 0.000000s ok t/41prof_dump.t ............ 1..15 ok 1 - use DBI; ok 2 - use DBI::ProfileDumper; ok 3 - The object isa DBI::db ok 4 - The object isa DBI::ProfileDumper ok 5 - The reference isa HASH ok 6 - The reference isa ARRAY ok 7 - The object isa DBI::st ok 8 ok 9 - Profile is on disk and nonzero size DBI::ProfileDumper 2.013956 Path = [ ] Program = t/41prof_dump.t + 1 = 7 0 0 0 0 1280721660.10687 1280721660.10687 + 1 select mode,size,name from ? = 2 0 0 0 0 1280721660.10687 1280721660.10687 + 1 = 2 0 0 0 0 1280721660.10687 1280721660.10687 + 1 select mode,size,name from ? = 50 0 0 0 0 1280721660.10687 1280721660.10687 ok 10 - Found a version number ok 11 - Version numbers match in DBI::ProfileDumper 2.013956 # ok 12 - Found the Path ok 13 - Found the Program ok 14 ok 15 # skip developer-only test ok t/42prof_data.t ............ 1..31 ok 1 - use DBI::ProfileDumper; ok 2 - use DBI::ProfileData; ok 3 - Created connection isa DBI::db ok 4 - Profile written to disk, non-zero size ok 5 - The object isa DBI::ProfileData ok 6 - At least 3 profile data items ok 7 ok 8 ok 9 ok 10 ok 11 - The object isa DBI::ProfileData ok 12 ok 13 ok 14 - The object isa DBI::ProfileData ok 15 ok 16 ok 17 SQL: set dummy=N SQL: SQL: select mode,size,name from ? ok 18 ok 19 ok 20 ok 21 - Created connection isa DBI::db ok 22 - The object isa DBI::st ok 23 - The object isa DBI::st ok 24 - The object isa DBI::st ok 25 - The object isa DBI::st ok 26 - The object isa DBI::st ok 27 - The object isa DBI::st ok 28 - The object isa DBI::ProfileData ok 29 - file should be deleted when DeleteFiles set ok 30 ok 31 ok t/43prof_env.t ............. 1..11 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 - $h->{Profile} should be shared ok 8 ok 9 ok 10 ok 11 DBI::Profile: 0.000000s (25 calls) 43prof_env.t @ 2010-08-01 21:01:00 '' => 'DESTROY' => 0.000000s 'FETCH' => 0.000000s / 4 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'STORE' => 0.000000s / 10 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'connect' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'connected' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'disconnect' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'disconnect_all' => 0.000000s 'set dummy=1' => 'do' => 0.000000s 'set dummy=2' => 'DESTROY' => 0.000000s 'do' => 0.000000s ok t/49dbd_file.t ............. ok 1 - use DBI; ok 2 - use DBD::File; ok 3 - Connect clean ok 4 - Can connect to DBD::File driver # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 5 - f_versions ok 6 - Connect with DBI attributes ok 7 - Connect with driver attributes in DSN ok 8 - Connect with driver attributes in hash ok 9 - Prepare select from non-existing file ok 10 - Cannot open non-existing file # C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\t_sbdgf_53442gz.txt ok 11 - drop manually created table db_2572_2 (first file) ok 12 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2572_2.txt removed ok 13 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2572_2 exists ok 14 - drop manually created table db_2572_2 (second file) ok 15 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2572_2 removed ok 16 - Create table db_2572_ ok 17 - Test table exists ok 18 - get single table meta data ok 19 - get multiple meta data ok 20 - encoding shows in layer ok 21 - set single meta datum ok 22 - verify set single meta datum ok 23 - set multiple meta data ok 24 - verify set multiple meta attributes ok 25 - Prepare select * from db_2572_ ok 26 - execute on db_2572_ ok 27 - Prepare select * from DB_2572_ ok 28 - execute on DB_2572_ ok 29 - table drop ok 30 - Test table removed 1..30 ok t/50dbm_simple.t ........... Using DBM modules: SDBM_File Using MLDBM serializers: Data::Dumper Storable FreezeThaw YAML JSON Test count: 1 x ( ( 5 + 18 ) + 5 x ( 5 + 21 ) ) = 153 1..153 --- Using SDBM_File () --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 1 - dbm_versions ok 2 - The object isa DBI::db ok 3 ok 4 ok 5 ok 6 - DROP TABLE IF EXISTS SDBM_File_fruit ok 7 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10)) ok 8 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' ) ok 9 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change' ) ok 10 - INSERT INTO SDBM_File_fruit VALUES (3, NULL ) ok 11 - INSERT INTO SDBM_File_fruit VALUES (4,'to delete' ) ok 12 - INSERT INTO SDBM_File_fruit VALUES (?,?) ok 13 - INSERT INTO SDBM_File_fruit VALUES (6,'to delete' ) ok 14 - INSERT INTO SDBM_File_fruit VALUES (7,'to_delete' ) ok 15 - DELETE FROM SDBM_File_fruit WHERE dVal='to delete' ok 16 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to delete') == $sth->rows ok 17 - UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2 ok 18 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2) == $sth->rows ok 19 - DELETE FROM SDBM_File_fruit WHERE dKey=7 ok 20 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=7) == $sth->rows ok 21 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 22 - SELECT results ok 23 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Data::Dumper) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 24 - dbm_versions ok 25 - The object isa DBI::db ok 26 ok 27 ok 28 ok 29 - DROP TABLE IF EXISTS SDBM_File_fruit ok 30 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 31 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 32 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 33 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 34 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 35 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 36 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 37 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 38 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 39 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 40 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 41 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 42 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 43 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 44 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 45 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 46 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 47 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 48 - SELECT results ok 49 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Storable) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 50 - dbm_versions ok 51 - The object isa DBI::db ok 52 ok 53 ok 54 ok 55 - DROP TABLE IF EXISTS SDBM_File_fruit ok 56 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 57 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 58 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 59 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 60 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 61 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 62 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 63 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 64 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 65 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 66 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 67 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 68 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 69 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 70 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 71 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 72 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 73 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 74 - SELECT results ok 75 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (FreezeThaw) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 76 - dbm_versions ok 77 - The object isa DBI::db ok 78 ok 79 ok 80 ok 81 - DROP TABLE IF EXISTS SDBM_File_fruit ok 82 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 83 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 84 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 85 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 86 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 87 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 88 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 89 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 90 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 91 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 92 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 93 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 94 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 95 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 96 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 97 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 98 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 99 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 100 - SELECT results ok 101 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (YAML) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 102 - dbm_versions ok 103 - The object isa DBI::db ok 104 ok 105 ok 106 ok 107 - DROP TABLE IF EXISTS SDBM_File_fruit ok 108 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 109 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 110 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 111 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 112 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 113 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 114 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 115 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 116 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 117 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 118 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 119 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 120 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 121 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 122 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 123 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 124 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 125 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 126 - SELECT results ok 127 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (JSON) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 128 - dbm_versions ok 129 - The object isa DBI::db ok 130 ok 131 ok 132 ok 133 - DROP TABLE IF EXISTS SDBM_File_fruit ok 134 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 135 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 136 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 137 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 138 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 139 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 140 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 141 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 142 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 143 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 144 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 145 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 146 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 147 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 148 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 149 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 150 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 151 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 152 - SELECT results ok 153 - DROP TABLE SDBM_File_fruit ok t/51dbm_file.t ............. ok 1 ok 2 - FRED.dir exists ok 3 - fred.dir exists ok 4 ok 5 ok 6 ok 7 1..7 ok t/52dbm_complex.t .......... skipped: Not running with SQL::Statement t/60preparse.t ............. 1..39 ok 1 - The object isa DBI::db ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok 28 ok 29 ok 30 ok 31 ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 ok 38 ok 39 ok t/65transact.t ............. 1..10 begin_work... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok t/70callbacks.t ............ 1..63 ok 1 - Create dbh ok 2 - Callbacks initially undef ok 3 ok 4 - Callbacks can be set to a hash ref ok 5 - Callbacks set to same hash ref ok 6 - Callbacks set to undef again ok 7 ok 8 ok 9 ok 10 - $_ holds method name ok 11 - @_ holds 1 values ok 12 - first is $dbh ok 13 ok 14 ok 15 - $_ not altered by callback ok 16 - $_ holds method name ok 17 - @_ holds 1 values ok 18 - first is $dbh ok 19 ok 20 ok 21 ok 22 - fallback callback ok 23 - @_ holds 4 values ok 24 - first is $dbh ok 25 ok 26 ok 27 ok 28 ok 29 - quote_identifier callback caused fatal error ok 30 - param modified by callback - not recommended! ok 31 ok 32 - You can't disconnect that easily! # ok 33 ok 34 ok 35 ok 36 - should return a single value in list context ok 37 ok 38 ok 39 ok 40 ok 41 ok 42 - intercepted commit should return undef ok 43 ok 44 ok 45 ok 46 - Create handle with callbacks ok 47 - no callback for plain connect ok 48 - Create handle with callbacks ok 49 - connect_cached.new called ok 50 - connect_cached.reused not yet called ok 51 - Create handle with callbacks ok 52 - connect_cached.reused called ok 53 - connect_cached.new not called again ok 54 - Create handle with ChildCallbacks ok 55 - Ping ok 56 - Ping callback should have been called ok 57 - Prepare a statement handle (child) ok 58 - child should have Callbacks ok 59 - child Callbacks should be ChildCallbacks of parent ok 60 - Execute ok 61 - Execute callback should have been called ok 62 - Fetch ok 63 - Fetch callback should have been called ok t/72childhandles.t ......... 1..16 ok 1 ok 2 ok 3 ok 4 ok 5 - All handles should be undef now ok 6 - ChildHandles should be an array-ref if wekref is available ok 7 drh DBI::dr=HASH(0x1a8aeec) dbh DBI::db=HASH(0x1a8b2ec) sth DBI::st=HASH(0x1aafcec) sth DBI::st=HASH(0x195beb4) sth DBI::st=HASH(0x1aef954) ok 8 ok 9 ok 10 ok 11 ok 12 - handles should be gone now ok 13 ok 14 ok 15 ok 16 ok t/80proxy.t ................ skipped: modules required for proxy are probably not installed (e.g., RPC/PlClient.pm) t/85gofer.t ................ # Transports: null pipeone stream stream_ssh # Policies: pedantic classic rush # Count: 0 # ============= # Testing null transport with pedantic policy # dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 1 - should connect to dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 2 ok 3 ok 4 ok 5 - should detect prepare failure ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 - go_response executed flag should be true ok 13 ok 14 ok 15 ok 16 # Testing go_request_count and caching of simple values ok 17 ok 18 ok 19 # use_remote=1 (policy=pedantic, transport=null) HASH(0x3237484) ok 20 ok 21 ok 22 ok 23 # skip caching of metadata methods returning sth not yet implemented ok 24 # skip caching of metadata methods returning sth not yet implemented ok 25 ok 26 # ============= # Testing null transport with classic policy # dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 27 - should connect to dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 28 ok 29 ok 30 ok 31 - The object isa DBI::st ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 ok 38 - go_response executed flag should be true ok 39 ok 40 ok 41 ok 42 # Testing go_request_count and caching of simple values ok 43 ok 44 ok 45 # use_remote=0 (policy=classic, transport=null) HASH(0x321aaec) ok 46 ok 47 ok 48 ok 49 # skip caching of metadata methods returning sth not yet implemented ok 50 # skip caching of metadata methods returning sth not yet implemented ok 51 ok 52 # ============= # Testing null transport with rush policy # dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 53 - should connect to dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 54 ok 55 ok 56 ok 57 - The object isa DBI::st ok 58 ok 59 ok 60 ok 61 ok 62 ok 63 ok 64 - go_response executed flag should be true ok 65 ok 66 ok 67 ok 68 # Testing go_request_count and caching of simple values ok 69 ok 70 ok 71 # use_remote=0 (policy=rush, transport=null) HASH(0x324461c) ok 72 ok 73 ok 74 ok 75 # skip caching of metadata methods returning sth not yet implemented ok 76 # skip caching of metadata methods returning sth not yet implemented ok 77 ok 78 1..78 ok t/86gofer_fail.t ........... ok 1 - should fail 100% of the time ok 2 - $@ should be set ok 3 ok 4 - errstr should be set ok 5 - errstr should contain DBI_GOFER_RANDOM ok 6 - go_response executed flag should be false target approx 50% random failures, got 48.5% ok 7 - should fail about 50% of the time, but at least between 10% and 90% (got 48.5) ok 8 - should fail about 50% of the time, but at least between 10% and 90% (got 48.5) target less than 20% effective random failures (ideally 0), got 0% ok 9 - should fail < 20% ok 10 - should fail < 1% ok 11 ok 12 - should fail ~25% (ie 50% with one retry) (got 22) ok 13 - should fail ~25% (ie 50% with one retry) (got 22) ok 14 - transport request_retry_count should be around 50 (got 44) ok 15 - transport request_retry_count should be around 50 (got 44) ok 16 ok 17 - should fail ~50%, ie no retries (got 50) ok 18 - should fail ~50%, ie no retries (got 50) ok 19 - transport request_retry_count should be zero or undef ok 20 - positive percentage should fail randomly ok 21 - negative percentage should fail non-randomly Testing random delay ok 22 ok 23 - should not fail for DBI_GOFER_RANDOM='delay0.1=51%,do' ok 24 - should be delayed around 5 times (got 11) ok 25 - should be delayed around 5 times (got 11) 1..25 ok t/87gofer_cache.t .......... using DBI::Util::CacheMemory=HASH(0x1accaac) for dbi:Gofer:transport=null;policy=classic;dsn=dbi:ExampleP: ok 1 ok 2 ok 3 - cache should be empty after clear ok 4 - transmit_count should be 0 ok 5 ok 6 - cache should not be empty after select ok 7 ok 8 ok 9 ok 10 - should make 1 round trip ok 11 - transmit_count should be 0 ok 12 ok 13 ok 14 - should make 1 round trip ok 15 ok 16 ok 17 using 1 for dbi:Gofer:transport=null;policy=classic;dsn=dbi:ExampleP: ok 18 ok 19 ok 20 - cache should be empty after clear ok 21 - transmit_count should be 0 ok 22 ok 23 - cache should not be empty after select ok 24 ok 25 ok 26 ok 27 - should make 1 round trip ok 28 - transmit_count should be 0 ok 29 ok 30 ok 31 - should make 1 round trip ok 32 ok 33 ok 34 test per-sth go_cache ok 35 ok 36 ok 37 ok 38 ok 39 ok 40 ok 41 ok 42 ok 43 ok 44 ok 45 ok 46 ok 47 1..47 ok t/90sql_type_cast.t ........ 1..45 ok 1 - result, undef ok 2 - json undef ok 3 - discard works, undef ok 4 - result, invalid sql type ok 5 - json invalid sql type ok 6 - result, non numeric cast to int ok 7 - json non numeric cast to int ok 8 - result, non numeric cast to int (strict) ok 9 - json non numeric cast to int (strict) ok 10 - result, small int cast to int ok 11 - json small int cast to int ok 12 - result, 2 byte max signed int cast to int ok 13 - json 2 byte max signed int cast to int ok 14 - result, 2 byte max unsigned int cast to int ok 15 - json 2 byte max unsigned int cast to int ok 16 - result, 4 byte max signed int cast to int ok 17 - json 4 byte max signed int cast to int ok 18 - result, 4 byte max unsigned int cast to int ok 19 - json 4 byte max unsigned int cast to int ok 20 - result, small int cast to int (discard) ok 21 - json small int cast to int (discard) ok 22 - discard works, small int cast to int (discard) ok 23 - result, non numeric cast to numeric ok 24 - json non numeric cast to numeric ok 25 - result, non numeric cast to numeric (strict) ok 26 - json non numeric cast to numeric (strict) ok 27 - result, very large int cast to int ok 28 - json very large int cast to int ok 29 - result, very large int cast to int (strict) ok 30 - json very large int cast to int (strict) ok 31 - result, float cast to int ok 32 - json float cast to int ok 33 - result, float cast to int (strict) ok 34 - json float cast to int (strict) ok 35 - result, float cast to double ok 36 - json float cast to double ok 37 - nv defined float cast to double ok 38 - result, 4 byte max unsigned int cast to int (ivsize=4) ok 39 - json 4 byte max unsigned int cast to int (ivsize=4) ok 40 - result, non numeric cast to double ok 41 - json non numeric cast to double ok 42 - nv not defined non numeric cast to double ok 43 - result, non numeric cast to double (strict) ok 44 - json non numeric cast to double (strict) ok 45 - nv not defined non numeric cast to double (strict) ok t/pod-coverage.t ........... skipped: Currently a developer-only test t/pod.t .................... 1..59 ok 1 - POD test for blib\lib\DBI.pm ok 2 - POD test for blib\lib\dbixs_rev.pl (no pod) ok 3 - POD test for blib\lib\Roadmap.pod ok 4 - POD test for blib\lib\TASKS.pod ok 5 - POD test for blib\script\dbilogstrip ok 6 - POD test for blib\script\dbilogstrip.bat ok 7 - POD test for blib\script\dbiprof ok 8 - POD test for blib\script\dbiprof.bat ok 9 - POD test for blib\script\dbiproxy ok 10 - POD test for blib\script\dbiproxy.bat ok 11 - POD test for blib\lib\Bundle\DBI.pm ok 12 - POD test for blib\lib\DBD\DBM.pm ok 13 - POD test for blib\lib\DBD\ExampleP.pm (no pod) ok 14 - POD test for blib\lib\DBD\File.pm ok 15 - POD test for blib\lib\DBD\Gofer.pm ok 16 - POD test for blib\lib\DBD\NullP.pm (no pod) ok 17 - POD test for blib\lib\DBD\Proxy.pm ok 18 - POD test for blib\lib\DBD\Sponge.pm ok 19 - POD test for blib\lib\DBI\Changes.pm ok 20 - POD test for blib\lib\DBI\DBD.pm ok 21 - POD test for blib\lib\DBI\FAQ.pm ok 22 - POD test for blib\lib\DBI\Profile.pm ok 23 - POD test for blib\lib\DBI\ProfileData.pm ok 24 - POD test for blib\lib\DBI\ProfileDumper.pm ok 25 - POD test for blib\lib\DBI\ProfileSubs.pm ok 26 - POD test for blib\lib\DBI\ProxyServer.pm ok 27 - POD test for blib\lib\DBI\PurePerl.pm ok 28 - POD test for blib\lib\DBI\Roadmap.pm ok 29 - POD test for blib\lib\DBI\W32ODBC.pm ok 30 - POD test for blib\lib\Win32\DBIODBC.pm ok 31 - POD test for blib\lib\DBD\File\Developers.pod ok 32 - POD test for blib\lib\DBD\File\Roadmap.pod ok 33 - POD test for blib\lib\DBI\Const\GetInfoReturn.pm ok 34 - POD test for blib\lib\DBI\Const\GetInfoType.pm ok 35 - POD test for blib\lib\DBI\DBD\Metadata.pm ok 36 - POD test for blib\lib\DBI\DBD\SqlEngine.pm ok 37 - POD test for blib\lib\DBI\Gofer\Execute.pm ok 38 - POD test for blib\lib\DBI\Gofer\Request.pm ok 39 - POD test for blib\lib\DBI\Gofer\Response.pm ok 40 - POD test for blib\lib\DBI\ProfileDumper\Apache.pm ok 41 - POD test for blib\lib\DBI\SQL\Nano.pm ok 42 - POD test for blib\lib\DBI\Util\CacheMemory.pm ok 43 - POD test for blib\lib\DBI\Util\_accessor.pm (no pod) ok 44 - POD test for blib\lib\DBD\Gofer\Policy\Base.pm ok 45 - POD test for blib\lib\DBD\Gofer\Policy\classic.pm ok 46 - POD test for blib\lib\DBD\Gofer\Policy\pedantic.pm ok 47 - POD test for blib\lib\DBD\Gofer\Policy\rush.pm ok 48 - POD test for blib\lib\DBD\Gofer\Transport\Base.pm ok 49 - POD test for blib\lib\DBD\Gofer\Transport\null.pm ok 50 - POD test for blib\lib\DBD\Gofer\Transport\pipeone.pm ok 51 - POD test for blib\lib\DBD\Gofer\Transport\stream.pm ok 52 - POD test for blib\lib\DBI\Const\GetInfo\ANSI.pm ok 53 - POD test for blib\lib\DBI\Const\GetInfo\ODBC.pm ok 54 - POD test for blib\lib\DBI\Gofer\Serializer\Base.pm ok 55 - POD test for blib\lib\DBI\Gofer\Serializer\DataDumper.pm ok 56 - POD test for blib\lib\DBI\Gofer\Serializer\Storable.pm ok 57 - POD test for blib\lib\DBI\Gofer\Transport\Base.pm ok 58 - POD test for blib\lib\DBI\Gofer\Transport\pipeone.pm ok 59 - POD test for blib\lib\DBI\Gofer\Transport\stream.pm ok t/zvg_01basics.t ........... 1..130 ok 1 - use DBI; ok 2 - ... testing sql_type ok 3 - ... testing sql_type ok 4 - ... testing sql_type ok 5 - ... testing sql_type ok 6 - ... testing sql_type ok 7 - ... testing sql_type ok 8 - ... testing sql_type ok 9 - ... testing sql_type ok 10 - ... testing sql_type ok 11 - ... testing sql_type ok 12 - ... testing sql_type ok 13 - ... testing sql_type ok 14 - ... testing sql_type ok 15 - ... testing sql_type ok 16 - ... testing sql_type ok 17 - ... testing sql_type ok 18 - ... testing sql_type ok 19 - ... testing sql_type ok 20 - ... testing sql_type ok 21 - ... testing sql_type ok 22 - ... testing sql_type ok 23 - ... testing sql_type ok 24 - ... testing sql_type ok 25 - ... testing sql_type ok 26 - ... testing sql_type ok 27 - ... testing sql_type ok 28 - ... testing sql_type ok 29 - ... testing sql_type ok 30 - ... testing sql_type ok 31 - ... testing sql_type ok 32 - ... testing sql_type ok 33 - ... testing sql_type ok 34 - ... testing sql_type ok 35 - ... testing sql_type ok 36 - ... testing sql_type ok 37 - ... testing sql_type ok 38 - ... testing sql_type ok 39 - ... testing sql_type ok 40 - ... testing sql_type ok 41 - ... testing sql_type ok 42 - ... testing sql_type ok 43 - ... testing sql_type ok 44 - ... testing sql_type ok 45 - ... testing sql_type ok 46 - ... testing sql_type ok 47 - ... testing sql_type ok 48 - ... testing sql_type ok 49 - ... testing sql_type ok 50 - ... testing sql_type ok 51 - ... testing sql_type ok 52 - ... testing sql_type ok 53 - ... testing sql_type ok 54 - ... testing sql_type ok 55 - ... testing sql_type ok 56 - ... testing sql_type ok 57 - ... testing sql_type ok 58 - ... testing sql_type ok 59 - ... testing sql_type ok 60 - ... testing sql_cursor_types ok 61 - ... testing sql_cursor_types ok 62 - ... testing sql_cursor_types ok 63 - ... testing sql_cursor_types ok 64 - ... testing sql_cursor_types ok 65 - ... looks_like_number : undef -> undef ok 66 - ... looks_like_number : "" -> undef (eg "don't know") ok 67 - ... looks_like_number : "foo" -> defined false ok 68 - ... looks_like_number : "foo" -> defined false ok 69 - ... looks_like_number : 1 -> true ok 70 - ... looks_like_number : "." -> false ok 71 - ... looks_like_number : 1 -> true ok 72 - ... looks_like_number : 1 -> true ok 73 - ... 1000 initial state is 400 ok 74 - ... neat : 1 + 1 -> "2" ok 75 - ... neat : 2 -> "'2'" ok 76 - ... neat : undef -> "undef" ok 77 - ... test array argument w/seperator and maxlen ok 78 - ... test array argument w/out seperator or maxlen ok 79 - The object isa DBI::dr ok 80 - ... test debug ok 81 - ... test DebugDispatch ok 82 - ... test Warn ok 83 - ... this should say Tim Bunce ok 84 - ... the version should match DBI version ok 85 - ... this should work and return 1 ok 86 - ... this should equal 1 ok 87 - ... CachedKids should be undef initially ok 88 - ... CachedKids should be our ref ok 89 - ... this should be zero ok 90 - ... this should be zero ok 91 - ... Active flag is true ok 92 - ... we should get a warning here ok 93 - ... we should get a warning here ok 94 - ... we should get no warnings here ok 95 - ... we at least have one driver installed ok 96 - ... we should at least have ExampleP installed ok 97 - ... we should at least have one driver ok 98 - ... should be -1077531989 ok 99 - ... should be -1077531989 ok 100 - ... should be -1077531990 ok 101 ok 102 ok 103 ok 104 ok 105 ok 106 ok 107 ok 108 ok 109 ok 110 ok 111 ok 112 ok 113 ok 114 ok 115 ok 116 ok 117 ok 118 ok 119 ok 120 ok 121 ok 122 ok 123 ok 124 # skip developer tests ok 125 # skip developer tests ok 126 # skip developer tests ok 127 # skip developer tests ok 128 - ... DBI::dbi_debug's initial state is 0 ok 129 - ... DBI::dbi_debug is 15 ok 130 - ... DBI::dbi_debug is 0 ok t/zvg_02dbidrv.t ........... 1..53 ok 1 - use DBI; ok 2 - ... check DBD::Test::dr::imp_data_size to avoid typo ok 3 - ... check DBD::Test::db::imp_data_size to avoid typo ok 4 - ... DBD::Test->driver called to getnew Driver handle ok 5 - ... new Driver handle (DBI::dr=HASH(0x1a8a534)) created successfully ok 6 - The object isa DBI::dr ok 7 - ... got a Test Driver object back from DBI->install_driver ok 8 - The object isa DBI::dr ok 9 - ... checking the DBI::_get_imp_data function ok 10 - ... Driver object passed to data_sources ok 11 - The object isa DBI::dr ok 12 - ... Driver object is not tied ok 13 - ... got correct datasources from DBI->data_sources("Test") ok 14 - ... this Driver does not yet have any Kids ok 15 - ... got a database handle from calling $drh->connect ok 16 - The object isa DBI::db ok 17 - ... this Driver does not yet have any Kids ok 18 - ... Driver object passed to data_sources ok 19 - The object isa DBI::dr ok 20 - ... Driver object is not tied ok 21 - ... checking fetched datasources from Driver ok 22 - ... got correct datasources from $dbh->data_sources() ok 23 - ... Database object passed to do ok 24 - The object isa DBI::db ok 25 - ... Database object is not tied ok 26 - ... got Driver object from Database object with Driver attribute ok 27 - The object isa DBI::dr ok 28 - ... Driver object is not tied ok 29 - ... got Driver object from Database object by FETCH-ing Driver attribute ok 30 - The object isa DBI::dr ok 31 - ... Driver object is not tied ok 32 - ... this will trigger more driver internal tests above in DBD::Test::db ok 33 - ... checking Driver handle err set with set_err method ok 34 - ... checking Database handle err set with set_err method ok 35 - ... checking Database handle err set with Driver handle set_err method ok 36 - ... this Driver does not yet have any Kids ok 37 - ... $dbh->DESTROY should set $drh->err to 42 ok 38 - ... checking $DBI::err set with Driver handle set_err method ok 39 - ... checking $DBI::errstr ok 40 - ... checking $DBI::state ok 41 - ... checking $DBI::state ok 42 - ... checking $DBI::state ok 43 - ... trying to assign to $DBI::rows should throw an excpetion ok 44 - ... FetchHashKeyName is NAME ok 45 - ... FetchHashKeyName is now changed to NAME_lc ok 46 - ... calling $drh->disconnect_all (not implemented but will fail silently) ok 47 - has dbixs_revision ok 48 - has integer dbixs_revision ok 49 - ... $drh can FETCH ok 50 - ... and it returned a proper CODE ref ok 51 - ... used FETCH returned from can to fetch the Name attribute ok 52 - ... the Name attribute is equal to Test ok 53 - ... ok t/zvg_03handle.t ........... 1..137 ok 1 - use DBI; ok 2 ok 3 - The object isa DBI::dr ok 4 - ... this Driver does not yet have any Kids ok 5 ok 6 ok 7 ok 8 - The object isa DBI::db ok 9 - ... our Driver has one Kid ok 10 - ... our Driver has one ActiveKid ok 11 - The object isa DBI::st ok 12 - ... execute ran successfully ok 13 - ... we got the CachedKids hash ok 14 - ... there is one CachedKid ok 15 - ... our statment handle should be in the CachedKids ok 16 - ... our first statment is Active ok 17 - The object isa DBI::st ok 18 - ... prepare_cached returned the same statement handle ok 19 - ... we got warned about our first statement handle being still active ok 20 - ... our first statment is no longer Active since we re-prepared it ok 21 - The object isa DBI::st ok 22 - ... prepare_cached returned a different statement handle now ok 23 - ... there are two CachedKids ok 24 - ... both statment handles should be in the CachedKids ok 25 - ... executing first statement handle again ok 26 - ... first statement handle is now active again ok 27 - The object isa DBI::st ok 28 - ... our fourth statement handle is not the same as our first ok 29 - ... first statement handle is still active ok 30 - ... there are two CachedKids ok 31 - ... second and fourth statment handles should be in the CachedKids ok 32 - ... first statement handle is no longer active ok 33 - ... fourth statement handle executed properly ok 34 - ... fourth statement handle is Active ok 35 - The object isa DBI::st ok 36 - ... we still only got one warning ok 37 - ... fourth statement handle and fifth one match ok 38 - ... fourth statement handle is not Active ok 39 - ... fifth statement handle is not Active (shouldnt be its the same as fifth) ok 40 - ... there are two CachedKids ok 41 - ... second and fourth/fifth statment handles should be in the CachedKids ok 42 - ... sixth statement handle is active ok 43 - ... first statement handle is not active ok 44 - ... first statement handle becomes the sixth ok 45 - ... sixth statement handle is now not active ok 46 - ... first statement handle is now active again ok 47 - ... first statement handle becomes the sixth ok 48 - ... sixth statement handle is active ok 49 - ... first statement handle is not active ok 50 - ... first statement handle becomes the sixth ok 51 - ... sixth statement handle is now not active ok 52 - ... first statement handle is now active again ok 53 - ... can not swap a sth with a dbh ok 54 ok 55 - ... first statement handle becomes the sixth ok 56 - ... sixth statement handle is active ok 57 - ... first statement handle is not active ok 58 ok 59 ok 60 - ... can't swap_inner_handle with handle from different parent ok 61 ok 62 ok 63 - ... can swap to different parent if forced ok 64 ok 65 - ping should be true before disconnect ok 66 - ping should be false after disconnect ok 67 - ... our Driver has one Kid after disconnect ok 68 - ... our Driver has no ActiveKids after disconnect ok 69 - ... our ExampleP driver should have 0 Kids after dbh was destoryed ok 70 # skip drh Kids not testable under DBD::Gofer ok 71 # skip drh Kids not testable under DBD::Gofer ok 72 # skip drh Kids not testable under DBD::Gofer ok 73 # skip drh Kids not testable under DBD::Gofer ok 74 # skip drh Kids not testable under DBD::Gofer ok 75 # skip drh Kids not testable under DBD::Gofer ok 76 # skip drh Kids not testable under DBD::Gofer ok 77 # skip drh Kids not testable under DBD::Gofer ok 78 # skip drh Kids not testable under DBD::Gofer ok 79 # skip drh Kids not testable under DBD::Gofer ok 80 # skip drh Kids not testable under DBD::Gofer ok 81 # skip drh Kids not testable under DBD::Gofer ok 82 # skip drh Kids not testable under DBD::Gofer ok 83 # skip drh Kids not testable under DBD::Gofer ok 84 # skip drh Kids not testable under DBD::Gofer ok 85 # skip drh Kids not testable under DBD::Gofer ok 86 # skip drh Kids not testable under DBD::Gofer ok 87 # skip drh Kids not testable under DBD::Gofer ok 88 # skip drh Kids not testable under DBD::Gofer ok 89 # skip drh Kids not testable under DBD::Gofer ok 90 # skip drh Kids not testable under DBD::Gofer ok 91 # skip drh Kids not testable under DBD::Gofer ok 92 # skip drh Kids not testable under DBD::Gofer ok 93 # skip drh Kids not testable under DBD::Gofer ok 94 # skip drh Kids not testable under DBD::Gofer ok 95 # skip take_imp_data test not supported under DBD::Gofer ok 96 # skip take_imp_data test not supported under DBD::Gofer ok 97 # skip take_imp_data test not supported under DBD::Gofer ok 98 # skip take_imp_data test not supported under DBD::Gofer ok 99 # skip take_imp_data test not supported under DBD::Gofer ok 100 # skip take_imp_data test not supported under DBD::Gofer ok 101 # skip take_imp_data test not supported under DBD::Gofer ok 102 # skip take_imp_data test not supported under DBD::Gofer ok 103 # skip take_imp_data test not supported under DBD::Gofer ok 104 # skip take_imp_data test not supported under DBD::Gofer ok 105 # skip take_imp_data test not supported under DBD::Gofer ok 106 # skip take_imp_data test not supported under DBD::Gofer ok 107 # skip take_imp_data test not supported under DBD::Gofer ok 108 # skip take_imp_data test not supported under DBD::Gofer ok 109 # skip take_imp_data test not supported under DBD::Gofer ok 110 # skip take_imp_data test not supported under DBD::Gofer ok 111 # skip take_imp_data test not supported under DBD::Gofer ok 112 # skip take_imp_data test not supported under DBD::Gofer ok 113 # skip take_imp_data test not supported under DBD::Gofer ok 114 - ... our Driver has no Kids after this test ok 115 - The object isa DBI::dr ok 116 - ... our Driver (2) has no Kids before this test ok 117 - The object isa DBI::db ok 118 - The object isa DBI::st ok 119 - ... NUM_OF_PARAMS is 0 ok 120 - ... NUM_OF_FIELDS should be undef ok 121 - ... Statement is "foo bar" ok 122 - ... NAME is undefined ok 123 - ... TYPE is undefined ok 124 - ... SCALE is undefined ok 125 - ... PRECISION is undefined ok 126 - ... NULLABLE is undefined ok 127 - ... RowsInCache is undefined ok 128 - ... ParamValues is undefined ok 129 - ... NAME_uc is undefined ok 130 - ... NAME_lc is undefined ok 131 - ... NAME_hash is undefined ok 132 - ... NAME_uc_hash is undefined ok 133 - ... NAME_lc_hash is undefined ok 134 - ... $dbh can call "prepare" ok 135 - ... $dbh cannot call "nonesuch" ok 136 - ... $sth can call "execute" ok 137 - ... our Driver (2) has no Kids after this test ok t/zvg_04mods.t ............. 1..12 ok 1 - use DBI; ok 2 - use DBI::Const::GetInfo::ANSI; ok 3 - use DBI::Const::GetInfo::ODBC; ok 4 - use DBI::Const::GetInfoType; ok 5 - use DBI::Const::GetInfoReturn; ok 6 - ... we have at least one key in the GetInfoType hash ok 7 - ... the GetInfoType hash is constructed from the ANSI and ODBC hashes ok 8 - ... we have at least one key in the GetInfoReturnType hash ok 9 - ... the GetInfoReturnType hash is constructed from the ANSI and ODBC hashes ok 10 - ... we have at least one key in the GetInfoReturnValues hash ok 11 - DBI::Const::GetInfoReturn->can('Format') ok 12 - DBI::Const::GetInfoReturn->can('Explain') ok t/zvg_05concathash.t ....... 1..41 ok 1 - use DBI; ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 - should work with nul bytes in kv_sep and pair_sep ok 10 - should work with nul bytes in hash value (neat) ok 11 - should work with nul bytes in hash value (not neat) ok 12 ok 13 ok 14 ok 15 - test ok 16 - test ok 17 - Unknown sort order ok 18 - Float Hash - Not Neat lexical ok 19 - Numeric - Not Neat lexical ok 20 - Mixed Hash - Not Neat lexical ok 21 - Simple Hash - Not Neat lexical ok 22 - Float Hash - Neat lexical ok 23 - Numeric - Neat lexical ok 24 - Mixed Hash - Neat lexical ok 25 - Simple Hash - Neat lexical ok 26 - Float Hash - Not Neat guess ok 27 - Numeric - Not Neat guess ok 28 - Mixed Hash - Not Neat guess ok 29 - Simple Hash - Not Neat guess ok 30 - Float Hash - Neat guess ok 31 - Numeric - Neat guess ok 32 - Mixed Hash - Neat guess ok 33 - Simple Hash - Neat guess ok 34 - Float Hash - Not Neat numeric ok 35 - Numeric - Not Neat numeric ok 36 - Mixed Hash - Not Neat numeric ok 37 - Simple Hash - Not Neat numeric ok 38 - Float Hash - Neat numeric ok 39 - Numeric - Neat numeric ok 40 - Mixed Hash - Neat numeric ok 41 - Simple Hash - Neat numeric ok t/zvg_06attrs.t ............ 1..145 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - ... checking Warn attribute for dbh ok 4 - ... checking Active attribute for dbh ok 5 - ... checking AutoCommit attribute for dbh ok 6 - ... checking CompatMode attribute for dbh ok 7 - ... checking InactiveDestory attribute for dbh ok 8 - ... checking PrintError attribute for dbh ok 9 - ... checking PrintWarn attribute for dbh ok 10 - ... checking RaiseError attribute for dbh ok 11 - ... checking ShowErrorStatement attribute for dbh ok 12 - ... checking ChopBlanks attribute for dbh ok 13 - ... checking LongTrunkOk attribute for dbh ok 14 - ... checking TaintIn attribute for dbh ok 15 - ... checking TaintOut attribute for dbh ok 16 - ... checking Taint attribute for dbh ok 17 - ... checking Executed attribute for dbh ok 18 - ... checking ErrCount attribute for dbh ok 19 - ... checking Kids attribute for dbh ok 20 - ... checking ActiveKids attribute for dbh ok 21 - ... checking CachedKids attribute for dbh ok 22 - ... checking HandleError attribute for dbh ok 23 - ... checking Profile attribute for dbh ok 24 - ... checking Statement attribute for dbh ok 25 - ... checking RowCacheSize attribute for dbh ok 26 - ... checking ReadOnly attribute for dbh ok 27 - ... checking FetchHashKeyName attribute for dbh ok 28 ok 29 - ... checking TraceLevel attribute for dbh ok 30 - ... checking LongReadLen attribute for dbh ok 31 - should be able to FETCH_many ok 32 - should see driver-private dbh attribute value ok 33 - ... catching exception ok 34 - ... $dbh->err is undefined ok 35 - ... checking $dbh->errstr ok 36 - ... checking $dbh->state ok 37 - ... checking Executed attribute for dbh ok 38 - ... checking Executed attribute for dbh (after reset) ok 39 - ... checking ErrCount attribute for dbh (after error was generated) ok 40 - The object isa DBI::dr ok 41 - ... checking $dbh->err ok 42 - ... checking ErrCount attribute for drh ok 43 - ... checking Warn attribute for drh ok 44 - ... checking Active attribute for drh ok 45 - ... checking AutoCommit attribute for drh ok 46 - ... checking CompatMode attribute for drh ok 47 - ... checking InactiveDestory attribute for drh ok 48 - ... checking PrintError attribute for drh ok 49 - ... checking PrintWarn attribute for drh ok 50 - ... checking RaiseError attribute for drh ok 51 - ... checking ShowErrorStatement attribute for drh ok 52 - ... checking ChopBlanks attribute for drh ok 53 - ... checking LongTrunkOk attribute for drh ok 54 - ... checking TaintIn attribute for drh ok 55 - ... checking TaintOut attribute for drh ok 56 - ... checking Taint attribute for drh ok 57 - ... checking Executed attribute for drh ok 58 - ... checking Kids attribute for drh ok 59 - ... checking ActiveKids attribute for drh ok 60 - ... checking CachedKids attribute for drh ok 61 - ... checking HandleError attribute for drh ok 62 - ... checking Profile attribute for drh ok 63 - ... checking ReadOnly attribute for drh ok 64 - ... checking TraceLevel attribute for drh ok 65 - ... checking LongReadLen attribute for drh ok 66 - ... checking FetchHashKeyName attribute for drh ok 67 ok 68 - The object isa DBI::st ok 69 - ... checking Executed attribute for sth ok 70 - ... checking Executed attribute for dbh ok 71 - ... checking ErrCount attribute for sth ok 72 - ... checking exception ok 73 - ... checking $sth->errstr ok 74 - ... checking $sth->state ok 75 - ... checking Executed attribute for sth ok 76 - ... checking Exceuted attribute for dbh ok 77 - ... checking ErrCount attribute for sth ok 78 - ... checking exception ok 79 - ... checking ErrCount attribute for sth (after assignment) ok 80 - ... checking ErrCount attribute for sth (after reset) ok 81 - ... checking Warn attribute for sth ok 82 - ... checking Active attribute for sth ok 83 - ... checking CompatMode attribute for sth ok 84 - ... checking InactiveDestroy attribute for sth ok 85 - ... checking PrintError attribute for sth ok 86 - ... checking PrintWarn attribute for sth ok 87 - ... checking RaiseError attribute for sth ok 88 - ... checking ShowErrorStatement attribute for sth ok 89 - ... checking ChopBlanks attribute for sth ok 90 - ... checking LongTrunkOk attribute for sth ok 91 - ... checking TaintIn attribute for sth ok 92 - ... checking TaintOut attribute for sth ok 93 - ... checking Taint attribute for sth ok 94 - ... checking Kids attribute for sth ok 95 - ... checking ActiveKids attribute for sth ok 96 - ... checking CachedKids attribute for sth ok 97 - ... checking HandleError attribute for sth ok 98 - ... checking Profile attribute for sth ok 99 - ... checking ReadOnly attribute for sth ok 100 - ... checking TraceLevel attribute for sth ok 101 - ... checking LongReadLen attribute for sth ok 102 - ... checking FetchHashKeyName attribute for sth ok 103 - ... checking CursorName attribute for sth ok 104 - ... checking NUM_OF_FIELDS attribute for sth ok 105 - ... checking NUM_OF_PARAMS attribute for sth ok 106 - ... checking type of NAME attribute for sth ok 107 - ... checking number of elements returned ok 108 - ... checking values returned ok 109 - ... checking type of NAME_lc attribute for sth ok 110 - ... checking number of elements returned ok 111 - ... checking values returned ok 112 - ... checking type of NAME_uc attribute for sth ok 113 - ... checking number of elements returned ok 114 - ... checking values returned ok 115 - ... checking type of NAME_hash attribute for sth ok 116 - ... checking number of keys returned ok 117 - ... checking values returned ok 118 - ... checking values returned ok 119 - ... checking type of NAME_lc_hash attribute for sth ok 120 - ... checking number of keys returned ok 121 - ... checking values returned ok 122 - ... checking values returned ok 123 - ... checking type of NAME_uc_hash attribute for sth ok 124 - ... checking number of keys returned ok 125 - ... checking values returned ok 126 - ... checking values returned ok 127 - ... checking type of TYPE attribute for sth ok 128 - ... checking number of elements returned ok 129 - ... checking values returned ok 130 - ... checking type of NULLABLE attribute for sth ok 131 - ... checking number of elements returned ok 132 - ... checking values returned ok 133 - ... checking type of PRECISION attribute for sth ok 134 - ... checking number of elements returned ok 135 - ... checking values returned ok 136 - ... checking type of SCALE attribute for sth ok 137 - ... checking number of elements returned ok 138 - ... checking values returned ok 139 - ... checking type of ParamValues attribute for sth ok 140 - ... checking values returned ok 141 - ... checking Statement attribute for sth ok 142 - ... checking type of RowsInCache attribute for sth ok 143 - should see driver-private sth attribute value Checking inheritance ok 144 # skip drh->dbh->sth inheritance test skipped with DBI_AUTOPROXY ok 145 # skip drh->dbh->sth inheritance test skipped with DBI_AUTOPROXY ok t/zvg_07kids.t ............. 1..20 ok 1 - The object isa DBI::db ok 2 - ... database handle has 0 Kid(s) at start ok 3 - ... database handle has 0 ActiveKid(s) at start ok 4 - The object isa DBI::st ok 5 - ... database handle has 1 Kid(s) after $dbh->prepare ok 6 - ... database handle has 0 ActiveKid(s) after $dbh->prepare ok 7 - ... database handle has 1 Kid(s) after $sth->execute ok 8 - ... database handle has 1 ActiveKid(s) after $sth->execute ok 9 - ... database handle has 1 Kid(s) after $sth->finish ok 10 - ... database handle has 0 ActiveKid(s) after $sth->finish ok 11 - ... database handle has 0 Kid(s) after $sth is destroyed ok 12 - ... database handle has 0 ActiveKid(s) after $sth is destroyed ok 13 - The object isa DBI::dr ok 14 - ... driver handle has 1 Kid(s) ok 15 - ... driver handle has 1 ActiveKid(s) ok 16 - ... driver handle has 1 Kid(s) after $dbh->disconnect ok 17 - ... driver handle has 0 ActiveKid(s) after $dbh->disconnect ok 18 - ... lets be sure that $dbh is not undefined ok 19 - ... driver handle has 0 Kid(s) after undef $dbh ok 20 - ... driver handle has 0 ActiveKid(s) after undef $dbh ok t/zvg_08keeperr.t .......... 1..69 ok 1 - use DBI; ok 2 - ... checking error ok 3 - ... checking error Test HandleSetErr ok 4 - The object isa DBI::db ok 5 - ... $DBI::err is not defined HandleSetErr called: h=DBI::db=HASH(0x1ca482c), err=, errstr=(got info), state= ok 6 - ... $DBI::err is defined ok 7 - ... $DBI::err is an empty string ok 8 - ... $DBI::errstr is as we expected ok 9 - ... $dbh->errstr matches $DBI::errstr ok 10 - ... $warn{failed} is 0 ok 11 - ... $warn{warning} is 0 ok 12 - ... the @handlewarn array is (1, 0, 0) HandleSetErr called: h=DBI::db=HASH(0x1ca482c), err=0, errstr=(got warn), state=AA001 warn: 'DBD::Gofer::db set_err warning: (got info)\n(got warn) at ./t/08keeperr.t line 131.\n' ok 13 - ... $DBI::err is defined ok 14 - ... $DBI::err is "0" ok 15 - ... $DBI::errstr is as we expected ok 16 - ... $dbh->errstr matches $DBI::errstr ok 17 - ... $DBI::state is AA001 ok 18 - ... $warn{warning} is 1 ok 19 - ... the @handlewarn array is (1, 1, 0) HandleSetErr called: h=DBI::db=HASH(0x1ca482c), err=, errstr=(got more info), state= warn: 'DBD::Gofer::db set_err warning: (got info)\n(got warn)\n(got more info) at ./t/08keeperr.t line 146.\n' ok 20 - ... $DBI::err is defined ok 21 - ... $DBI::err is "0" ok 22 - ... $dbh->err is "0" ok 23 - ... $DBI::state is AA001 ok 24 - ... $DBI::errstr is as we expected ok 25 - ... $dbh->errstr matches $DBI::errstr ok 26 - ... $warn{warning} is 2 ok 27 - ... the @handlewarn array is (2, 1, 0) warn: 'DBD::Gofer::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error) at ./t/08keeperr.t line 167.\n' ok 28 - ... $DBI::err is defined ok 29 - ... $DBI::err is 42 ok 30 - ... $warn{warning} is 2 ok 31 - ... $dbh->errstr is as we expected ok 32 - ... $DBI::state is AA002 ok 33 - ... the @handlewarn array is (2, 1, 1) HandleSetErr called: h=DBI::db=HASH(0x1ca482c), err=, errstr=(got info), state= warn: 'DBD::Gofer::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info) at ./t/08keeperr.t line 179.\n' ok 34 - ... $DBI::err is defined ok 35 - ... $DBI::err is 42 ok 36 - ... $warn{warning} is 2 ok 37 - ... $dbh->errstr is as we expected ok 38 - ... the @handlewarn array is (3, 1, 1) HandleSetErr called: h=DBI::db=HASH(0x1ca482c), err=0, errstr=(got warn), state= warn: 'DBD::Gofer::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info)\n(got warn) at ./t/08keeperr.t line 190.\n' ok 39 - ... $DBI::err is defined ok 40 - ... $DBI::err is 42 ok 41 - ... $warn{warning} is 2 ok 42 - ... $dbh->errstr is as we expected ok 43 - ... the @handlewarn array is (3, 2, 1) warn: 'DBD::Gofer::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info)\n(got warn) [err was 42 now 4200] [state was AA002 now AA003]\n(got new error) at ./t/08keeperr.t line 201.\n' ok 44 - ... $DBI::err is defined ok 45 - ... $DBI::err is 4200 ok 46 - ... $warn{warning} is 2 ok 47 - ... $dbh->errstr is as we expected ok 48 - ... the @handlewarn array is (3, 2, 2) ok 49 - ... $dbh->errstr is defined ok 50 - ... $dbh->err is defined ok 51 - ... $dbh->state is an empty string warn: 'DBD::Gofer::db set_err failed: foo at ./t/08keeperr.t line 226.\n' ok 52 - ... only returned one value ok 53 - ... the first value is undefined warn: 'DBD::Gofer::db set_err failed: foo [err was 1 now 2]\nbar at ./t/08keeperr.t line 230.\n' ok 54 - ... $dbh->set_err returned undefiend warn: 'DBD::Gofer::db set_err failed: foo [err was 1 now 2]\nbar [err was 2 now 3]\nbaz at ./t/08keeperr.t line 231.\n' ok 55 - ... $dbh->set_err returned undefiend HandleSetErr called: h=DBI::db=HASH(0x1ca482c), err=0, errstr=warn, state= warn: 'DBD::Gofer::db set_err failed: foo [err was 1 now 2]\nbar [err was 2 now 3]\nbaz\nwarn at ./t/08keeperr.t line 232.\n' ok 56 - ... $dbh->set_err returned undefiend ok 57 - ... $dbh->errstr is as we expected ok 58 - ... $warn{failed} is 4 ok 59 - ... the @handlewarn array is (0, 1, 3) warn: 'DBD::Gofer::db method failed: foo at ./t/08keeperr.t line 242.\n' ok 60 - ... only returned one value ok 61 - ... the first value is undefined warn: 'DBD::Gofer::db method failed: foo at ./t/08keeperr.t line 246.\n' ok 62 - ... only returned one value ok 63 - ... the first value is "42" warn: 'DBD::Gofer::db method failed: foo at ./t/08keeperr.t line 250.\n' ok 64 - ... returned no values HandleSetErr called: h=DBI::db=HASH(0x1ca482c), err=, errstr=info, state=override warn: 'DBD::Gofer::db set_err failed: errstr99 at ./t/08keeperr.t line 257.\n' ok 65 - ... only returned one value ok 66 - ... the first value is undefined ok 67 - ... $dbh->err is 99 ok 68 - ... $dbh->errstr is as we expected ok 69 - ... $dbh->state is as we expected ok t/zvg_09trace.t ............ 1..67 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - trace file size = 12073 ok 4 - ... checking TraceLevel attribute ok 5 - ... trace file successfully created parse_trace_flag SQL ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 parse_trace_flag foo ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 parse_trace_flag bar ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok 28 ok 29 parse_trace_flag baz ok 30 ok 31 ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 parse_trace_flag boo ok 38 ok 39 ok 40 ok 41 ok 42 ok 43 ok 44 ok 45 parse_trace_flag bop ok 46 ok 47 ok 48 ok 49 ok 50 ok 51 ok 52 ok 53 parse_trace_flag SQL foo bar baz boo bop ok 54 - ... ok 55 - ... inherit ok 56 - The object isa DBI::st ok 57 ok 58 ok 59 test unknown parse_trace_flag ok 60 ok 61 caught warn: DBI::db=HASH(0x1ce344c)->parse_trace_flags(nonesuch) ignored unknown trace flags: 'nonesuch' at C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\blib\lib/DBI/Gofer/Execute.pm line 329 ok 62 ok 63 caught warn: DBI::db=HASH(0x1a5cec4)->parse_trace_flags(nonesuch|SQL|nonesuch2) ignored unknown trace flags: 'nonesuch' 'nonesuch2' at C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\blib\lib/DBI/Gofer/Execute.pm line 329 ok 64 ok 65 ok 66 ok 67 ok t/zvg_10examp.t ............ 1..210 ok 1 - connect should fail ok 2 - ... we should have an exception here ok 3 - ... $dbh2 should not be defined ok 4 ok 5 ok 6 - ... these 2 handles are cached, so they are the same ok 7 ok 8 - ... this handle was created with different parameters, so it is not the same ok 9 ok 10 - Executed should be true ok 11 ok 12 - should return same handle ok 13 - Executed should be false because reset by connect attributes ok 14 - The object isa DBI::dr ok 15 - ... these are our cached kids ok 16 - ... we have emptied out cache ok 17 ok 18 - ... PrintError should be 0 ok 19 - ... FetchHashKey is NAME ok 20 - ... checking the example driver_path others ok 21 - DBI commit: invalid number of arguments: got handle + 1, expected handle + between 0 and 0 # Usage: $h->commit() at ./t/10examp.t line 87. # ok 22 - ping should return true ok 23 - prepare should fail ok 24 - sth->err should be true ok 25 - DBI::err should be true ok 26 - $DBI::err should match $dbh->err ok 27 - $DBI::errstr should contain error string ok 28 - $DBI::errstr should match $dbh->errstr ok 29 ok 30 ok 31 ok 32 ok 33 - DBI::db=HASH(0x1cc40f4) ne DBI::db=HASH(0x1cc40f4) ok 34 ok 35 ok 36 ok 37 ok 38 ok 39 ok 40 ok 41 ok 42 ok 43 ok 44 ok 45 ok 46 ok 47 ok 48 ok 49 ok 50 ok 51 ok 52 ok 53 - errstr should contain error message ok 54 ok 55 - errstr should contain error message ok 56 ok 57 ok 58 - errstr should contain error message ok 59 ok 60 - errstr should contain error message ok 61 ok 62 ok 63 ok 64 ok 65 ok 66 ok 67 ok 68 fetchrow_hashref('NAME_uc') ok 69 ok 70 ok 71 ok 72 ok 73 fetchrow_hashref('ParamValues') ok 74 ok 75 FetchHashKeyName ok 76 ok 77 ok 78 ok 79 ok 80 ok 81 fetchall_arrayref ok 82 ok 83 ok 84 ok 85 ok 86 ok 87 fetchall_arrayref array slice ok 88 ok 89 ok 90 ok 91 fetchall_arrayref hash slice ok 92 ok 93 ok 94 ok 95 fetchall_arrayref hash ok 96 ok 97 ok 98 ok 99 - '16895 0 .' ne '16895 0 .' rows() ok 100 - row count 47 ok 101 - 47 vs 47 ok 102 - 47 vs 47 fetchall_arrayref array slice and max rows ok 103 ok 104 ok 105 selectrow_array ok 106 ok 107 selectrow_hashref ok 108 ok 109 ok 110 ok 111 selectall_arrayref ok 112 ok 113 ok 114 ok 115 selectall_arrayref Slice array slice ok 116 ok 117 ok 118 - ". 16895" eq ". 16895" ok 119 selectall_arrayref Columns array slice ok 120 ok 121 ok 122 - ". 16895" eq ". 16895" ok 123 selectall_arrayref hash slice ok 124 ok 125 ok 126 ok 127 ok 128 ok 129 ok 130 selectall_hashref ok 131 - selectall_hashref result ok 132 - selectall_hashref HASH: HASH ok 133 ok 134 - 0 eq 0 selectall_hashref by column number ok 135 ok 136 - 0 eq 0 selectcol_arrayref ok 137 ok 138 ok 139 selectcol_arrayref column slice ok 140 ok 141 ok 142 ok 143 others... ok 144 ok 145 RaiseError & PrintError & ShowErrorStatement ok 146 ok 147 ok 148 ok 149 ok 150 ok 151 ok 152 ok 153 ok 154 ok 155 ok 156 ok 157 ok 158 ok 159 ok 160 ok 161 - DBD::Gofer::st execute failed: 2 values bound when 1 expected; DBD::ExampleP::st execute failed at blib/lib/DBI/Gofer/Execute.pm line 451. [for Statement "select mode from ?" with ParamValues: 1='first', 2='second'] at ./t/10examp.t line 366. # ok 162 - DBD::Gofer::st execute failed: 2 values bound when 1 expected; DBD::ExampleP::st execute failed at blib/lib/DBI/Gofer/Execute.pm line 451. [for Statement "select mode from ?" with ParamValues: 1='first', 2='second'] at ./t/10examp.t line 366. # ok 163 ok 164 ok 165 ok 166 ok 167 ok 168 HandleError ok 169 ok 170 HandleError -> die ok 171 ok 172 - HandleError: DBD::Gofer::db prepare failed: Unknown field names: unknown_field_name2; DBD::ExampleP::db prepare failed at blib/lib/DBI/Gofer/Execute.pm line 443. [h=DBI::db=HASH(0x1cc40f4), rv=undef, \#=3] at ./t/10examp.t line 395. # HandleError -> 0 -> RaiseError HandleError: DBD::Gofer::db prepare failed: Unknown field names: unknown_field_name2; DBD::ExampleP::db prepare failed at blib/lib/DBI/Gofer/Execute.pm line 443. [h=DBI::db=HASH(0x1cc40f4), rv=undef, #=3] ok 173 ok 174 - DBD::Gofer::db prepare failed: Unknown field names: unknown_field_name2; DBD::ExampleP::db prepare failed at blib/lib/DBI/Gofer/Execute.pm line 443. at ./t/10examp.t line 416. # HandleError -> 1 -> return (original)undef HandleError: DBD::Gofer::db prepare failed: Unknown field names: unknown_field_name2; DBD::ExampleP::db prepare failed at blib/lib/DBI/Gofer/Execute.pm line 443. [h=DBI::db=HASH(0x1cc40f4), rv=undef, #=3] ok 175 - ok 176 HandleError -> 2 -> return (modified)42 HandleError: DBD::Gofer::db prepare failed: Unknown field names: unknown_field_name2; DBD::ExampleP::db prepare failed at blib/lib/DBI/Gofer/Execute.pm line 443. [h=DBI::db=HASH(0x1cc40f4), rv=undef, #=3] ok 177 - ok 178 ok 179 ok 180 - The object isa DBI::st ok 181 ok 182 ok 183 ok 184 - Remove dumpcsr.tst ok 185 - Actually gone table_info ok 186 Local C:/cpanfly-5.12/var/cpan/build/DBI-1.613-Duq_2f subdirs: lib ex .. . blib t ok 187 ok 188 ok 189 tables ok 190 - Table count mismatch5 vs 5 ok 191 - "schema"."table" ne "schema"."table" ok 192 - "sch-ema"."table" ne "sch-ema"."table" ok 193 - "schema"."ta-ble" ne "schema"."ta-ble" ok 194 - "sch ema"."table" ne "sch ema"."table" ok 195 - "schema"."ta ble" ne "schema"."ta ble" Testing the fake directories (0). ok 196 ok 197 ok 198 - 0 rows instead of 0 ok 199 Testing the fake directories (100). ok 200 ok 201 ok 202 - 100 rows instead of 100 ok 203 - 'file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' ne 'file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' Testing the fake directories (200). ok 204 ok 205 ok 206 - 200 rows instead of 200 ok 207 - 'file200 file199 file198 file197 file196 file195 file194 file193 file192 file191 file190 file189 file188 file187 file186 file185 file184 file183 file182 file181 file180 file179 file178 file177 file176 file175 file174 file173 file172 file171 file170 file169 file168 file167 file166 file165 file164 file163 file162 file161 file160 file159 file158 file157 file156 file155 file154 file153 file152 file151 file150 file149 file148 file147 file146 file145 file144 file143 file142 file141 file140 file139 file138 file137 file136 file135 file134 file133 file132 file131 file130 file129 file128 file127 file126 file125 file124 file123 file122 file121 file120 file119 file118 file117 file116 file115 file114 file113 file112 file111 file110 file109 file108 file107 file106 file105 file104 file103 file102 file101 file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' ne 'file200 file199 file198 file197 file196 file195 file194 file193 file192 file191 file190 file189 file188 file187 file186 file185 file184 file183 file182 file181 file180 file179 file178 file177 file176 file175 file174 file173 file172 file171 file170 file169 file168 file167 file166 file165 file164 file163 file162 file161 file160 file159 file158 file157 file156 file155 file154 file153 file152 file151 file150 file149 file148 file147 file146 file145 file144 file143 file142 file141 file140 file139 file138 file137 file136 file135 file134 file133 file132 file131 file130 file129 file128 file127 file126 file125 file124 file123 file122 file121 file120 file119 file118 file117 file116 file115 file114 file113 file112 file111 file110 file109 file108 file107 file106 file105 file104 file103 file102 file101 file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' Testing $dbh->func(). ok 208 ok 209 ok 210 - ping should return false after disconnect ok t/zvg_11fetch.t ............ 1..24 # fetchall_hashref(C1) ok 1 ok 2 ok 3 ok 4 # fetchall_hashref(C2) ok 5 ok 6 ok 7 ok 8 # fetchall_hashref([C2]) ok 9 ok 10 ok 11 ok 12 # fetchall_hashref([C1 C2]) ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok t/zvg_12quote.t ............ 1..10 ok 1 - ... quoting strings with embedded single quotes ok 2 - ... quoting number as SQL_VARCHAR ok 3 - ... quoting number as SQL_INTEGER ok 4 - ... quoting undef as NULL ok 5 - ... properly quotes foo as "foo" ok 6 - ... properly quotes f"o as "f""o" ok 7 - ... properly quotes foo, bar as "foo"."bar" ok 8 - ... properly quotes undef, undef, bar as "bar" ok 9 - ... properly quotes foo, undef, bar as "foo"."bar" ok 10 # skip Can't test alternate quote_identifier logic with DBI_AUTOPROXY ok t/zvg_13taint.t ............ skipped: Taint attribute tests not functional with DBI_AUTOPROXY t/zvg_14utf8.t ............. 1..16 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok t/zvg_15array.t ............ 1..55 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - The object isa DBI::st ok 4 - ... we should have 0 rows ok 5 - ... execute_array should return false ok 6 - execute_array failure with RaiseError should have died ok 7 ok 8 - ... we should have 2 rows ok 9 - ... we should have 3 tuple_status ok 10 - ... our rows are as expected ok 11 - ... our tuple_status is as expected ok 12 - ... bind_param_array should return true ok 13 - ... execute_array should return true ok 14 - ... we should have 3 rows ok 15 - ... we should have 3 tuple_status ok 16 - ... our rows are as expected ok 17 - ... our tuple_status is as expected ok 18 - ... execute_array should return true ok 19 - ... we should have executed 3 rows ok 20 - ... we should have affected 3 rows ok 21 - ... execute_array should return true ok 22 - ... execute_array should return 0 (but true) ok 23 - ... we should have 0 rows ok 24 - ... we should have 0 tuple_status ok 25 - ... execute_array should return 1 ok 26 - ... we should have 1 rows ok 27 - ... our rows are as expected ok 28 - ... we should have 1 tuple_status ok 29 - ... our tuple_status is as expected ok 30 - ... execute_array should return 0 ok 31 - ... we should have 0 rows ok 32 - ... we should have 0 tuple_status ok 33 - The object isa DBI::st ok 34 - ... execute_array should return true ok 35 - ... execute_array should return 0 (but true) ok 36 - ... we should have 0 rows ok 37 - ... execute_array should return true ok 38 - ... we should have 2 rows ok 39 - ... we should have 2 tuple_status ok 40 - ... rows should match ok 41 - ... tuple_status should match ok 42 - The object isa DBI::st ok 43 - ... execute_array should return true ok 44 - ... we should have 3 rows ok 45 - ... we should have 3 tuple_status ok 46 - ... rows should match ok 47 - ... tuple status should match ok 48 - ... execute_array should return undef ok 49 - ... errstr is as expected ok 50 - ... execute_array should return undef ok 51 - ... errstr is as expected ok 52 - ... execute_array should return undef ok 53 - ... errstr is as expected ok 54 - ... bind_param_array should return undef ok 55 - ... errstr is as expected ok t/zvg_19fhtrace.t .......... 1..27 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - ... checking TraceLevel attribute ok 4 - ... regular fh: trace file successfully created ok 5 - ... regular fh: filehandle successfully set ok 6 - ... regular fh: trace_msg <- trace= ( 2 ) [1 items] at 19fhtrace.t line 196 ok 7 - ... regular fh: file successfully changed ok 8 - ... regular fh: trace_msg after changing trace output Next logline -> trace for DBD::Gofer::db (DBI::db=HASH(0x1b527bc)~0x1c9cc8c 0) thr#234014 <- trace= ( 2 ) [1 items] at 19fhtrace.t line 209 ok 9 - Tracefile removed ok 10 - Tracefile FOO opened ok 11 - Tracefile created ok 12 - Regression test ok 13 - Traced message ok 14 - Regression test ok 15 - ... layered fh: file is layered: *** Test our layer # # ok 16 - ... layered fh: filehandle successfully set ok 17 - ... layered fh: trace_msg: Layered logline # # <- trace(1, 'STDOUT')= ( 1 ) [1 items] at 19fhtrace.t line 251 ok 18 - ... layered fh: close doesn't close: Layered logline # # ok 19 - ... layered fh: trace_msg after change trace output: Layered logline # # ok 20 - ... scalar trace: file is layered: *** Test our layer # # ok 21 - ... scalar trace: filehandle successfully set ok 22 - ... scalar trace: *** Test our layer # <- trace(1, GLOB(0x1a994f4))= ( 1 ) [1 items] at 19fhtrace.t line 267 # Layered logline # # Next logline <- trace(1, 'STDOUT')= ( 1 ) [1 items] at 19fhtrace.t line 273 ok 23 - ... scalar trace: close doesn't close: *** Test our layer # <- trace(1, GLOB(0x1a994f4))= ( 1 ) [1 items] at 19fhtrace.t line 267 # Layered logline # # ok 24 - ... scalar trace: after change trace output: *** Test our layer # <- trace(1, GLOB(0x1a994f4))= ( 1 ) [1 items] at 19fhtrace.t line 267 # Layered logline # # Next logline -----> execute_request <- connect('dummy', '', ...)= ( DBI::db=HASH(0x1cec73c) ) [1 items] at DBI.pm line 662 <- STORE('RaiseError', 1)= ( 1 ) [1 items] at DBI.pm line 714 <- STORE('PrintError', undef)= ( 1 ) [1 items] at DBI.pm line 714 <- STORE('AutoCommit', 1)= ( 1 ) [1 items] at DBI.pm line 714 <- STORE('PrintWarn', undef)= ( 1 ) [1 items] at DBI.pm line 717 <- FETCH('PrintWarn')= ( '' ) [1 items] at DBI.pm line 717 <- STORE('Username', '')= ( 1 ) [1 items] at DBI.pm line 717 <> FETCH('Username')= ( '' ) [1 items] ('Username' from cache) at DBI.pm line 717 <- STORE('dbi_go_execute_unique', 'DBI::Gofer::Execute|3816|')= ( 1 ) [1 items] at DBI.pm line 717 <> FETCH('dbi_go_execute_unique')= ( 'DBI::Gofer::Execute|3816|' ) [1 items] ('dbi_go_execute_unique' from cache) at DBI.pm line 717 <- STORE('Executed', 0)= ( 1 ) [1 items] at DBI.pm line 717 <- FETCH('Executed')= ( '' ) [1 items] at DBI.pm line 717 <- connected('dbi:ExampleP:dummy', undef, ...)= ( undef ) [1 items] at DBI.pm line 723 <- STORE('dbi_connect_closure', CODE(0x1cec46c))= ( 1 ) [1 items] at DBI.pm line 732 <- FETCH('CachedKids')= ( undef ) [1 items] at Execute.pm line 221 <- $DBI::err= undef <- $DBI::errstr= undef <- $DBI::state= '' <- FETCH('Executed')= ( '' ) [1 items] at Execute.pm line 261 <- private_attribute_info= ( HASH(0x1cec97c)1keys ) [1 items] at Execute.pm line 413 _std_response_attribute_names for ExampleP dbh: ChopBlanks LongReadLen LongTruncOk ReadOnly Name example_driver_path <- FETCH_many('ChopBlanks', 'LongReadLen', ...)= ( '' 80 '' undef 'dummy' 'C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\blib\lib/DBD/ExampleP.pm' ) [6 items] at Execute.pm line 372 <> FETCH('ImplementorClass')= ( 'DBD::ExampleP::db' ) [1 items] ('ImplementorClass' from cache) at Execute.pm line 561 <- set_err(undef, undef)= ( undef ) [1 items] at Execute.pm line 234 <- FETCH('Active')= ( 1 ) [1 items] at ExampleP.pm line 259 <- disconnect= ( 1 ) [1 items] at ExampleP.pm line 259 <- DESTROY(DBI::db=HASH(1cec6ec))= ( undef ) [1 items] at Execute.pm line 312 ok 25 - ... logger: trace_msg # <----- execute_request gofer receive_response DBI::db=HASH(0x1c9cc8c) trace level set to 0x0/1 (DBI @ 0x100/0) in DBI 1.613-ithread (pid 3816) ok 26 - ... logger: close doesn't close # ok 27 - ... logger: trace_msg after change trace output # Next logline <- disconnect= ( 1 ) [1 items] at 19fhtrace.t line 157 <- DESTROY(DBI::db=HASH(1c9cc8c))= ( undef ) [1 items] ok t/zvg_20meta.t ............. 1..8 ok 1 - use DBI; ok 2 - use DBI::DBD::Metadata; ok 3 - The object isa DBI::db ok 4 ok 5 ok 6 ok 7 ok 8 ok t/zvg_30subclass.t ......... 1..36 ok 1 - use DBI; ok 2 - The object isa MyDBI::db ok 3 ok 4 - The object isa MyDBI::db ok 5 ok 6 ok 7 - The object isa MyDBI::st ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 - The reference isa ARRAY ok 16 ok 17 ok 18 ok 19 ok 20 - Clone A isa MyDBI::db ok 21 ok 22 ok 23 - Clone B isa MyDBI::db ok 24 ok 25 ok 26 - The object isa MyDBI::db ok 27 ok 28 - installed method isa ARRAY ok 29 ok 30 ok 31 ok 32 ok 33 - Failed connect \#1 ok 34 ok 35 - Failed connect \#2 ok 36 fetch 4 prepare 1 ok t/zvg_35thrclone.t ......... 1..20 ok 1 - use DBI; ok 2 - ... assignment of neat_maxlen was successful ok 3 - The object isa DBI::db ok 4 - ... DBI::neat_maxlen still holding its value ok 5 - The object isa DBI::db ok 6 - ... new $dbh is not the same instance as $dbh_parent ok 7 - ... the Driver has one Kid ok 8 - ... DBI::neat_maxlen still holding its value ok 9 - The object isa DBI::db ok 10 - ... new $dbh is not the same instance as $dbh_parent ok 11 - ... the Driver has one Kid ok 12 - ... DBI::neat_maxlen still holding its value ok 13 - The object isa DBI::db ok 14 - ... new $dbh is not the same instance as $dbh_parent ok 15 - ... the Driver has one Kid ok 16 - ... DBI::neat_maxlen still holding its value ok 17 - The object isa DBI::db ok 18 - ... new $dbh is not the same instance as $dbh_parent ok 19 - ... the Driver has one Kid ok 20 - ... all tests have passed ok t/zvg_40profile.t .......... 1..60 Test enabling the profile ok 1 ok 2 ok 3 ok 4 ok 5 bless( { 'Path' => [ '!MethodName', '!Caller2' ], 'Data' => { 'do' => { '40profile.t line 80 via zvg_40profile.t line 3' => [ 1, '0', '0', '0', '0', '1280721671.935', '1280721671.935' ] } } }, 'DBI::Profile' ) ok 6 ok 7 ok 8 ok 9 ok 10 dbi_profile bless( { 'Path' => [ '!Statement', '!MethodName' ], 'Data' => { '' => { 'connected' => [ 1, '0', '0', '0', '0', '1280721671.95062', '1280721671.95062' ], 'FETCH' => [ 1, '0', '0', '0', '0', '1280721671.95062', '1280721671.95062' ], 'STORE' => [ 5, '0', '0', '0', '0', '1280721671.95062', '1280721671.95062' ] }, 'Hi mom' => { 'my_method_name' => [ 1, '1', '1', '1', '1', '1280721671.95062', '1280721671.95062' ] } } }, 'DBI::Profile' ) ok 11 ok 12 ok 13 ok 14 - should return ref to leaf node ok 15 - should return ref to leaf node ok 16 - should return ref to correct leaf node 1 1 1 1 1 1280721671.95062 1280721671.95062 ok 17 2 3 1 1 2 1280721671.95062 1280721671.95062 ok 18 Test collected profile data bless( { 'Path' => [ '!Statement' ], 'Data' => { 'set foo=1' => [ 1, '0', '0', '0', '0', '1280721672.26312', '1280721672.26312' ], '' => [ 7, '0', '0', '0', '0', '1280721671.95062', '1280721671.95062' ], 'select mode,size,name from ?' => [ 2501, '0.296875', '0', '0', '0.015625', '1280721671.95062', '1280721672.26312' ] } }, 'DBI::Profile' ) ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok 28 ok 29 ok 30 ok 31 ok 32 ok 33 ok 34 Test profile format Profile Output DBI::Profile: 0.296875s 95.00% (2509 calls) zvg_40profile.t @ 2010-08-01 21:01:12 '' => 0.000000s / 7 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'select mode,size,name from ?' => 0.296875s / 2501 = 0.000119s avg (first 0.000000s, min 0.000000s, max 0.015625s) 'set foo=1' => 0.000000s ok 35 ok 36 ok 37 ok 38 ok 39 ok 40 ok 41 - should have 9 nodes ok 42 testing '!File', '!Caller' and their variants in Path ok 43 testing '!Time' and variants in Path ok 44 - !Time and !Time~1000000 should work testing &norm_std_n3 in Path ok 45 ok 46 - &norm_std_n3 should normalize statement testing code ref in Path ok 47 ok 48 ok 49 - should be vetoed ok 50 - $_ should contain statement ok 51 - should have @_ as keys ok 52 - should be able to filter by method ok 53 - output should go to log file testing as_text ok 54 ok 55 ok 56 DBI::Profile: 2.000000s 200.00% (203 calls) zvg_40profile.t @ 2010-08-01 21:01:13 'A' => 'Z' => 1.000000s / 101 = 0.009901s avg (first 2.000000s, min 3.000000s, max 4.000000s) 'B' => 'Y' => 1.000000s / 102 = 0.009804s avg (first 2.000000s, min 3.000000s, max 4.000000s) dbi_profile_merge_nodes ok 57 ok 58 ok 59 ok 60 DBI::Profile: 0.000000s 0.00% (12 calls) zvg_40profile.t @ 2010-08-01 21:01:13 'foo' => 'DESTROY' => 'baz' => 0.000000s 'FETCH' => 'baz' => 0.000000s 'STORE' => 'baz' => 0.000000s / 5 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'connected' => 'baz' => 0.000000s 'execute' => 'baz' => 0.000000s 'fetchrow_hashref' => 'baz' => 0.000000s 'finish' => 'baz' => 0.000000s 'prepare' => 'baz' => 0.000000s ok t/zvg_41prof_dump.t ........ 1..15 ok 1 - use DBI; ok 2 - use DBI::ProfileDumper; ok 3 - The object isa DBI::db ok 4 - The object isa DBI::ProfileDumper ok 5 - The reference isa HASH ok 6 - The reference isa ARRAY ok 7 - The object isa DBI::st ok 8 ok 9 - Profile is on disk and nonzero size DBI::ProfileDumper 2.013956 Path = [ ] Program = t/zvg_41prof_dump.t + 1 = 7 0 0 0 0 1280721673.20062 1280721673.20062 + 1 select mode,size,name from ? = 2 0.015625 0.015625 0 0.015625 1280721673.20062 1280721673.21625 + 1 = 1 0 0 0 0 1280721673.21625 1280721673.21625 + 1 select mode,size,name from ? = 50 0 0 0 0 1280721673.21625 1280721673.21625 ok 10 - Found a version number ok 11 - Version numbers match in DBI::ProfileDumper 2.013956 # ok 12 - Found the Path ok 13 - Found the Program ok 14 ok 15 # skip developer-only test ok t/zvg_42prof_data.t ........ 1..31 ok 1 - use DBI::ProfileDumper; ok 2 - use DBI::ProfileData; ok 3 - Created connection isa DBI::db ok 4 - Profile written to disk, non-zero size ok 5 - The object isa DBI::ProfileData ok 6 - At least 3 profile data items ok 7 ok 8 ok 9 ok 10 ok 11 - The object isa DBI::ProfileData ok 12 ok 13 ok 14 - The object isa DBI::ProfileData ok 15 ok 16 ok 17 SQL: set dummy=N SQL: SQL: select mode,size,name from ? ok 18 ok 19 ok 20 ok 21 - Created connection isa DBI::db ok 22 - The object isa DBI::st ok 23 - The object isa DBI::st ok 24 - The object isa DBI::st ok 25 - The object isa DBI::st ok 26 - The object isa DBI::st ok 27 - The object isa DBI::st ok 28 - The object isa DBI::ProfileData ok 29 - file should be deleted when DeleteFiles set ok 30 ok 31 ok t/zvg_43prof_env.t ......... 1..11 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 - $h->{Profile} should be shared ok 8 ok 9 ok 10 ok 11 DBI::Profile: 0.031250s (130 calls) zvg_43prof_env.t @ 2010-08-01 21:01:15 '' => 'DESTROY' => 0.000000s / 3 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'FETCH' => 0.000000s / 38 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'FETCH_many' => 0.000000s / 4 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'STORE' => 0.000000s / 42 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'connect' => 0.031250s / 6 = 0.005208s avg (first 0.000000s, min 0.000000s, max 0.031250s) 'connected' => 0.000000s / 6 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'disconnect' => 0.000000s / 4 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'disconnect_all' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'ping' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'private_attribute_info' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'set_err' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'trace_msg' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'set dummy=1' => 'DESTROY' => 0.000000s 'FETCH' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'do' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'private_attribute_info' => 0.000000s 'set_err' => 0.000000s 'trace_msg' => 0.000000s 'set dummy=2' => 'DESTROY' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'FETCH' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'do' => 0.000000s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000000s) 'private_attribute_info' => 0.000000s 'set_err' => 0.000000s 'trace_msg' => 0.000000s ok t/zvg_49dbd_file.t ......... ok 1 - use DBI; ok 2 - use DBD::File; ok 3 - Connect clean ok 4 - Can connect to DBD::File driver # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 5 - f_versions ok 6 - Connect with DBI attributes ok 7 - Connect with driver attributes in DSN ok 8 - Connect with driver attributes in hash ok 9 - Prepare select from non-existing file ok 10 - Cannot open non-existing file # C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\t_sbdgf_53442gz.txt ok 11 - drop manually created table db_2892_2 (first file) ok 12 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2892_2.txt removed ok 13 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2892_2 exists ok 14 - drop manually created table db_2892_2 (second file) ok 15 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2892_2 removed ok 16 - Create table db_2892_ ok 17 - Test table exists ok 18 - get single table meta data ok 19 - get multiple meta data ok 20 - encoding shows in layer ok 21 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 22 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 23 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 24 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 25 - Prepare select * from db_2892_ ok 26 # skip method intrusion didn't work with proxying ok 27 - Prepare select * from DB_2892_ ok 28 # skip method intrusion didn't work with proxying ok 29 - table drop ok 30 - Test table removed 1..30 ok t/zvg_50dbm_simple.t ....... Using DBM modules: SDBM_File Using MLDBM serializers: Data::Dumper Storable FreezeThaw YAML JSON Test count: 1 x ( ( 5 + 18 ) + 5 x ( 5 + 21 ) ) = 153 1..153 --- Using SDBM_File () --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 1 - dbm_versions ok 2 - The object isa DBI::db ok 3 # skip Can't set attributes after connect using DBD::Gofer ok 4 # skip Can't set attributes after connect using DBD::Gofer ok 5 ok 6 - DROP TABLE IF EXISTS SDBM_File_fruit ok 7 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10)) ok 8 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' ) ok 9 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change' ) ok 10 - INSERT INTO SDBM_File_fruit VALUES (3, NULL ) ok 11 - INSERT INTO SDBM_File_fruit VALUES (4,'to delete' ) ok 12 - INSERT INTO SDBM_File_fruit VALUES (?,?) ok 13 - INSERT INTO SDBM_File_fruit VALUES (6,'to delete' ) ok 14 - INSERT INTO SDBM_File_fruit VALUES (7,'to_delete' ) ok 15 - DELETE FROM SDBM_File_fruit WHERE dVal='to delete' not ok 16 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 17 - UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2 not ok 18 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 19 - DELETE FROM SDBM_File_fruit WHERE dKey=7 not ok 20 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=7) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=7) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 21 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 22 - SELECT results ok 23 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Data::Dumper) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 24 - dbm_versions ok 25 - The object isa DBI::db ok 26 # skip Can't set attributes after connect using DBD::Gofer ok 27 # skip Can't set attributes after connect using DBD::Gofer ok 28 ok 29 - DROP TABLE IF EXISTS SDBM_File_fruit ok 30 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 31 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 32 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 33 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 34 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 35 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 36 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 37 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 38 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 39 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 40 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 41 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 42 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 43 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 44 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 45 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 46 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 47 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 48 - SELECT results ok 49 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Storable) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 50 - dbm_versions ok 51 - The object isa DBI::db ok 52 # skip Can't set attributes after connect using DBD::Gofer ok 53 # skip Can't set attributes after connect using DBD::Gofer ok 54 ok 55 - DROP TABLE IF EXISTS SDBM_File_fruit ok 56 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 57 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 58 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 59 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 60 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 61 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 62 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 63 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 64 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 65 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 66 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 67 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 68 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 69 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 70 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 71 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 72 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 73 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 74 - SELECT results ok 75 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (FreezeThaw) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 76 - dbm_versions ok 77 - The object isa DBI::db ok 78 # skip Can't set attributes after connect using DBD::Gofer ok 79 # skip Can't set attributes after connect using DBD::Gofer ok 80 ok 81 - DROP TABLE IF EXISTS SDBM_File_fruit ok 82 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 83 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 84 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 85 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 86 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 87 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 88 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 89 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 90 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 91 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 92 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 93 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 94 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 95 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 96 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 97 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 98 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 99 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 100 - SELECT results ok 101 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (YAML) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 102 - dbm_versions ok 103 - The object isa DBI::db ok 104 # skip Can't set attributes after connect using DBD::Gofer ok 105 # skip Can't set attributes after connect using DBD::Gofer ok 106 ok 107 - DROP TABLE IF EXISTS SDBM_File_fruit ok 108 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 109 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 110 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 111 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 112 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 113 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 114 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 115 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 116 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 117 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 118 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 119 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 120 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 121 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 122 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 123 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 124 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 125 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 126 - SELECT results ok 127 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (JSON) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 128 - dbm_versions ok 129 - The object isa DBI::db ok 130 # skip Can't set attributes after connect using DBD::Gofer ok 131 # skip Can't set attributes after connect using DBD::Gofer ok 132 ok 133 - DROP TABLE IF EXISTS SDBM_File_fruit ok 134 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 135 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 136 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 137 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 138 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 139 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 140 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 141 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 142 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 143 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 144 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 145 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 146 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 147 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 148 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 149 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 150 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 151 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 152 - SELECT results ok 153 - DROP TABLE SDBM_File_fruit ok t/zvg_51dbm_file.t ......... ok 1 ok 2 - FRED.dir exists ok 3 - fred.dir exists ok 4 ok 5 ok 6 ok 7 1..7 ok t/zvg_52dbm_complex.t ...... skipped: Not running with SQL::Statement t/zvg_60preparse.t ......... 1..39 ok 1 - The object isa DBI::db ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok 28 ok 29 ok 30 ok 31 ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 ok 38 ok 39 ok t/zvg_65transact.t ......... skipped: Transactions not supported by DBD::Gofer t/zvg_70callbacks.t ........ 1..63 ok 1 - Create dbh ok 2 - Callbacks initially undef ok 3 ok 4 - Callbacks can be set to a hash ref ok 5 - Callbacks set to same hash ref ok 6 - Callbacks set to undef again ok 7 ok 8 ok 9 ok 10 - $_ holds method name ok 11 - @_ holds 1 values ok 12 - first is $dbh ok 13 ok 14 ok 15 - $_ not altered by callback ok 16 - $_ holds method name ok 17 - @_ holds 1 values ok 18 - first is $dbh ok 19 ok 20 ok 21 ok 22 - fallback callback ok 23 - @_ holds 4 values ok 24 - first is $dbh ok 25 ok 26 ok 27 ok 28 ok 29 - quote_identifier callback caused fatal error ok 30 - param modified by callback - not recommended! ok 31 ok 32 - You can't disconnect that easily! # ok 33 ok 34 ok 35 ok 36 - should return a single value in list context ok 37 ok 38 ok 39 ok 40 ok 41 ok 42 - intercepted commit should return undef ok 43 ok 44 ok 45 ok 46 - Create handle with callbacks ok 47 - no callback for plain connect ok 48 - Create handle with callbacks ok 49 - connect_cached.new called ok 50 - connect_cached.reused not yet called ok 51 - Create handle with callbacks ok 52 - connect_cached.reused called ok 53 - connect_cached.new not called again ok 54 - Create handle with ChildCallbacks ok 55 - Ping ok 56 - Ping callback should have been called ok 57 - Prepare a statement handle (child) ok 58 - child should have Callbacks ok 59 - child Callbacks should be ChildCallbacks of parent ok 60 - Execute ok 61 - Execute callback should have been called ok 62 - Fetch ok 63 - Fetch callback should have been called ok t/zvg_72childhandles.t ..... 1..16 ok 1 ok 2 ok 3 ok 4 ok 5 - All handles should be undef now ok 6 - ChildHandles should be an array-ref if wekref is available ok 7 drh DBI::dr=HASH(0x1b26c74) dbh DBI::db=HASH(0x1c6cab4) sth DBI::st=HASH(0x1ca1d6c) sth DBI::st=HASH(0x1b26f24) sth DBI::st=HASH(0x1ca075c) ok 8 ok 9 ok 10 ok 11 ok 12 - handles should be gone now ok 13 ok 14 ok 15 # skip slow tests avoided when using DBD::Gofer ok 16 # skip slow tests avoided when using DBD::Gofer ok t/zvg_80proxy.t ............ skipped: modules required for proxy are probably not installed (e.g., RPC/PlClient.pm) t/zvg_85gofer.t ............ # Transports: null pipeone stream stream_ssh # Policies: pedantic classic rush # Count: 0 # ============= # Testing null transport with pedantic policy # dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 1 - should connect to dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 2 ok 3 ok 4 ok 5 - should detect prepare failure ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 - go_response executed flag should be true ok 13 ok 14 ok 15 ok 16 # Testing go_request_count and caching of simple values ok 17 ok 18 ok 19 # use_remote=1 (policy=pedantic, transport=null) HASH(0x3263eec) ok 20 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 21 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 22 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 23 # skip caching of metadata methods returning sth not yet implemented ok 24 # skip caching of metadata methods returning sth not yet implemented ok 25 ok 26 # ============= # Testing null transport with classic policy # dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 27 - should connect to dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 28 ok 29 ok 30 ok 31 - The object isa DBI::st ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 ok 38 - go_response executed flag should be true ok 39 ok 40 ok 41 ok 42 # Testing go_request_count and caching of simple values ok 43 ok 44 ok 45 # use_remote=0 (policy=classic, transport=null) HASH(0x326898c) ok 46 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 47 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 48 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 49 # skip caching of metadata methods returning sth not yet implemented ok 50 # skip caching of metadata methods returning sth not yet implemented ok 51 ok 52 # ============= # Testing null transport with rush policy # dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 53 - should connect to dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 54 ok 55 ok 56 ok 57 - The object isa DBI::st ok 58 ok 59 ok 60 ok 61 ok 62 ok 63 ok 64 - go_response executed flag should be true ok 65 ok 66 ok 67 ok 68 # Testing go_request_count and caching of simple values ok 69 ok 70 ok 71 # use_remote=0 (policy=rush, transport=null) HASH(0x3275794) ok 72 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 73 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 74 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 75 # skip caching of metadata methods returning sth not yet implemented ok 76 # skip caching of metadata methods returning sth not yet implemented ok 77 ok 78 1..78 ok t/zvg_86gofer_fail.t ....... skipped: Gofer DBI_AUTOPROXY t/zvg_87gofer_cache.t ...... skipped: Gofer DBI_AUTOPROXY t/zvg_90sql_type_cast.t .... 1..45 ok 1 - result, undef ok 2 - json undef ok 3 - discard works, undef ok 4 - result, invalid sql type ok 5 - json invalid sql type ok 6 - result, non numeric cast to int ok 7 - json non numeric cast to int ok 8 - result, non numeric cast to int (strict) ok 9 - json non numeric cast to int (strict) ok 10 - result, small int cast to int ok 11 - json small int cast to int ok 12 - result, 2 byte max signed int cast to int ok 13 - json 2 byte max signed int cast to int ok 14 - result, 2 byte max unsigned int cast to int ok 15 - json 2 byte max unsigned int cast to int ok 16 - result, 4 byte max signed int cast to int ok 17 - json 4 byte max signed int cast to int ok 18 - result, 4 byte max unsigned int cast to int ok 19 - json 4 byte max unsigned int cast to int ok 20 - result, small int cast to int (discard) ok 21 - json small int cast to int (discard) ok 22 - discard works, small int cast to int (discard) ok 23 - result, non numeric cast to numeric ok 24 - json non numeric cast to numeric ok 25 - result, non numeric cast to numeric (strict) ok 26 - json non numeric cast to numeric (strict) ok 27 - result, very large int cast to int ok 28 - json very large int cast to int ok 29 - result, very large int cast to int (strict) ok 30 - json very large int cast to int (strict) ok 31 - result, float cast to int ok 32 - json float cast to int ok 33 - result, float cast to int (strict) ok 34 - json float cast to int (strict) ok 35 - result, float cast to double ok 36 - json float cast to double ok 37 - nv defined float cast to double ok 38 - result, 4 byte max unsigned int cast to int (ivsize=4) ok 39 - json 4 byte max unsigned int cast to int (ivsize=4) ok 40 - result, non numeric cast to double ok 41 - json non numeric cast to double ok 42 - nv not defined non numeric cast to double ok 43 - result, non numeric cast to double (strict) ok 44 - json non numeric cast to double (strict) ok 45 - nv not defined non numeric cast to double (strict) ok t/zvn_49dbd_file.t ......... ok 1 - use DBI; ok 2 - use DBD::File; ok 3 - Connect clean ok 4 - Can connect to DBD::File driver # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 5 - f_versions ok 6 - Connect with DBI attributes ok 7 - Connect with driver attributes in DSN ok 8 - Connect with driver attributes in hash ok 9 - Prepare select from non-existing file ok 10 - Cannot open non-existing file # C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\t_sbdgf_53442gz.txt ok 11 - drop manually created table db_2640_2 (first file) ok 12 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2640_2.txt removed ok 13 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2640_2 exists ok 14 - drop manually created table db_2640_2 (second file) ok 15 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2640_2 removed ok 16 - Create table db_2640_ ok 17 - Test table exists ok 18 - get single table meta data ok 19 - get multiple meta data ok 20 - encoding shows in layer ok 21 - set single meta datum ok 22 - verify set single meta datum ok 23 - set multiple meta data ok 24 - verify set multiple meta attributes ok 25 - Prepare select * from db_2640_ ok 26 - execute on db_2640_ ok 27 - Prepare select * from DB_2640_ ok 28 - execute on DB_2640_ ok 29 - table drop ok 30 - Test table removed 1..30 ok t/zvn_50dbm_simple.t ....... Using DBM modules: SDBM_File Using MLDBM serializers: Data::Dumper Storable FreezeThaw YAML JSON Test count: 1 x ( ( 5 + 18 ) + 5 x ( 5 + 21 ) ) = 153 1..153 --- Using SDBM_File () --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 1 - dbm_versions ok 2 - The object isa DBI::db ok 3 ok 4 ok 5 ok 6 - DROP TABLE IF EXISTS SDBM_File_fruit ok 7 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10)) ok 8 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' ) ok 9 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change' ) ok 10 - INSERT INTO SDBM_File_fruit VALUES (3, NULL ) ok 11 - INSERT INTO SDBM_File_fruit VALUES (4,'to delete' ) ok 12 - INSERT INTO SDBM_File_fruit VALUES (?,?) ok 13 - INSERT INTO SDBM_File_fruit VALUES (6,'to delete' ) ok 14 - INSERT INTO SDBM_File_fruit VALUES (7,'to_delete' ) ok 15 - DELETE FROM SDBM_File_fruit WHERE dVal='to delete' ok 16 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to delete') == $sth->rows ok 17 - UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2 ok 18 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2) == $sth->rows ok 19 - DELETE FROM SDBM_File_fruit WHERE dKey=7 ok 20 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=7) == $sth->rows ok 21 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 22 - SELECT results ok 23 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Data::Dumper) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 24 - dbm_versions ok 25 - The object isa DBI::db ok 26 ok 27 ok 28 ok 29 - DROP TABLE IF EXISTS SDBM_File_fruit ok 30 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 31 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 32 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 33 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 34 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 35 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 36 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 37 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 38 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 39 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 40 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 41 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 42 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 43 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 44 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 45 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 46 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 47 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 48 - SELECT results ok 49 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Storable) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 50 - dbm_versions ok 51 - The object isa DBI::db ok 52 ok 53 ok 54 ok 55 - DROP TABLE IF EXISTS SDBM_File_fruit ok 56 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 57 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 58 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 59 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 60 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 61 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 62 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 63 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 64 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 65 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 66 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 67 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 68 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 69 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 70 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 71 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 72 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 73 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 74 - SELECT results ok 75 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (FreezeThaw) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 76 - dbm_versions ok 77 - The object isa DBI::db ok 78 ok 79 ok 80 ok 81 - DROP TABLE IF EXISTS SDBM_File_fruit ok 82 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 83 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 84 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 85 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 86 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 87 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 88 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 89 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 90 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 91 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 92 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 93 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 94 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 95 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 96 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 97 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 98 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 99 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 100 - SELECT results ok 101 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (YAML) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 102 - dbm_versions ok 103 - The object isa DBI::db ok 104 ok 105 ok 106 ok 107 - DROP TABLE IF EXISTS SDBM_File_fruit ok 108 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 109 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 110 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 111 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 112 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 113 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 114 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 115 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 116 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 117 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 118 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 119 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 120 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 121 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 122 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 123 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 124 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 125 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 126 - SELECT results ok 127 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (JSON) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 128 - dbm_versions ok 129 - The object isa DBI::db ok 130 ok 131 ok 132 ok 133 - DROP TABLE IF EXISTS SDBM_File_fruit ok 134 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 135 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 136 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 137 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 138 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 139 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 140 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 141 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 142 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 143 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 144 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 145 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 146 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 147 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 148 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 149 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 150 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 151 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 152 - SELECT results ok 153 - DROP TABLE SDBM_File_fruit ok t/zvn_51dbm_file.t ......... ok 1 ok 2 - FRED.dir exists ok 3 - fred.dir exists ok 4 ok 5 ok 6 ok 7 1..7 ok t/zvn_52dbm_complex.t ...... skipped: Not running with SQL::Statement t/zvn_85gofer.t ............ # Transports: null pipeone stream stream_ssh # Policies: pedantic classic rush # Count: 0 # ============= # Testing null transport with pedantic policy # dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 1 - should connect to dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 2 ok 3 ok 4 ok 5 - should detect prepare failure ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 - go_response executed flag should be true ok 13 ok 14 ok 15 ok 16 # Testing go_request_count and caching of simple values ok 17 ok 18 ok 19 # use_remote=1 (policy=pedantic, transport=null) HASH(0x1efe724) ok 20 ok 21 ok 22 ok 23 # skip caching of metadata methods returning sth not yet implemented ok 24 # skip caching of metadata methods returning sth not yet implemented ok 25 ok 26 # ============= # Testing null transport with classic policy # dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 27 - should connect to dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 28 ok 29 ok 30 ok 31 - The object isa DBI::st ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 ok 38 - go_response executed flag should be true ok 39 ok 40 ok 41 ok 42 # Testing go_request_count and caching of simple values ok 43 ok 44 ok 45 # use_remote=0 (policy=classic, transport=null) HASH(0x1eee684) ok 46 ok 47 ok 48 ok 49 # skip caching of metadata methods returning sth not yet implemented ok 50 # skip caching of metadata methods returning sth not yet implemented ok 51 ok 52 # ============= # Testing null transport with rush policy # dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 53 - should connect to dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 54 ok 55 ok 56 ok 57 - The object isa DBI::st ok 58 ok 59 ok 60 ok 61 ok 62 ok 63 ok 64 - go_response executed flag should be true ok 65 ok 66 ok 67 ok 68 # Testing go_request_count and caching of simple values ok 69 ok 70 ok 71 # use_remote=0 (policy=rush, transport=null) HASH(0x1f100e4) ok 72 ok 73 ok 74 ok 75 # skip caching of metadata methods returning sth not yet implemented ok 76 # skip caching of metadata methods returning sth not yet implemented ok 77 ok 78 1..78 ok t/zvp_01basics.t ........... 1..130 ok 1 - use DBI; ok 2 - ... testing sql_type ok 3 - ... testing sql_type ok 4 - ... testing sql_type ok 5 - ... testing sql_type ok 6 - ... testing sql_type ok 7 - ... testing sql_type ok 8 - ... testing sql_type ok 9 - ... testing sql_type ok 10 - ... testing sql_type ok 11 - ... testing sql_type ok 12 - ... testing sql_type ok 13 - ... testing sql_type ok 14 - ... testing sql_type ok 15 - ... testing sql_type ok 16 - ... testing sql_type ok 17 - ... testing sql_type ok 18 - ... testing sql_type ok 19 - ... testing sql_type ok 20 - ... testing sql_type ok 21 - ... testing sql_type ok 22 - ... testing sql_type ok 23 - ... testing sql_type ok 24 - ... testing sql_type ok 25 - ... testing sql_type ok 26 - ... testing sql_type ok 27 - ... testing sql_type ok 28 - ... testing sql_type ok 29 - ... testing sql_type ok 30 - ... testing sql_type ok 31 - ... testing sql_type ok 32 - ... testing sql_type ok 33 - ... testing sql_type ok 34 - ... testing sql_type ok 35 - ... testing sql_type ok 36 - ... testing sql_type ok 37 - ... testing sql_type ok 38 - ... testing sql_type ok 39 - ... testing sql_type ok 40 - ... testing sql_type ok 41 - ... testing sql_type ok 42 - ... testing sql_type ok 43 - ... testing sql_type ok 44 - ... testing sql_type ok 45 - ... testing sql_type ok 46 - ... testing sql_type ok 47 - ... testing sql_type ok 48 - ... testing sql_type ok 49 - ... testing sql_type ok 50 - ... testing sql_type ok 51 - ... testing sql_type ok 52 - ... testing sql_type ok 53 - ... testing sql_type ok 54 - ... testing sql_type ok 55 - ... testing sql_type ok 56 - ... testing sql_type ok 57 - ... testing sql_type ok 58 - ... testing sql_type ok 59 - ... testing sql_type ok 60 - ... testing sql_cursor_types ok 61 - ... testing sql_cursor_types ok 62 - ... testing sql_cursor_types ok 63 - ... testing sql_cursor_types ok 64 - ... testing sql_cursor_types ok 65 - ... looks_like_number : undef -> undef ok 66 - ... looks_like_number : "" -> undef (eg "don't know") ok 67 - ... looks_like_number : "foo" -> defined false ok 68 - ... looks_like_number : "foo" -> defined false ok 69 - ... looks_like_number : 1 -> true ok 70 - ... looks_like_number : "." -> false ok 71 - ... looks_like_number : 1 -> true ok 72 - ... looks_like_number : 1 -> true ok 73 - ... 1000 initial state is 400 ok 74 - ... neat : 1 + 1 -> "2" ok 75 - ... neat : 2 -> "'2'" ok 76 - ... neat : undef -> "undef" ok 77 - ... test array argument w/seperator and maxlen ok 78 - ... test array argument w/out seperator or maxlen ok 79 - The object isa DBI::dr ok 80 - ... test debug ok 81 - ... test DebugDispatch ok 82 - ... test Warn ok 83 - ... this should say Tim Bunce ok 84 - ... the version should match DBI version ok 85 - ... this should work and return 1 ok 86 - ... this should equal 1 ok 87 - ... CachedKids should be undef initially ok 88 - ... CachedKids should be our ref ok 89 - ... this should be zero ok 90 - ... this should be zero ok 91 - ... Active flag is true ok 92 - ... we should get a warning here ok 93 - ... we should get a warning here ok 94 - ... we should get no warnings here ok 95 - ... we at least have one driver installed ok 96 - ... we should at least have ExampleP installed ok 97 - ... we should at least have one driver ok 98 - ... should be -1077531989 ok 99 - ... should be -1077531989 ok 100 - ... should be -1077531990 ok 101 # skip Seems like your Math::BigInt 1.89 has a bug ok 102 # skip Seems like your Math::BigInt 1.89 has a bug ok 103 ok 104 ok 105 ok 106 ok 107 ok 108 ok 109 ok 110 ok 111 ok 112 ok 113 ok 114 ok 115 ok 116 ok 117 ok 118 ok 119 ok 120 ok 121 ok 122 ok 123 ok 124 # skip developer tests ok 125 # skip developer tests ok 126 # skip developer tests ok 127 # skip developer tests ok 128 - ... DBI::dbi_debug's initial state is 0 ok 129 - ... DBI::dbi_debug is 15 ok 130 - ... DBI::dbi_debug is 0 ok t/zvp_02dbidrv.t ........... 1..53 ok 1 - use DBI; ok 2 - ... check DBD::Test::dr::imp_data_size to avoid typo ok 3 - ... check DBD::Test::db::imp_data_size to avoid typo ok 4 - ... DBD::Test->driver called to getnew Driver handle ok 5 - ... new Driver handle (DBI::dr=HASH(0x19c9fa4)) created successfully ok 6 - The object isa DBI::dr ok 7 - ... got a Test Driver object back from DBI->install_driver ok 8 - The object isa DBI::dr ok 9 - ... checking the DBI::_get_imp_data function ok 10 - ... Driver object passed to data_sources ok 11 - The object isa DBI::dr ok 12 - ... Driver object is not tied ok 13 - ... got correct datasources from DBI->data_sources("Test") ok 14 # skip Kids attribute not supported under DBI::PurePerl ok 15 - ... got a database handle from calling $drh->connect ok 16 - The object isa DBI::db ok 17 # skip Kids attribute not supported under DBI::PurePerl ok 18 - ... Driver object passed to data_sources ok 19 - The object isa DBI::dr ok 20 - ... Driver object is not tied ok 21 - ... checking fetched datasources from Driver ok 22 - ... got correct datasources from $dbh->data_sources() ok 23 - ... Database object passed to do ok 24 - The object isa DBI::db ok 25 - ... Database object is not tied ok 26 - ... got Driver object from Database object with Driver attribute ok 27 - The object isa DBI::dr ok 28 - ... Driver object is not tied ok 29 - ... got Driver object from Database object by FETCH-ing Driver attribute ok 30 - The object isa DBI::dr ok 31 # skip running DBI::PurePerl ok 32 - ... this will trigger more driver internal tests above in DBD::Test::db ok 33 - ... checking Driver handle err set with set_err method ok 34 - ... checking Database handle err set with set_err method ok 35 - ... checking Database handle err set with Driver handle set_err method ok 36 # skip Kids attribute not supported under DBI::PurePerl ok 37 - ... $dbh->DESTROY should set $drh->err to 42 ok 38 - ... checking $DBI::err set with Driver handle set_err method ok 39 - ... checking $DBI::errstr ok 40 - ... checking $DBI::state ok 41 - ... checking $DBI::state ok 42 - ... checking $DBI::state ok 43 # skip using DBI::PurePerl ok 44 - ... FetchHashKeyName is NAME ok 45 - ... FetchHashKeyName is now changed to NAME_lc ok 46 - ... calling $drh->disconnect_all (not implemented but will fail silently) ok 47 - has dbixs_revision ok 48 - has integer dbixs_revision ok 49 # skip using DBI::PurePerl ok 50 # skip using DBI::PurePerl ok 51 # skip using DBI::PurePerl ok 52 # skip using DBI::PurePerl ok 53 # skip using DBI::PurePerl ok t/zvp_03handle.t ........... 1..137 ok 1 - use DBI; ok 2 ok 3 - The object isa DBI::dr ok 4 # skip Kids attribute not supported under DBI::PurePerl ok 5 ok 6 ok 7 ok 8 - The object isa DBI::db ok 9 # skip Kids and ActiveKids attributes not supported under DBI::PurePerl ok 10 # skip Kids and ActiveKids attributes not supported under DBI::PurePerl ok 11 - The object isa DBI::st ok 12 - ... execute ran successfully ok 13 - ... we got the CachedKids hash ok 14 - ... there is one CachedKid ok 15 - ... our statment handle should be in the CachedKids ok 16 - ... our first statment is Active ok 17 - The object isa DBI::st ok 18 - ... prepare_cached returned the same statement handle ok 19 - ... we got warned about our first statement handle being still active ok 20 - ... our first statment is no longer Active since we re-prepared it ok 21 - The object isa DBI::st ok 22 - ... prepare_cached returned a different statement handle now ok 23 - ... there are two CachedKids ok 24 - ... both statment handles should be in the CachedKids ok 25 - ... executing first statement handle again ok 26 - ... first statement handle is now active again ok 27 - The object isa DBI::st ok 28 - ... our fourth statement handle is not the same as our first ok 29 - ... first statement handle is still active ok 30 - ... there are two CachedKids ok 31 - ... second and fourth statment handles should be in the CachedKids ok 32 - ... first statement handle is no longer active ok 33 - ... fourth statement handle executed properly ok 34 - ... fourth statement handle is Active ok 35 - The object isa DBI::st ok 36 - ... we still only got one warning ok 37 - ... fourth statement handle and fifth one match ok 38 - ... fourth statement handle is not Active ok 39 - ... fifth statement handle is not Active (shouldnt be its the same as fifth) ok 40 - ... there are two CachedKids ok 41 - ... second and fourth/fifth statment handles should be in the CachedKids ok 42 # skip swap_inner_handle() not supported under DBI::PurePerl ok 43 # skip swap_inner_handle() not supported under DBI::PurePerl ok 44 # skip swap_inner_handle() not supported under DBI::PurePerl ok 45 # skip swap_inner_handle() not supported under DBI::PurePerl ok 46 # skip swap_inner_handle() not supported under DBI::PurePerl ok 47 # skip swap_inner_handle() not supported under DBI::PurePerl ok 48 # skip swap_inner_handle() not supported under DBI::PurePerl ok 49 # skip swap_inner_handle() not supported under DBI::PurePerl ok 50 # skip swap_inner_handle() not supported under DBI::PurePerl ok 51 # skip swap_inner_handle() not supported under DBI::PurePerl ok 52 # skip swap_inner_handle() not supported under DBI::PurePerl ok 53 # skip swap_inner_handle() not supported under DBI::PurePerl ok 54 # skip swap_inner_handle() not supported under DBI::PurePerl ok 55 # skip swap_inner_handle() not supported under DBI::PurePerl ok 56 # skip swap_inner_handle() not supported under DBI::PurePerl ok 57 # skip swap_inner_handle() not supported under DBI::PurePerl ok 58 # skip swap_inner_handle() not supported under DBI::PurePerl ok 59 # skip swap_inner_handle() not supported under DBI::PurePerl ok 60 # skip swap_inner_handle() not supported under DBI::PurePerl ok 61 # skip swap_inner_handle() not supported under DBI::PurePerl ok 62 # skip swap_inner_handle() not supported under DBI::PurePerl ok 63 # skip swap_inner_handle() not supported under DBI::PurePerl ok 64 # skip swap_inner_handle() not supported under DBI::PurePerl ok 65 - ping should be true before disconnect ok 66 - ping should be false after disconnect ok 67 # skip Kids and ActiveKids attributes not supported under DBI::PurePerl ok 68 # skip Kids and ActiveKids attributes not supported under DBI::PurePerl ok 69 # skip Kids attribute not supported under DBI::PurePerl ok 70 # skip Kids attribute not supported under DBI::PurePerl ok 71 # skip Kids attribute not supported under DBI::PurePerl ok 72 # skip Kids attribute not supported under DBI::PurePerl ok 73 # skip Kids attribute not supported under DBI::PurePerl ok 74 # skip Kids attribute not supported under DBI::PurePerl ok 75 # skip Kids attribute not supported under DBI::PurePerl ok 76 # skip Kids attribute not supported under DBI::PurePerl ok 77 # skip Kids attribute not supported under DBI::PurePerl ok 78 # skip Kids attribute not supported under DBI::PurePerl ok 79 # skip Kids attribute not supported under DBI::PurePerl ok 80 # skip Kids attribute not supported under DBI::PurePerl ok 81 # skip Kids attribute not supported under DBI::PurePerl ok 82 # skip Kids attribute not supported under DBI::PurePerl ok 83 # skip Kids attribute not supported under DBI::PurePerl ok 84 # skip Kids attribute not supported under DBI::PurePerl ok 85 # skip Kids attribute not supported under DBI::PurePerl ok 86 # skip Kids attribute not supported under DBI::PurePerl ok 87 # skip Kids attribute not supported under DBI::PurePerl ok 88 # skip Kids attribute not supported under DBI::PurePerl ok 89 # skip Kids attribute not supported under DBI::PurePerl ok 90 # skip Kids attribute not supported under DBI::PurePerl ok 91 # skip Kids attribute not supported under DBI::PurePerl ok 92 # skip Kids attribute not supported under DBI::PurePerl ok 93 # skip Kids attribute not supported under DBI::PurePerl ok 94 # skip Kids attribute not supported under DBI::PurePerl ok 95 - The object isa DBI::db ok 96 ok 97 ok 98 ok 99 - we need weakrefs for take_imp_data to work safely with child handles ok 100 - should have 3 entries (implementation detail) ok 101 - should have 2 defined handles ok 102 - ... we got some imp_data to test ok 103 - ... test that our imp_data is greater than or equal to 80, this is reasonable ok 104 - ... our Driver should have 0 Kid(s) after calling take_imp_data ok 105 - sth should be reblessed ok 106 warn: Can't call FETCH method on handle DBI::db=HASH(0x1e812ac) after take_imp_data() ok 107 - ... our Driver should be undefined warn: Can't call FETCH method on handle DBI::db=HASH(0x1e812ac) after take_imp_data() ok 108 - ... our TraceLevel should be undefined warn: Can't call disconnect method on handle DBI::db=HASH(0x1e812ac) after take_imp_data() ok 109 - ... disconnect should return undef warn: Can't call quote method on handle DBI::db=HASH(0x1e812ac) after take_imp_data() ok 110 - ... quote should return undefined ok 111 - ... we should have gotten 4 warnings ok 112 - The object isa DBI::db ok 113 ok 114 # skip Kids attribute not supported under DBI::PurePerl ok 115 - The object isa DBI::dr ok 116 # skip Kids attribute not supported under DBI::PurePerl ok 117 - The object isa DBI::db ok 118 - The object isa DBI::st ok 119 - ... NUM_OF_PARAMS is 0 ok 120 - ... NUM_OF_FIELDS should be undef ok 121 - ... Statement is "foo bar" ok 122 - ... NAME is undefined ok 123 - ... TYPE is undefined ok 124 - ... SCALE is undefined ok 125 - ... PRECISION is undefined ok 126 - ... NULLABLE is undefined ok 127 - ... RowsInCache is undefined ok 128 - ... ParamValues is undefined ok 129 - ... NAME_uc is undefined ok 130 - ... NAME_lc is undefined ok 131 - ... NAME_hash is undefined ok 132 - ... NAME_uc_hash is undefined ok 133 - ... NAME_lc_hash is undefined ok 134 - ... $dbh can call "prepare" ok 135 - ... $dbh cannot call "nonesuch" ok 136 - ... $sth can call "execute" ok 137 # skip Kids attribute not supported under DBI::PurePerl ok t/zvp_04mods.t ............. 1..12 ok 1 - use DBI; ok 2 - use DBI::Const::GetInfo::ANSI; ok 3 - use DBI::Const::GetInfo::ODBC; ok 4 - use DBI::Const::GetInfoType; ok 5 - use DBI::Const::GetInfoReturn; ok 6 - ... we have at least one key in the GetInfoType hash ok 7 - ... the GetInfoType hash is constructed from the ANSI and ODBC hashes ok 8 - ... we have at least one key in the GetInfoReturnType hash ok 9 - ... the GetInfoReturnType hash is constructed from the ANSI and ODBC hashes ok 10 - ... we have at least one key in the GetInfoReturnValues hash ok 11 - DBI::Const::GetInfoReturn->can('Format') ok 12 - DBI::Const::GetInfoReturn->can('Explain') ok t/zvp_05concathash.t ....... 1..41 ok 1 - use DBI; ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 - should work with nul bytes in kv_sep and pair_sep ok 10 - should work with nul bytes in hash value (neat) ok 11 - should work with nul bytes in hash value (not neat) ok 12 ok 13 ok 14 ok 15 - test ok 16 - test ok 17 - Unknown sort order ok 18 - Float Hash - Not Neat lexical ok 19 - Numeric - Not Neat lexical ok 20 - Mixed Hash - Not Neat lexical ok 21 - Simple Hash - Not Neat lexical ok 22 - Float Hash - Neat lexical ok 23 - Numeric - Neat lexical ok 24 - Mixed Hash - Neat lexical ok 25 - Simple Hash - Neat lexical ok 26 - Float Hash - Not Neat guess ok 27 - Numeric - Not Neat guess ok 28 - Mixed Hash - Not Neat guess ok 29 - Simple Hash - Not Neat guess ok 30 - Float Hash - Neat guess ok 31 - Numeric - Neat guess ok 32 - Mixed Hash - Neat guess ok 33 - Simple Hash - Neat guess ok 34 - Float Hash - Not Neat numeric ok 35 - Numeric - Not Neat numeric ok 36 - Mixed Hash - Not Neat numeric ok 37 - Simple Hash - Not Neat numeric ok 38 - Float Hash - Neat numeric ok 39 - Numeric - Neat numeric ok 40 - Mixed Hash - Neat numeric ok 41 - Simple Hash - Neat numeric ok t/zvp_06attrs.t ............ 1..145 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - ... checking Warn attribute for dbh ok 4 - ... checking Active attribute for dbh ok 5 - ... checking AutoCommit attribute for dbh ok 6 - ... checking CompatMode attribute for dbh ok 7 - ... checking InactiveDestory attribute for dbh ok 8 - ... checking PrintError attribute for dbh ok 9 - ... checking PrintWarn attribute for dbh ok 10 - ... checking RaiseError attribute for dbh ok 11 - ... checking ShowErrorStatement attribute for dbh ok 12 - ... checking ChopBlanks attribute for dbh ok 13 - ... checking LongTrunkOk attribute for dbh ok 14 - ... checking TaintIn attribute for dbh ok 15 - ... checking TaintOut attribute for dbh ok 16 - ... checking Taint attribute for dbh ok 17 - ... checking Executed attribute for dbh ok 18 - ... checking ErrCount attribute for dbh ok 19 # skip Kids and ActiveKids attribute not supported under DBI::PurePerl ok 20 # skip Kids and ActiveKids attribute not supported under DBI::PurePerl ok 21 - ... checking CachedKids attribute for dbh ok 22 - ... checking HandleError attribute for dbh ok 23 - ... checking Profile attribute for dbh ok 24 - ... checking Statement attribute for dbh ok 25 - ... checking RowCacheSize attribute for dbh ok 26 - ... checking ReadOnly attribute for dbh ok 27 - ... checking FetchHashKeyName attribute for dbh ok 28 - ... checking Name attribute for dbh ok 29 - ... checking TraceLevel attribute for dbh ok 30 - ... checking LongReadLen attribute for dbh ok 31 - should be able to FETCH_many ok 32 - should see driver-private dbh attribute value ok 33 - ... catching exception ok 34 - ... $dbh->err is undefined ok 35 - ... checking $dbh->errstr ok 36 - ... checking $dbh->state ok 37 - ... checking Executed attribute for dbh ok 38 - ... checking Executed attribute for dbh (after reset) ok 39 - ... checking ErrCount attribute for dbh (after error was generated) ok 40 - The object isa DBI::dr ok 41 - ... checking $dbh->err ok 42 - ... checking ErrCount attribute for drh ok 43 - ... checking Warn attribute for drh ok 44 - ... checking Active attribute for drh ok 45 - ... checking AutoCommit attribute for drh ok 46 - ... checking CompatMode attribute for drh ok 47 - ... checking InactiveDestory attribute for drh ok 48 - ... checking PrintError attribute for drh ok 49 - ... checking PrintWarn attribute for drh ok 50 - ... checking RaiseError attribute for drh ok 51 - ... checking ShowErrorStatement attribute for drh ok 52 - ... checking ChopBlanks attribute for drh ok 53 - ... checking LongTrunkOk attribute for drh ok 54 - ... checking TaintIn attribute for drh ok 55 - ... checking TaintOut attribute for drh ok 56 - ... checking Taint attribute for drh ok 57 # skip Executed attribute not supported under DBI::PurePerl ok 58 # skip Kids and ActiveKids attribute not supported under DBI::PurePerl ok 59 # skip Kids and ActiveKids attribute not supported under DBI::PurePerl ok 60 - ... checking CachedKids attribute for drh ok 61 - ... checking HandleError attribute for drh ok 62 - ... checking Profile attribute for drh ok 63 - ... checking ReadOnly attribute for drh ok 64 - ... checking TraceLevel attribute for drh ok 65 - ... checking LongReadLen attribute for drh ok 66 - ... checking FetchHashKeyName attribute for drh ok 67 - ... checking Name attribute for drh ok 68 - The object isa DBI::st ok 69 - ... checking Executed attribute for sth ok 70 - ... checking Executed attribute for dbh ok 71 - ... checking ErrCount attribute for sth ok 72 - ... checking exception ok 73 - ... checking $sth->errstr ok 74 - ... checking $sth->state ok 75 - ... checking Executed attribute for sth ok 76 - ... checking Exceuted attribute for dbh ok 77 - ... checking ErrCount attribute for sth ok 78 - ... checking exception ok 79 - ... checking ErrCount attribute for sth (after assignment) ok 80 - ... checking ErrCount attribute for sth (after reset) ok 81 - ... checking Warn attribute for sth ok 82 - ... checking Active attribute for sth ok 83 - ... checking CompatMode attribute for sth ok 84 - ... checking InactiveDestroy attribute for sth ok 85 - ... checking PrintError attribute for sth ok 86 - ... checking PrintWarn attribute for sth ok 87 - ... checking RaiseError attribute for sth ok 88 - ... checking ShowErrorStatement attribute for sth ok 89 - ... checking ChopBlanks attribute for sth ok 90 - ... checking LongTrunkOk attribute for sth ok 91 - ... checking TaintIn attribute for sth ok 92 - ... checking TaintOut attribute for sth ok 93 - ... checking Taint attribute for sth ok 94 # skip Kids and ActiveKids attribute not supported under DBI::PurePerl ok 95 # skip Kids and ActiveKids attribute not supported under DBI::PurePerl ok 96 - ... checking CachedKids attribute for sth ok 97 - ... checking HandleError attribute for sth ok 98 - ... checking Profile attribute for sth ok 99 - ... checking ReadOnly attribute for sth ok 100 - ... checking TraceLevel attribute for sth ok 101 - ... checking LongReadLen attribute for sth ok 102 - ... checking FetchHashKeyName attribute for sth ok 103 - ... checking CursorName attribute for sth ok 104 - ... checking NUM_OF_FIELDS attribute for sth ok 105 - ... checking NUM_OF_PARAMS attribute for sth ok 106 - ... checking type of NAME attribute for sth ok 107 - ... checking number of elements returned ok 108 - ... checking values returned ok 109 - ... checking type of NAME_lc attribute for sth ok 110 - ... checking number of elements returned ok 111 - ... checking values returned ok 112 - ... checking type of NAME_uc attribute for sth ok 113 - ... checking number of elements returned ok 114 - ... checking values returned ok 115 - ... checking type of NAME_hash attribute for sth ok 116 - ... checking number of keys returned ok 117 - ... checking values returned ok 118 - ... checking values returned ok 119 - ... checking type of NAME_lc_hash attribute for sth ok 120 - ... checking number of keys returned ok 121 - ... checking values returned ok 122 - ... checking values returned ok 123 - ... checking type of NAME_uc_hash attribute for sth ok 124 - ... checking number of keys returned ok 125 - ... checking values returned ok 126 - ... checking values returned ok 127 - ... checking type of TYPE attribute for sth ok 128 - ... checking number of elements returned ok 129 - ... checking values returned ok 130 - ... checking type of NULLABLE attribute for sth ok 131 - ... checking number of elements returned ok 132 - ... checking values returned ok 133 - ... checking type of PRECISION attribute for sth ok 134 - ... checking number of elements returned ok 135 - ... checking values returned ok 136 - ... checking type of SCALE attribute for sth ok 137 - ... checking number of elements returned ok 138 - ... checking values returned ok 139 - ... checking type of ParamValues attribute for sth ok 140 - ... checking values returned ok 141 - ... checking Statement attribute for sth ok 142 - ... checking type of RowsInCache attribute for sth ok 143 - should see driver-private sth attribute value Checking inheritance ok 144 - dbh ReadOnly value should be inherited from drh ok 145 - sth ReadOnly value should be inherited from dbh ok t/zvp_07kids.t ............. skipped: $h->{Kids} attribute not supported for DBI::PurePerl t/zvp_08keeperr.t .......... 1..69 ok 1 - use DBI; ok 2 - ... checking error ok 3 - ... checking error Test HandleSetErr ok 4 - The object isa DBI::db ok 5 - ... $DBI::err is not defined HandleSetErr called: h=DBI::db=HASH(0x1a459a4), err=, errstr=(got info), state= ok 6 - ... $DBI::err is defined ok 7 - ... $DBI::err is an empty string ok 8 - ... $DBI::errstr is as we expected ok 9 - ... $dbh->errstr matches $DBI::errstr ok 10 - ... $warn{failed} is 0 ok 11 - ... $warn{warning} is 0 ok 12 - ... the @handlewarn array is (1, 0, 0) HandleSetErr called: h=DBI::db=HASH(0x1a459a4), err=0, errstr=(got warn), state=AA001 warn: 'DBD::ExampleP::db set_err warning: (got info)\n(got warn) at ./t/08keeperr.t line 131\n' ok 13 - ... $DBI::err is defined ok 14 - ... $DBI::err is "0" ok 15 - ... $DBI::errstr is as we expected ok 16 - ... $dbh->errstr matches $DBI::errstr ok 17 - ... $DBI::state is AA001 ok 18 - ... $warn{warning} is 1 ok 19 - ... the @handlewarn array is (1, 1, 0) HandleSetErr called: h=DBI::db=HASH(0x1a459a4), err=, errstr=(got more info), state= warn: 'DBD::ExampleP::db set_err warning: (got info)\n(got warn)\n(got more info) at ./t/08keeperr.t line 146\n' ok 20 - ... $DBI::err is defined ok 21 - ... $DBI::err is "0" ok 22 - ... $dbh->err is "0" ok 23 - ... $DBI::state is AA001 ok 24 - ... $DBI::errstr is as we expected ok 25 - ... $dbh->errstr matches $DBI::errstr ok 26 - ... $warn{warning} is 2 ok 27 - ... the @handlewarn array is (2, 1, 0) warn: 'DBD::ExampleP::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error) at ./t/08keeperr.t line 167\n' ok 28 - ... $DBI::err is defined ok 29 - ... $DBI::err is 42 ok 30 - ... $warn{warning} is 2 ok 31 - ... $dbh->errstr is as we expected ok 32 - ... $DBI::state is AA002 ok 33 - ... the @handlewarn array is (2, 1, 1) HandleSetErr called: h=DBI::db=HASH(0x1a459a4), err=, errstr=(got info), state= warn: 'DBD::ExampleP::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info) at ./t/08keeperr.t line 179\n' ok 34 - ... $DBI::err is defined ok 35 - ... $DBI::err is 42 ok 36 - ... $warn{warning} is 2 ok 37 - ... $dbh->errstr is as we expected ok 38 - ... the @handlewarn array is (3, 1, 1) HandleSetErr called: h=DBI::db=HASH(0x1a459a4), err=0, errstr=(got warn), state= warn: 'DBD::ExampleP::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info)\n(got warn) at ./t/08keeperr.t line 190\n' ok 39 - ... $DBI::err is defined ok 40 - ... $DBI::err is 42 ok 41 - ... $warn{warning} is 2 ok 42 - ... $dbh->errstr is as we expected ok 43 - ... the @handlewarn array is (3, 2, 1) warn: 'DBD::ExampleP::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info)\n(got warn) [err was 42 now 4200] [state was AA002 now AA003]\n(got new error) at ./t/08keeperr.t line 201\n' ok 44 - ... $DBI::err is defined ok 45 - ... $DBI::err is 4200 ok 46 - ... $warn{warning} is 2 ok 47 - ... $dbh->errstr is as we expected ok 48 - ... the @handlewarn array is (3, 2, 2) ok 49 - ... $dbh->errstr is defined ok 50 - ... $dbh->err is defined ok 51 - ... $dbh->state is an empty string warn: 'DBD::ExampleP::db set_err failed: foo at ./t/08keeperr.t line 226\n' ok 52 - ... only returned one value ok 53 - ... the first value is undefined warn: 'DBD::ExampleP::db set_err failed: foo [err was 1 now 2]\nbar at ./t/08keeperr.t line 230\n' ok 54 - ... $dbh->set_err returned undefiend warn: 'DBD::ExampleP::db set_err failed: foo [err was 1 now 2]\nbar [err was 2 now 3]\nbaz at ./t/08keeperr.t line 231\n' ok 55 - ... $dbh->set_err returned undefiend HandleSetErr called: h=DBI::db=HASH(0x1a459a4), err=0, errstr=warn, state= warn: 'DBD::ExampleP::db set_err failed: foo [err was 1 now 2]\nbar [err was 2 now 3]\nbaz\nwarn at ./t/08keeperr.t line 232\n' ok 56 - ... $dbh->set_err returned undefiend ok 57 - ... $dbh->errstr is as we expected ok 58 - ... $warn{failed} is 4 ok 59 - ... the @handlewarn array is (0, 1, 3) warn: 'DBD::ExampleP::db method failed: foo at ./t/08keeperr.t line 242\n' ok 60 - ... only returned one value ok 61 - ... the first value is undefined warn: 'DBD::ExampleP::db method failed: foo at ./t/08keeperr.t line 246\n' ok 62 - ... only returned one value ok 63 - ... the first value is "42" warn: 'DBD::ExampleP::db method failed: foo at ./t/08keeperr.t line 250\n' ok 64 - ... returned no values HandleSetErr called: h=DBI::db=HASH(0x1a459a4), err=, errstr=info, state=override warn: 'DBD::ExampleP::db set_err failed: errstr99 at ./t/08keeperr.t line 257\n' ok 65 - ... only returned one value ok 66 - ... the first value is undefined ok 67 - ... $dbh->err is 99 ok 68 - ... $dbh->errstr is as we expected ok 69 - ... $dbh->state is as we expected ok t/zvp_09trace.t ............ 1..67 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - trace file size = 2717 ok 4 - ... checking TraceLevel attribute ok 5 - ... trace file successfully created parse_trace_flag SQL ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 parse_trace_flag foo ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 parse_trace_flag bar ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok 28 ok 29 parse_trace_flag baz ok 30 ok 31 ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 parse_trace_flag boo ok 38 ok 39 ok 40 ok 41 ok 42 ok 43 ok 44 ok 45 parse_trace_flag bop ok 46 ok 47 ok 48 ok 49 ok 50 ok 51 ok 52 ok 53 parse_trace_flag SQL foo bar baz boo bop ok 54 - ... ok 55 - ... inherit ok 56 - The object isa DBI::st ok 57 ok 58 ok 59 test unknown parse_trace_flag ok 60 ok 61 caught warn: DBI::db=HASH(0x1f0f3bc)->parse_trace_flags(nonesuch) ignored unknown trace flags: 'nonesuch' at DBI::PurePerl DBI::common::parse_trace_flags line 49 ok 62 ok 63 caught warn: DBI::db=HASH(0x1f0f3bc)->parse_trace_flags(nonesuch|SQL|nonesuch2) ignored unknown trace flags: 'nonesuch' 'nonesuch2' at DBI::PurePerl DBI::common::parse_trace_flags line 49 ok 64 ok 65 ok 66 ok 67 ok t/zvp_10examp.t ............ 1..210 ok 1 - connect should fail ok 2 - ... we should have an exception here ok 3 - ... $dbh2 should not be defined ok 4 ok 5 ok 6 - ... these 2 handles are cached, so they are the same ok 7 ok 8 - ... this handle was created with different parameters, so it is not the same ok 9 ok 10 - Executed should be true ok 11 ok 12 - should return same handle ok 13 - Executed should be false because reset by connect attributes ok 14 - The object isa DBI::dr ok 15 - ... these are our cached kids ok 16 - ... we have emptied out cache ok 17 ok 18 - ... PrintError should be 0 ok 19 - ... FetchHashKey is NAME ok 20 - ... checking the example driver_path others ok 21 ok 22 - ping should return true ok 23 - prepare should fail ok 24 - sth->err should be true ok 25 - DBI::err should be true ok 26 - $DBI::err should match $dbh->err ok 27 - $DBI::errstr should contain error string ok 28 - $DBI::errstr should match $dbh->errstr ok 29 ok 30 ok 31 ok 32 # skip inner/outer handles not fully supported for DBI::PurePerl ok 33 # skip inner/outer handles not fully supported for DBI::PurePerl ok 34 # skip inner/outer handles not fully supported for DBI::PurePerl ok 35 ok 36 ok 37 ok 38 ok 39 ok 40 ok 41 ok 42 ok 43 ok 44 ok 45 ok 46 ok 47 ok 48 ok 49 ok 50 ok 51 ok 52 ok 53 - errstr should contain error message ok 54 ok 55 - errstr should contain error message ok 56 ok 57 ok 58 - errstr should contain error message ok 59 ok 60 - errstr should contain error message ok 61 ok 62 ok 63 ok 64 ok 65 ok 66 ok 67 ok 68 fetchrow_hashref('NAME_uc') ok 69 ok 70 ok 71 ok 72 ok 73 fetchrow_hashref('ParamValues') ok 74 ok 75 FetchHashKeyName ok 76 ok 77 ok 78 ok 79 ok 80 ok 81 fetchall_arrayref ok 82 ok 83 ok 84 ok 85 ok 86 ok 87 fetchall_arrayref array slice ok 88 ok 89 ok 90 ok 91 fetchall_arrayref hash slice ok 92 ok 93 ok 94 ok 95 fetchall_arrayref hash ok 96 ok 97 ok 98 ok 99 - '16895 0 .' ne '16895 0 .' rows() ok 100 - row count 47 ok 101 - 47 vs 47 ok 102 - 47 vs 47 fetchall_arrayref array slice and max rows ok 103 ok 104 ok 105 selectrow_array ok 106 ok 107 selectrow_hashref ok 108 ok 109 ok 110 ok 111 selectall_arrayref ok 112 ok 113 ok 114 ok 115 selectall_arrayref Slice array slice ok 116 ok 117 ok 118 - ". 16895" eq ". 16895" ok 119 selectall_arrayref Columns array slice ok 120 ok 121 ok 122 - ". 16895" eq ". 16895" ok 123 selectall_arrayref hash slice ok 124 ok 125 ok 126 ok 127 ok 128 ok 129 ok 130 selectall_hashref ok 131 - selectall_hashref result ok 132 - selectall_hashref HASH: HASH ok 133 ok 134 - 0 eq 0 selectall_hashref by column number ok 135 ok 136 - 0 eq 0 selectcol_arrayref ok 137 ok 138 ok 139 selectcol_arrayref column slice ok 140 ok 141 ok 142 ok 143 others... ok 144 ok 145 RaiseError & PrintError & ShowErrorStatement ok 146 ok 147 ok 148 ok 149 ok 150 ok 151 ok 152 ok 153 ok 154 ok 155 ok 156 ok 157 ok 158 ok 159 ok 160 ok 161 - DBD::ExampleP::st execute failed: 2 values bound when 1 expected [for Statement "select mode from ?" with ParamValues: 1='first', 2='second'] at DBI::PurePerl DBI::st::execute line 118. # ok 162 - DBD::ExampleP::st execute failed: 2 values bound when 1 expected [for Statement "select mode from ?" with ParamValues: 1='first', 2='second'] at DBI::PurePerl DBI::st::execute line 118. # ok 163 ok 164 ok 165 ok 166 ok 167 ok 168 HandleError ok 169 ok 170 HandleError -> die ok 171 ok 172 - HandleError: DBD::ExampleP::db prepare failed: Unknown field names: unknown_field_name2 [h=DBI::db=HASH(0x1e8ba6c), rv=undef, \#=3] at ./t/10examp.t line 395. # HandleError -> 0 -> RaiseError HandleError: DBD::ExampleP::db prepare failed: Unknown field names: unknown_field_name2 [h=DBI::db=HASH(0x1e8ba6c), rv=undef, #=3] ok 173 ok 174 - DBD::ExampleP::db prepare failed: Unknown field names: unknown_field_name2 at DBI::PurePerl DBI::db::prepare line 116. # HandleError -> 1 -> return (original)undef HandleError: DBD::ExampleP::db prepare failed: Unknown field names: unknown_field_name2 [h=DBI::db=HASH(0x1e8ba6c), rv=undef, #=3] ok 175 - ok 176 HandleError -> 2 -> return (modified)42 HandleError: DBD::ExampleP::db prepare failed: Unknown field names: unknown_field_name2 [h=DBI::db=HASH(0x1e8ba6c), rv=undef, #=3] ok 177 - ok 178 ok 179 ok 180 - The object isa DBI::st ok 181 ok 182 ok 183 ok 184 - Remove dumpcsr.tst ok 185 - Actually gone table_info ok 186 Local C:/cpanfly-5.12/var/cpan/build/DBI-1.613-Duq_2f subdirs: lib ex .. . blib t ok 187 ok 188 ok 189 tables ok 190 - Table count mismatch5 vs 5 ok 191 - "schema"."table" ne "schema"."table" ok 192 - "sch-ema"."table" ne "sch-ema"."table" ok 193 - "schema"."ta-ble" ne "schema"."ta-ble" ok 194 - "sch ema"."table" ne "sch ema"."table" ok 195 - "schema"."ta ble" ne "schema"."ta ble" Testing the fake directories (0). ok 196 ok 197 ok 198 - 0 rows instead of 0 ok 199 Testing the fake directories (100). ok 200 ok 201 ok 202 - 100 rows instead of 100 ok 203 - 'file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' ne 'file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' Testing the fake directories (200). ok 204 ok 205 ok 206 - 200 rows instead of 200 ok 207 - 'file200 file199 file198 file197 file196 file195 file194 file193 file192 file191 file190 file189 file188 file187 file186 file185 file184 file183 file182 file181 file180 file179 file178 file177 file176 file175 file174 file173 file172 file171 file170 file169 file168 file167 file166 file165 file164 file163 file162 file161 file160 file159 file158 file157 file156 file155 file154 file153 file152 file151 file150 file149 file148 file147 file146 file145 file144 file143 file142 file141 file140 file139 file138 file137 file136 file135 file134 file133 file132 file131 file130 file129 file128 file127 file126 file125 file124 file123 file122 file121 file120 file119 file118 file117 file116 file115 file114 file113 file112 file111 file110 file109 file108 file107 file106 file105 file104 file103 file102 file101 file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' ne 'file200 file199 file198 file197 file196 file195 file194 file193 file192 file191 file190 file189 file188 file187 file186 file185 file184 file183 file182 file181 file180 file179 file178 file177 file176 file175 file174 file173 file172 file171 file170 file169 file168 file167 file166 file165 file164 file163 file162 file161 file160 file159 file158 file157 file156 file155 file154 file153 file152 file151 file150 file149 file148 file147 file146 file145 file144 file143 file142 file141 file140 file139 file138 file137 file136 file135 file134 file133 file132 file131 file130 file129 file128 file127 file126 file125 file124 file123 file122 file121 file120 file119 file118 file117 file116 file115 file114 file113 file112 file111 file110 file109 file108 file107 file106 file105 file104 file103 file102 file101 file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' Testing $dbh->func(). ok 208 ok 209 ok 210 - ping should return false after disconnect ok t/zvp_11fetch.t ............ 1..24 # fetchall_hashref(C1) ok 1 ok 2 ok 3 ok 4 # fetchall_hashref(C2) ok 5 ok 6 ok 7 ok 8 # fetchall_hashref([C2]) ok 9 ok 10 ok 11 ok 12 # fetchall_hashref([C1 C2]) ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok t/zvp_12quote.t ............ 1..10 ok 1 - ... quoting strings with embedded single quotes ok 2 - ... quoting number as SQL_VARCHAR ok 3 - ... quoting number as SQL_INTEGER ok 4 - ... quoting undef as NULL ok 5 - ... properly quotes foo as "foo" ok 6 - ... properly quotes f"o as "f""o" ok 7 - ... properly quotes foo, bar as "foo"."bar" ok 8 - ... properly quotes undef, undef, bar as "bar" ok 9 - ... properly quotes foo, undef, bar as "foo"."bar" ok 10 - ... now quotes it as "bar"@"foo" after flushing cache ok t/zvp_13taint.t ............ skipped: Taint attributes not supported with DBI::PurePerl t/zvp_14utf8.t ............. 1..16 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok t/zvp_15array.t ............ 1..55 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - The object isa DBI::st ok 4 - ... we should have 0 rows ok 5 - ... execute_array should return false ok 6 - execute_array failure with RaiseError should have died ok 7 ok 8 - ... we should have 2 rows ok 9 - ... we should have 3 tuple_status ok 10 - ... our rows are as expected ok 11 - ... our tuple_status is as expected ok 12 - ... bind_param_array should return true ok 13 - ... execute_array should return true ok 14 - ... we should have 3 rows ok 15 - ... we should have 3 tuple_status ok 16 - ... our rows are as expected ok 17 - ... our tuple_status is as expected ok 18 - ... execute_array should return true ok 19 - ... we should have executed 3 rows ok 20 - ... we should have affected 3 rows ok 21 - ... execute_array should return true ok 22 - ... execute_array should return 0 (but true) ok 23 - ... we should have 0 rows ok 24 - ... we should have 0 tuple_status ok 25 - ... execute_array should return 1 ok 26 - ... we should have 1 rows ok 27 - ... our rows are as expected ok 28 - ... we should have 1 tuple_status ok 29 - ... our tuple_status is as expected ok 30 - ... execute_array should return 0 ok 31 - ... we should have 0 rows ok 32 - ... we should have 0 tuple_status ok 33 - The object isa DBI::st ok 34 - ... execute_array should return true ok 35 - ... execute_array should return 0 (but true) ok 36 - ... we should have 0 rows ok 37 - ... execute_array should return true ok 38 - ... we should have 2 rows ok 39 - ... we should have 2 tuple_status ok 40 - ... rows should match ok 41 - ... tuple_status should match ok 42 - The object isa DBI::st ok 43 - ... execute_array should return true ok 44 - ... we should have 3 rows ok 45 - ... we should have 3 tuple_status ok 46 - ... rows should match ok 47 - ... tuple status should match ok 48 - ... execute_array should return undef ok 49 - ... errstr is as expected ok 50 - ... execute_array should return undef ok 51 - ... errstr is as expected ok 52 - ... execute_array should return undef ok 53 - ... errstr is as expected ok 54 - ... bind_param_array should return undef ok 55 - ... errstr is as expected ok t/zvp_19fhtrace.t .......... 1..27 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - ... checking TraceLevel attribute ok 4 - ... regular fh: trace file successfully created ok 5 - ... regular fh: filehandle successfully set ok 6 - ... regular fh: trace_msg ok 7 - ... regular fh: file successfully changed Next logline ok 8 - ... regular fh: trace_msg after changing trace output ok 9 - Tracefile removed ok 10 - Tracefile FOO opened ok 11 - Tracefile created ok 12 - Regression test ok 13 - Traced message ok 14 - Regression test ok 15 - ... layered fh: file is layered: *** Test our layer # # ok 16 - ... layered fh: filehandle successfully set ok 17 - ... layered fh: trace_msg: Layered logline # # DBI::db=HASH(0x1e544fc) trace level set to 1 in DBI 1.613 (PurePerl) Full trace not available because DBI_TRACE is not in environment ok 18 - ... layered fh: close doesn't close: Layered logline # # Next logline ok 19 - ... layered fh: trace_msg after change trace output: Layered logline # # ok 20 - ... scalar trace: file is layered: *** Test our layer # # ok 21 - ... scalar trace: filehandle successfully set ok 22 - ... scalar trace: *** Test our layer # DBI::db=HASH(0x1e544fc) trace level set to 1 in DBI 1.613 (PurePerl) # Full trace not available because DBI_TRACE is not in environment # Layered logline # # DBI::db=HASH(0x1e544fc) trace level set to 1 in DBI 1.613 (PurePerl) Full trace not available because DBI_TRACE is not in environment ok 23 - ... scalar trace: close doesn't close: *** Test our layer # DBI::db=HASH(0x1e544fc) trace level set to 1 in DBI 1.613 (PurePerl) # Full trace not available because DBI_TRACE is not in environment # Layered logline # # Next logline ok 24 - ... scalar trace: after change trace output: *** Test our layer # DBI::db=HASH(0x1e544fc) trace level set to 1 in DBI 1.613 (PurePerl) # Full trace not available because DBI_TRACE is not in environment # Layered logline # # ok 25 - ... logger: trace_msg # DBI::db=HASH(0x1e544fc) trace level set to 1 in DBI 1.613 (PurePerl) Full trace not available because DBI_TRACE is not in environment ok 26 - ... logger: close doesn't close # Next logline ok 27 - ... logger: trace_msg after change trace output # ok t/zvp_20meta.t ............. 1..8 ok 1 - use DBI; ok 2 - use DBI::DBD::Metadata; ok 3 - The object isa DBI::db ok 4 ok 5 ok 6 ok 7 ok 8 ok t/zvp_30subclass.t ......... 1..36 ok 1 - use DBI; ok 2 - The object isa MyDBI::db ok 3 ok 4 - The object isa MyDBI::db ok 5 ok 6 ok 7 - The object isa MyDBI::st ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 - The reference isa ARRAY ok 16 ok 17 ok 18 ok 19 ok 20 - Clone A isa MyDBI::db ok 21 ok 22 ok 23 - Clone B isa MyDBI::db ok 24 ok 25 ok 26 - The object isa MyDBI::db ok 27 ok 28 - installed method isa ARRAY ok 29 ok 30 ok 31 ok 32 ok 33 - Failed connect \#1 ok 34 ok 35 - Failed connect \#2 ok 36 fetch 4 prepare 1 ok t/zvp_35thrclone.t ......... 1..20 ok 1 - use DBI; ok 2 - ... assignment of neat_maxlen was successful ok 3 - The object isa DBI::db ok 4 - ... DBI::neat_maxlen still holding its value ok 5 - The object isa DBI::db ok 6 - ... new $dbh is not the same instance as $dbh_parent ok 7 ok 8 - ... DBI::neat_maxlen still holding its value ok 9 - The object isa DBI::db ok 10 - ... new $dbh is not the same instance as $dbh_parent ok 11 ok 12 - ... DBI::neat_maxlen still holding its value ok 13 - The object isa DBI::db ok 14 - ... new $dbh is not the same instance as $dbh_parent ok 15 ok 16 - ... DBI::neat_maxlen still holding its value ok 17 - The object isa DBI::db ok 18 - ... new $dbh is not the same instance as $dbh_parent ok 19 ok 20 - ... all tests have passed ok t/zvp_40profile.t .......... skipped: profiling not supported for DBI::PurePerl t/zvp_41prof_dump.t ........ skipped: profiling not supported for DBI::PurePerl t/zvp_42prof_data.t ........ skipped: profiling not supported for DBI::PurePerl t/zvp_43prof_env.t ......... skipped: profiling not supported for DBI::PurePerl t/zvp_49dbd_file.t ......... ok 1 - use DBI; ok 2 - use DBD::File; ok 3 - Connect clean ok 4 - Can connect to DBD::File driver # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 5 - f_versions ok 6 - Connect with DBI attributes ok 7 - Connect with driver attributes in DSN ok 8 - Connect with driver attributes in hash ok 9 - Prepare select from non-existing file ok 10 - Cannot open non-existing file # C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\t_sbdgf_53442gz.txt ok 11 - drop manually created table db_2732_2 (first file) ok 12 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2732_2.txt removed ok 13 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2732_2 exists ok 14 - drop manually created table db_2732_2 (second file) ok 15 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2732_2 removed ok 16 - Create table db_2732_ ok 17 - Test table exists ok 18 - get single table meta data ok 19 - get multiple meta data ok 20 - encoding shows in layer ok 21 - set single meta datum ok 22 - verify set single meta datum ok 23 - set multiple meta data ok 24 - verify set multiple meta attributes ok 25 - Prepare select * from db_2732_ ok 26 - execute on db_2732_ ok 27 - Prepare select * from DB_2732_ ok 28 - execute on DB_2732_ ok 29 - table drop ok 30 - Test table removed 1..30 ok t/zvp_50dbm_simple.t ....... Using DBM modules: SDBM_File Using MLDBM serializers: Data::Dumper Storable FreezeThaw YAML JSON Test count: 1 x ( ( 5 + 18 ) + 5 x ( 5 + 21 ) ) = 153 1..153 --- Using SDBM_File () --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 1 - dbm_versions ok 2 - The object isa DBI::db ok 3 ok 4 ok 5 ok 6 - DROP TABLE IF EXISTS SDBM_File_fruit ok 7 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10)) ok 8 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' ) ok 9 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change' ) ok 10 - INSERT INTO SDBM_File_fruit VALUES (3, NULL ) ok 11 - INSERT INTO SDBM_File_fruit VALUES (4,'to delete' ) ok 12 - INSERT INTO SDBM_File_fruit VALUES (?,?) ok 13 - INSERT INTO SDBM_File_fruit VALUES (6,'to delete' ) ok 14 - INSERT INTO SDBM_File_fruit VALUES (7,'to_delete' ) ok 15 - DELETE FROM SDBM_File_fruit WHERE dVal='to delete' ok 16 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to delete') == $sth->rows ok 17 - UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2 ok 18 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2) == $sth->rows ok 19 - DELETE FROM SDBM_File_fruit WHERE dKey=7 ok 20 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=7) == $sth->rows ok 21 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 22 - SELECT results ok 23 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Data::Dumper) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 24 - dbm_versions ok 25 - The object isa DBI::db ok 26 ok 27 ok 28 ok 29 - DROP TABLE IF EXISTS SDBM_File_fruit ok 30 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 31 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 32 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 33 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 34 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 35 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 36 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 37 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 38 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 39 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 40 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 41 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 42 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 43 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 44 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 45 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 46 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 47 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 48 - SELECT results ok 49 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Storable) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 50 - dbm_versions ok 51 - The object isa DBI::db ok 52 ok 53 ok 54 ok 55 - DROP TABLE IF EXISTS SDBM_File_fruit ok 56 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 57 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 58 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 59 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 60 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 61 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 62 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 63 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 64 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 65 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 66 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 67 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 68 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 69 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 70 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 71 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 72 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 73 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 74 - SELECT results ok 75 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (FreezeThaw) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 76 - dbm_versions ok 77 - The object isa DBI::db ok 78 ok 79 ok 80 ok 81 - DROP TABLE IF EXISTS SDBM_File_fruit ok 82 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 83 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 84 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 85 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 86 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 87 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 88 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 89 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 90 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 91 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 92 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 93 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 94 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 95 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 96 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 97 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 98 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 99 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 100 - SELECT results ok 101 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (YAML) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 102 - dbm_versions ok 103 - The object isa DBI::db ok 104 ok 105 ok 106 ok 107 - DROP TABLE IF EXISTS SDBM_File_fruit ok 108 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 109 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 110 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 111 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 112 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 113 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 114 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 115 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 116 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 117 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 118 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 119 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 120 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 121 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 122 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 123 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 124 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 125 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 126 - SELECT results ok 127 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (JSON) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 128 - dbm_versions ok 129 - The object isa DBI::db ok 130 ok 131 ok 132 ok 133 - DROP TABLE IF EXISTS SDBM_File_fruit ok 134 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 135 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 136 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 137 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 138 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 139 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 140 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 141 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 142 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 143 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 144 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 145 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 146 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 147 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 148 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 149 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 150 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 151 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 152 - SELECT results ok 153 - DROP TABLE SDBM_File_fruit ok t/zvp_51dbm_file.t ......... ok 1 ok 2 - FRED.dir exists ok 3 - fred.dir exists ok 4 ok 5 ok 6 ok 7 1..7 ok t/zvp_52dbm_complex.t ...... skipped: Not running with SQL::Statement t/zvp_60preparse.t ......... skipped: preparse not supported for DBI::PurePerl t/zvp_65transact.t ......... 1..10 begin_work... ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok t/zvp_70callbacks.t ........ skipped: $h->{Callbacks} attribute not supported for DBI::PurePerl t/zvp_72childhandles.t ..... 1..16 ok 1 ok 2 ok 3 ok 4 ok 5 - All handles should be undef now ok 6 - ChildHandles should be an array-ref if wekref is available ok 7 drh DBI::dr=HASH(0x1df207c) dbh DBI::db=HASH(0x1e5233c) sth DBI::st=HASH(0x1dedafc) sth DBI::st=HASH(0x1e4a4ec) sth DBI::st=HASH(0x1e4a7fc) ok 8 ok 9 ok 10 ok 11 ok 12 - handles should be gone now ok 13 ok 14 ok 15 ok 16 ok t/zvp_80proxy.t ............ skipped: modules required for proxy are probably not installed (e.g., RPC/PlClient.pm) t/zvp_85gofer.t ............ # Transports: null pipeone stream stream_ssh # Policies: pedantic classic rush # Count: 0 # ============= # Testing null transport with pedantic policy # dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 1 - should connect to dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 2 ok 3 ok 4 ok 5 - should detect prepare failure ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 - go_response executed flag should be true ok 13 ok 14 ok 15 ok 16 # Testing go_request_count and caching of simple values ok 17 ok 18 ok 19 # use_remote=1 (policy=pedantic, transport=null) HASH(0x35dd634) ok 20 ok 21 ok 22 ok 23 # skip caching of metadata methods returning sth not yet implemented ok 24 # skip caching of metadata methods returning sth not yet implemented ok 25 ok 26 # ============= # Testing null transport with classic policy # dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 27 - should connect to dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 28 ok 29 ok 30 ok 31 - The object isa DBI::st ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 ok 38 - go_response executed flag should be true ok 39 ok 40 ok 41 ok 42 # Testing go_request_count and caching of simple values ok 43 ok 44 ok 45 # use_remote=0 (policy=classic, transport=null) HASH(0x35b92f4) ok 46 ok 47 ok 48 ok 49 # skip caching of metadata methods returning sth not yet implemented ok 50 # skip caching of metadata methods returning sth not yet implemented ok 51 ok 52 # ============= # Testing null transport with rush policy # dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 53 - should connect to dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 54 ok 55 ok 56 ok 57 - The object isa DBI::st ok 58 ok 59 ok 60 ok 61 ok 62 ok 63 ok 64 - go_response executed flag should be true ok 65 ok 66 ok 67 ok 68 # Testing go_request_count and caching of simple values ok 69 ok 70 ok 71 # use_remote=0 (policy=rush, transport=null) HASH(0x35ebc5c) ok 72 ok 73 ok 74 ok 75 # skip caching of metadata methods returning sth not yet implemented ok 76 # skip caching of metadata methods returning sth not yet implemented ok 77 ok 78 1..78 ok t/zvp_86gofer_fail.t ....... skipped: requires Callbacks which are not supported with PurePerl t/zvp_87gofer_cache.t ...... using DBI::Util::CacheMemory=HASH(0x1e2ef8c) for dbi:Gofer:transport=null;policy=classic;dsn=dbi:ExampleP: ok 1 ok 2 ok 3 - cache should be empty after clear ok 4 - transmit_count should be 0 ok 5 ok 6 - cache should not be empty after select ok 7 ok 8 ok 9 ok 10 - should make 1 round trip ok 11 - transmit_count should be 0 ok 12 ok 13 ok 14 - should make 1 round trip ok 15 ok 16 ok 17 using 1 for dbi:Gofer:transport=null;policy=classic;dsn=dbi:ExampleP: ok 18 ok 19 ok 20 - cache should be empty after clear ok 21 - transmit_count should be 0 ok 22 ok 23 - cache should not be empty after select ok 24 ok 25 ok 26 ok 27 - should make 1 round trip ok 28 - transmit_count should be 0 ok 29 ok 30 ok 31 - should make 1 round trip ok 32 ok 33 ok 34 test per-sth go_cache ok 35 ok 36 ok 37 ok 38 ok 39 ok 40 ok 41 ok 42 ok 43 ok 44 ok 45 ok 46 ok 47 1..47 ok t/zvp_90sql_type_cast.t .... 1..32 ok 1 - result, undef ok 2 # skip DiscardString not supported in PurePerl ok 3 # skip DiscardString not supported in PurePerl ok 4 - result, invalid sql type ok 5 - json invalid sql type ok 6 - result, non numeric cast to int ok 7 - json non numeric cast to int ok 8 - result, non numeric cast to int (strict) ok 9 - json non numeric cast to int (strict) ok 10 - result, small int cast to int ok 11 - json small int cast to int ok 12 - result, 2 byte max signed int cast to int ok 13 - json 2 byte max signed int cast to int ok 14 - result, 2 byte max unsigned int cast to int ok 15 - json 2 byte max unsigned int cast to int ok 16 - result, 4 byte max signed int cast to int ok 17 - json 4 byte max signed int cast to int ok 18 - result, 4 byte max unsigned int cast to int ok 19 - json 4 byte max unsigned int cast to int ok 20 - result, small int cast to int (discard) ok 21 # skip DiscardString not supported in PurePerl ok 22 # skip DiscardString not supported in PurePerl ok 23 - result, non numeric cast to numeric ok 24 - json non numeric cast to numeric ok 25 - result, non numeric cast to numeric (strict) ok 26 - json non numeric cast to numeric (strict) ok 27 - result, non numeric cast to double ok 28 - json non numeric cast to double ok 29 - nv not defined non numeric cast to double ok 30 - result, non numeric cast to double (strict) ok 31 - json non numeric cast to double (strict) ok 32 - nv not defined non numeric cast to double (strict) ok t/zvxgn_49dbd_file.t ....... ok 1 - use DBI; ok 2 - use DBD::File; ok 3 - Connect clean ok 4 - Can connect to DBD::File driver # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 5 - f_versions ok 6 - Connect with DBI attributes ok 7 - Connect with driver attributes in DSN ok 8 - Connect with driver attributes in hash ok 9 - Prepare select from non-existing file ok 10 - Cannot open non-existing file # C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\t_sbdgf_53442gz.txt ok 11 - drop manually created table db_2620_2 (first file) ok 12 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2620_2.txt removed ok 13 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2620_2 exists ok 14 - drop manually created table db_2620_2 (second file) ok 15 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2620_2 removed ok 16 - Create table db_2620_ ok 17 - Test table exists ok 18 - get single table meta data ok 19 - get multiple meta data ok 20 - encoding shows in layer ok 21 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 22 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 23 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 24 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 25 - Prepare select * from db_2620_ ok 26 # skip method intrusion didn't work with proxying ok 27 - Prepare select * from DB_2620_ ok 28 # skip method intrusion didn't work with proxying ok 29 - table drop ok 30 - Test table removed 1..30 ok t/zvxgn_50dbm_simple.t ..... Using DBM modules: SDBM_File Using MLDBM serializers: Data::Dumper Storable FreezeThaw YAML JSON Test count: 1 x ( ( 5 + 18 ) + 5 x ( 5 + 21 ) ) = 153 1..153 --- Using SDBM_File () --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 1 - dbm_versions ok 2 - The object isa DBI::db ok 3 # skip Can't set attributes after connect using DBD::Gofer ok 4 # skip Can't set attributes after connect using DBD::Gofer ok 5 ok 6 - DROP TABLE IF EXISTS SDBM_File_fruit ok 7 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10)) ok 8 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' ) ok 9 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change' ) ok 10 - INSERT INTO SDBM_File_fruit VALUES (3, NULL ) ok 11 - INSERT INTO SDBM_File_fruit VALUES (4,'to delete' ) ok 12 - INSERT INTO SDBM_File_fruit VALUES (?,?) ok 13 - INSERT INTO SDBM_File_fruit VALUES (6,'to delete' ) ok 14 - INSERT INTO SDBM_File_fruit VALUES (7,'to_delete' ) ok 15 - DELETE FROM SDBM_File_fruit WHERE dVal='to delete' not ok 16 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 17 - UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2 not ok 18 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 19 - DELETE FROM SDBM_File_fruit WHERE dKey=7 not ok 20 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=7) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=7) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 21 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 22 - SELECT results ok 23 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Data::Dumper) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 24 - dbm_versions ok 25 - The object isa DBI::db ok 26 # skip Can't set attributes after connect using DBD::Gofer ok 27 # skip Can't set attributes after connect using DBD::Gofer ok 28 ok 29 - DROP TABLE IF EXISTS SDBM_File_fruit ok 30 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 31 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 32 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 33 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 34 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 35 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 36 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 37 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 38 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 39 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 40 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 41 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 42 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 43 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 44 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 45 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 46 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 47 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 48 - SELECT results ok 49 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Storable) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 50 - dbm_versions ok 51 - The object isa DBI::db ok 52 # skip Can't set attributes after connect using DBD::Gofer ok 53 # skip Can't set attributes after connect using DBD::Gofer ok 54 ok 55 - DROP TABLE IF EXISTS SDBM_File_fruit ok 56 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 57 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 58 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 59 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 60 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 61 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 62 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 63 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 64 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 65 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 66 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 67 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 68 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 69 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 70 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 71 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 72 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 73 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 74 - SELECT results ok 75 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (FreezeThaw) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 76 - dbm_versions ok 77 - The object isa DBI::db ok 78 # skip Can't set attributes after connect using DBD::Gofer ok 79 # skip Can't set attributes after connect using DBD::Gofer ok 80 ok 81 - DROP TABLE IF EXISTS SDBM_File_fruit ok 82 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 83 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 84 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 85 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 86 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 87 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 88 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 89 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 90 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 91 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 92 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 93 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 94 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 95 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 96 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 97 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 98 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 99 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 100 - SELECT results ok 101 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (YAML) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 102 - dbm_versions ok 103 - The object isa DBI::db ok 104 # skip Can't set attributes after connect using DBD::Gofer ok 105 # skip Can't set attributes after connect using DBD::Gofer ok 106 ok 107 - DROP TABLE IF EXISTS SDBM_File_fruit ok 108 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 109 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 110 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 111 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 112 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 113 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 114 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 115 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 116 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 117 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 118 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 119 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 120 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 121 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 122 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 123 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 124 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 125 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 126 - SELECT results ok 127 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (JSON) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 128 - dbm_versions ok 129 - The object isa DBI::db ok 130 # skip Can't set attributes after connect using DBD::Gofer ok 131 # skip Can't set attributes after connect using DBD::Gofer ok 132 ok 133 - DROP TABLE IF EXISTS SDBM_File_fruit ok 134 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 135 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 136 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 137 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 138 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 139 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 140 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 141 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 142 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 143 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 144 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 145 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 146 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 147 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 148 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 149 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 150 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 151 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 152 - SELECT results ok 153 - DROP TABLE SDBM_File_fruit ok t/zvxgn_51dbm_file.t ....... ok 1 ok 2 - FRED.dir exists ok 3 - fred.dir exists ok 4 ok 5 ok 6 ok 7 1..7 ok t/zvxgn_52dbm_complex.t .... skipped: Not running with SQL::Statement t/zvxgn_85gofer.t .......... # Transports: null pipeone stream stream_ssh # Policies: pedantic classic rush # Count: 0 # ============= # Testing null transport with pedantic policy # dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 1 - should connect to dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 2 ok 3 ok 4 ok 5 - should detect prepare failure ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 - go_response executed flag should be true ok 13 ok 14 ok 15 ok 16 # Testing go_request_count and caching of simple values ok 17 ok 18 ok 19 # use_remote=1 (policy=pedantic, transport=null) HASH(0x302f6dc) ok 20 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 21 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 22 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 23 # skip caching of metadata methods returning sth not yet implemented ok 24 # skip caching of metadata methods returning sth not yet implemented ok 25 ok 26 # ============= # Testing null transport with classic policy # dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 27 - should connect to dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 28 ok 29 ok 30 ok 31 - The object isa DBI::st ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 ok 38 - go_response executed flag should be true ok 39 ok 40 ok 41 ok 42 # Testing go_request_count and caching of simple values ok 43 ok 44 ok 45 # use_remote=0 (policy=classic, transport=null) HASH(0x30234d4) ok 46 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 47 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 48 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 49 # skip caching of metadata methods returning sth not yet implemented ok 50 # skip caching of metadata methods returning sth not yet implemented ok 51 ok 52 # ============= # Testing null transport with rush policy # dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 53 - should connect to dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 54 ok 55 ok 56 ok 57 - The object isa DBI::st ok 58 ok 59 ok 60 ok 61 ok 62 ok 63 ok 64 - go_response executed flag should be true ok 65 ok 66 ok 67 ok 68 # Testing go_request_count and caching of simple values ok 69 ok 70 ok 71 # use_remote=0 (policy=rush, transport=null) HASH(0x303418c) ok 72 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 73 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 74 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 75 # skip caching of metadata methods returning sth not yet implemented ok 76 # skip caching of metadata methods returning sth not yet implemented ok 77 ok 78 1..78 ok t/zvxgnp_49dbd_file.t ...... ok 1 - use DBI; ok 2 - use DBD::File; ok 3 - Connect clean ok 4 - Can connect to DBD::File driver # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 5 - f_versions ok 6 - Connect with DBI attributes ok 7 - Connect with driver attributes in DSN ok 8 - Connect with driver attributes in hash ok 9 - Prepare select from non-existing file ok 10 - Cannot open non-existing file # C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\t_sbdgf_53442gz.txt ok 11 - drop manually created table db_3020_2 (first file) ok 12 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_3020_2.txt removed ok 13 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_3020_2 exists ok 14 - drop manually created table db_3020_2 (second file) ok 15 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_3020_2 removed ok 16 - Create table db_3020_ ok 17 - Test table exists ok 18 - get single table meta data ok 19 - get multiple meta data ok 20 - encoding shows in layer ok 21 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 22 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 23 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 24 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 25 - Prepare select * from db_3020_ ok 26 # skip method intrusion didn't work with proxying ok 27 - Prepare select * from DB_3020_ ok 28 # skip method intrusion didn't work with proxying ok 29 - table drop ok 30 - Test table removed 1..30 ok t/zvxgnp_50dbm_simple.t .... Using DBM modules: SDBM_File Using MLDBM serializers: Data::Dumper Storable FreezeThaw YAML JSON Test count: 1 x ( ( 5 + 18 ) + 5 x ( 5 + 21 ) ) = 153 1..153 --- Using SDBM_File () --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 1 - dbm_versions ok 2 - The object isa DBI::db ok 3 # skip Can't set attributes after connect using DBD::Gofer ok 4 # skip Can't set attributes after connect using DBD::Gofer ok 5 ok 6 - DROP TABLE IF EXISTS SDBM_File_fruit ok 7 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10)) ok 8 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' ) ok 9 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change' ) ok 10 - INSERT INTO SDBM_File_fruit VALUES (3, NULL ) ok 11 - INSERT INTO SDBM_File_fruit VALUES (4,'to delete' ) ok 12 - INSERT INTO SDBM_File_fruit VALUES (?,?) ok 13 - INSERT INTO SDBM_File_fruit VALUES (6,'to delete' ) ok 14 - INSERT INTO SDBM_File_fruit VALUES (7,'to_delete' ) ok 15 - DELETE FROM SDBM_File_fruit WHERE dVal='to delete' not ok 16 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 17 - UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2 not ok 18 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 19 - DELETE FROM SDBM_File_fruit WHERE dKey=7 not ok 20 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=7) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=7) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 21 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 22 - SELECT results ok 23 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Data::Dumper) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 24 - dbm_versions ok 25 - The object isa DBI::db ok 26 # skip Can't set attributes after connect using DBD::Gofer ok 27 # skip Can't set attributes after connect using DBD::Gofer ok 28 ok 29 - DROP TABLE IF EXISTS SDBM_File_fruit ok 30 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 31 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 32 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 33 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 34 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 35 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 36 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 37 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 38 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 39 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 40 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 41 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 42 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 43 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 44 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 45 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 46 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 47 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 48 - SELECT results ok 49 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Storable) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 50 - dbm_versions ok 51 - The object isa DBI::db ok 52 # skip Can't set attributes after connect using DBD::Gofer ok 53 # skip Can't set attributes after connect using DBD::Gofer ok 54 ok 55 - DROP TABLE IF EXISTS SDBM_File_fruit ok 56 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 57 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 58 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 59 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 60 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 61 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 62 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 63 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 64 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 65 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 66 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 67 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 68 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 69 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 70 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 71 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 72 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 73 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 74 - SELECT results ok 75 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (FreezeThaw) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 76 - dbm_versions ok 77 - The object isa DBI::db ok 78 # skip Can't set attributes after connect using DBD::Gofer ok 79 # skip Can't set attributes after connect using DBD::Gofer ok 80 ok 81 - DROP TABLE IF EXISTS SDBM_File_fruit ok 82 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 83 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 84 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 85 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 86 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 87 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 88 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 89 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 90 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 91 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 92 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 93 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 94 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 95 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 96 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 97 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 98 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 99 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 100 - SELECT results ok 101 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (YAML) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 102 - dbm_versions ok 103 - The object isa DBI::db ok 104 # skip Can't set attributes after connect using DBD::Gofer ok 105 # skip Can't set attributes after connect using DBD::Gofer ok 106 ok 107 - DROP TABLE IF EXISTS SDBM_File_fruit ok 108 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 109 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 110 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 111 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 112 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 113 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 114 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 115 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 116 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 117 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 118 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 119 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 120 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 121 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 122 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 123 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 124 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 125 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 126 - SELECT results ok 127 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (JSON) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 128 - dbm_versions ok 129 - The object isa DBI::db ok 130 # skip Can't set attributes after connect using DBD::Gofer ok 131 # skip Can't set attributes after connect using DBD::Gofer ok 132 ok 133 - DROP TABLE IF EXISTS SDBM_File_fruit ok 134 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 135 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 136 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 137 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 138 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 139 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 140 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 141 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 142 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 143 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 144 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 145 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 146 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 147 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 148 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 149 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 150 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 151 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 152 - SELECT results ok 153 - DROP TABLE SDBM_File_fruit ok t/zvxgnp_51dbm_file.t ...... ok 1 ok 2 - FRED.dir exists ok 3 - fred.dir exists ok 4 ok 5 ok 6 ok 7 1..7 ok t/zvxgnp_52dbm_complex.t ... skipped: Not running with SQL::Statement t/zvxgnp_85gofer.t ......... # Transports: null pipeone stream stream_ssh # Policies: pedantic classic rush # Count: 0 # ============= # Testing null transport with pedantic policy # dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 1 - should connect to dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 2 ok 3 ok 4 ok 5 - should detect prepare failure ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 - go_response executed flag should be true ok 13 ok 14 ok 15 ok 16 # Testing go_request_count and caching of simple values ok 17 ok 18 ok 19 # use_remote=1 (policy=pedantic, transport=null) HASH(0x33dc6c4) ok 20 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 21 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 22 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 23 # skip caching of metadata methods returning sth not yet implemented ok 24 # skip caching of metadata methods returning sth not yet implemented ok 25 ok 26 # ============= # Testing null transport with classic policy # dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 27 - should connect to dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 28 ok 29 ok 30 ok 31 - The object isa DBI::st ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 ok 38 - go_response executed flag should be true ok 39 ok 40 ok 41 ok 42 # Testing go_request_count and caching of simple values ok 43 ok 44 ok 45 # use_remote=0 (policy=classic, transport=null) HASH(0x339d8bc) ok 46 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 47 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 48 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 49 # skip caching of metadata methods returning sth not yet implemented ok 50 # skip caching of metadata methods returning sth not yet implemented ok 51 ok 52 # ============= # Testing null transport with rush policy # dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 53 - should connect to dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 54 ok 55 ok 56 ok 57 - The object isa DBI::st ok 58 ok 59 ok 60 ok 61 ok 62 ok 63 ok 64 - go_response executed flag should be true ok 65 ok 66 ok 67 ok 68 # Testing go_request_count and caching of simple values ok 69 ok 70 ok 71 # use_remote=0 (policy=rush, transport=null) HASH(0x33f3bdc) ok 72 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 73 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 74 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 75 # skip caching of metadata methods returning sth not yet implemented ok 76 # skip caching of metadata methods returning sth not yet implemented ok 77 ok 78 1..78 ok t/zvxgp_01basics.t ......... 1..130 ok 1 - use DBI; ok 2 - ... testing sql_type ok 3 - ... testing sql_type ok 4 - ... testing sql_type ok 5 - ... testing sql_type ok 6 - ... testing sql_type ok 7 - ... testing sql_type ok 8 - ... testing sql_type ok 9 - ... testing sql_type ok 10 - ... testing sql_type ok 11 - ... testing sql_type ok 12 - ... testing sql_type ok 13 - ... testing sql_type ok 14 - ... testing sql_type ok 15 - ... testing sql_type ok 16 - ... testing sql_type ok 17 - ... testing sql_type ok 18 - ... testing sql_type ok 19 - ... testing sql_type ok 20 - ... testing sql_type ok 21 - ... testing sql_type ok 22 - ... testing sql_type ok 23 - ... testing sql_type ok 24 - ... testing sql_type ok 25 - ... testing sql_type ok 26 - ... testing sql_type ok 27 - ... testing sql_type ok 28 - ... testing sql_type ok 29 - ... testing sql_type ok 30 - ... testing sql_type ok 31 - ... testing sql_type ok 32 - ... testing sql_type ok 33 - ... testing sql_type ok 34 - ... testing sql_type ok 35 - ... testing sql_type ok 36 - ... testing sql_type ok 37 - ... testing sql_type ok 38 - ... testing sql_type ok 39 - ... testing sql_type ok 40 - ... testing sql_type ok 41 - ... testing sql_type ok 42 - ... testing sql_type ok 43 - ... testing sql_type ok 44 - ... testing sql_type ok 45 - ... testing sql_type ok 46 - ... testing sql_type ok 47 - ... testing sql_type ok 48 - ... testing sql_type ok 49 - ... testing sql_type ok 50 - ... testing sql_type ok 51 - ... testing sql_type ok 52 - ... testing sql_type ok 53 - ... testing sql_type ok 54 - ... testing sql_type ok 55 - ... testing sql_type ok 56 - ... testing sql_type ok 57 - ... testing sql_type ok 58 - ... testing sql_type ok 59 - ... testing sql_type ok 60 - ... testing sql_cursor_types ok 61 - ... testing sql_cursor_types ok 62 - ... testing sql_cursor_types ok 63 - ... testing sql_cursor_types ok 64 - ... testing sql_cursor_types ok 65 - ... looks_like_number : undef -> undef ok 66 - ... looks_like_number : "" -> undef (eg "don't know") ok 67 - ... looks_like_number : "foo" -> defined false ok 68 - ... looks_like_number : "foo" -> defined false ok 69 - ... looks_like_number : 1 -> true ok 70 - ... looks_like_number : "." -> false ok 71 - ... looks_like_number : 1 -> true ok 72 - ... looks_like_number : 1 -> true ok 73 - ... 1000 initial state is 400 ok 74 - ... neat : 1 + 1 -> "2" ok 75 - ... neat : 2 -> "'2'" ok 76 - ... neat : undef -> "undef" ok 77 - ... test array argument w/seperator and maxlen ok 78 - ... test array argument w/out seperator or maxlen ok 79 - The object isa DBI::dr ok 80 - ... test debug ok 81 - ... test DebugDispatch ok 82 - ... test Warn ok 83 - ... this should say Tim Bunce ok 84 - ... the version should match DBI version ok 85 - ... this should work and return 1 ok 86 - ... this should equal 1 ok 87 - ... CachedKids should be undef initially ok 88 - ... CachedKids should be our ref ok 89 - ... this should be zero ok 90 - ... this should be zero ok 91 - ... Active flag is true ok 92 - ... we should get a warning here ok 93 - ... we should get a warning here ok 94 - ... we should get no warnings here ok 95 - ... we at least have one driver installed ok 96 - ... we should at least have ExampleP installed ok 97 - ... we should at least have one driver ok 98 - ... should be -1077531989 ok 99 - ... should be -1077531989 ok 100 - ... should be -1077531990 ok 101 # skip Seems like your Math::BigInt 1.89 has a bug ok 102 # skip Seems like your Math::BigInt 1.89 has a bug ok 103 ok 104 ok 105 ok 106 ok 107 ok 108 ok 109 ok 110 ok 111 ok 112 ok 113 ok 114 ok 115 ok 116 ok 117 ok 118 ok 119 ok 120 ok 121 ok 122 ok 123 ok 124 # skip developer tests ok 125 # skip developer tests ok 126 # skip developer tests ok 127 # skip developer tests ok 128 - ... DBI::dbi_debug's initial state is 0 ok 129 - ... DBI::dbi_debug is 15 ok 130 - ... DBI::dbi_debug is 0 ok t/zvxgp_02dbidrv.t ......... 1..53 ok 1 - use DBI; ok 2 - ... check DBD::Test::dr::imp_data_size to avoid typo ok 3 - ... check DBD::Test::db::imp_data_size to avoid typo ok 4 - ... DBD::Test->driver called to getnew Driver handle ok 5 - ... new Driver handle (DBI::dr=HASH(0x19ca594)) created successfully ok 6 - The object isa DBI::dr ok 7 - ... got a Test Driver object back from DBI->install_driver ok 8 - The object isa DBI::dr ok 9 - ... checking the DBI::_get_imp_data function ok 10 - ... Driver object passed to data_sources ok 11 - The object isa DBI::dr ok 12 - ... Driver object is not tied ok 13 - ... got correct datasources from DBI->data_sources("Test") ok 14 # skip Kids attribute not supported under DBI::PurePerl ok 15 - ... got a database handle from calling $drh->connect ok 16 - The object isa DBI::db ok 17 # skip Kids attribute not supported under DBI::PurePerl ok 18 - ... Driver object passed to data_sources ok 19 - The object isa DBI::dr ok 20 - ... Driver object is not tied ok 21 - ... checking fetched datasources from Driver ok 22 - ... got correct datasources from $dbh->data_sources() ok 23 - ... Database object passed to do ok 24 - The object isa DBI::db ok 25 - ... Database object is not tied ok 26 - ... got Driver object from Database object with Driver attribute ok 27 - The object isa DBI::dr ok 28 - ... Driver object is not tied ok 29 - ... got Driver object from Database object by FETCH-ing Driver attribute ok 30 - The object isa DBI::dr ok 31 # skip running DBI::PurePerl ok 32 - ... this will trigger more driver internal tests above in DBD::Test::db ok 33 - ... checking Driver handle err set with set_err method ok 34 - ... checking Database handle err set with set_err method ok 35 - ... checking Database handle err set with Driver handle set_err method ok 36 # skip Kids attribute not supported under DBI::PurePerl ok 37 - ... $dbh->DESTROY should set $drh->err to 42 ok 38 - ... checking $DBI::err set with Driver handle set_err method ok 39 - ... checking $DBI::errstr ok 40 - ... checking $DBI::state ok 41 - ... checking $DBI::state ok 42 - ... checking $DBI::state ok 43 # skip using DBI::PurePerl ok 44 - ... FetchHashKeyName is NAME ok 45 - ... FetchHashKeyName is now changed to NAME_lc ok 46 - ... calling $drh->disconnect_all (not implemented but will fail silently) ok 47 - has dbixs_revision ok 48 - has integer dbixs_revision ok 49 # skip using DBI::PurePerl ok 50 # skip using DBI::PurePerl ok 51 # skip using DBI::PurePerl ok 52 # skip using DBI::PurePerl ok 53 # skip using DBI::PurePerl ok t/zvxgp_03handle.t ......... 1..137 ok 1 - use DBI; ok 2 ok 3 - The object isa DBI::dr ok 4 # skip Kids attribute not supported under DBI::PurePerl ok 5 ok 6 ok 7 ok 8 - The object isa DBI::db ok 9 # skip Kids and ActiveKids attributes not supported under DBI::PurePerl ok 10 # skip Kids and ActiveKids attributes not supported under DBI::PurePerl ok 11 - The object isa DBI::st ok 12 - ... execute ran successfully ok 13 - ... we got the CachedKids hash ok 14 - ... there is one CachedKid ok 15 - ... our statment handle should be in the CachedKids ok 16 - ... our first statment is Active ok 17 - The object isa DBI::st ok 18 - ... prepare_cached returned the same statement handle ok 19 - ... we got warned about our first statement handle being still active ok 20 - ... our first statment is no longer Active since we re-prepared it ok 21 - The object isa DBI::st ok 22 - ... prepare_cached returned a different statement handle now ok 23 - ... there are two CachedKids ok 24 - ... both statment handles should be in the CachedKids ok 25 - ... executing first statement handle again ok 26 - ... first statement handle is now active again ok 27 - The object isa DBI::st ok 28 - ... our fourth statement handle is not the same as our first ok 29 - ... first statement handle is still active ok 30 - ... there are two CachedKids ok 31 - ... second and fourth statment handles should be in the CachedKids ok 32 - ... first statement handle is no longer active ok 33 - ... fourth statement handle executed properly ok 34 - ... fourth statement handle is Active ok 35 - The object isa DBI::st ok 36 - ... we still only got one warning ok 37 - ... fourth statement handle and fifth one match ok 38 - ... fourth statement handle is not Active ok 39 - ... fifth statement handle is not Active (shouldnt be its the same as fifth) ok 40 - ... there are two CachedKids ok 41 - ... second and fourth/fifth statment handles should be in the CachedKids ok 42 # skip swap_inner_handle() not supported under DBI::PurePerl ok 43 # skip swap_inner_handle() not supported under DBI::PurePerl ok 44 # skip swap_inner_handle() not supported under DBI::PurePerl ok 45 # skip swap_inner_handle() not supported under DBI::PurePerl ok 46 # skip swap_inner_handle() not supported under DBI::PurePerl ok 47 # skip swap_inner_handle() not supported under DBI::PurePerl ok 48 # skip swap_inner_handle() not supported under DBI::PurePerl ok 49 # skip swap_inner_handle() not supported under DBI::PurePerl ok 50 # skip swap_inner_handle() not supported under DBI::PurePerl ok 51 # skip swap_inner_handle() not supported under DBI::PurePerl ok 52 # skip swap_inner_handle() not supported under DBI::PurePerl ok 53 # skip swap_inner_handle() not supported under DBI::PurePerl ok 54 # skip swap_inner_handle() not supported under DBI::PurePerl ok 55 # skip swap_inner_handle() not supported under DBI::PurePerl ok 56 # skip swap_inner_handle() not supported under DBI::PurePerl ok 57 # skip swap_inner_handle() not supported under DBI::PurePerl ok 58 # skip swap_inner_handle() not supported under DBI::PurePerl ok 59 # skip swap_inner_handle() not supported under DBI::PurePerl ok 60 # skip swap_inner_handle() not supported under DBI::PurePerl ok 61 # skip swap_inner_handle() not supported under DBI::PurePerl ok 62 # skip swap_inner_handle() not supported under DBI::PurePerl ok 63 # skip swap_inner_handle() not supported under DBI::PurePerl ok 64 # skip swap_inner_handle() not supported under DBI::PurePerl ok 65 - ping should be true before disconnect ok 66 - ping should be false after disconnect ok 67 # skip Kids and ActiveKids attributes not supported under DBI::PurePerl ok 68 # skip Kids and ActiveKids attributes not supported under DBI::PurePerl ok 69 # skip Kids attribute not supported under DBI::PurePerl ok 70 # skip Kids attribute not supported under DBI::PurePerl ok 71 # skip Kids attribute not supported under DBI::PurePerl ok 72 # skip Kids attribute not supported under DBI::PurePerl ok 73 # skip Kids attribute not supported under DBI::PurePerl ok 74 # skip Kids attribute not supported under DBI::PurePerl ok 75 # skip Kids attribute not supported under DBI::PurePerl ok 76 # skip Kids attribute not supported under DBI::PurePerl ok 77 # skip Kids attribute not supported under DBI::PurePerl ok 78 # skip Kids attribute not supported under DBI::PurePerl ok 79 # skip Kids attribute not supported under DBI::PurePerl ok 80 # skip Kids attribute not supported under DBI::PurePerl ok 81 # skip Kids attribute not supported under DBI::PurePerl ok 82 # skip Kids attribute not supported under DBI::PurePerl ok 83 # skip Kids attribute not supported under DBI::PurePerl ok 84 # skip Kids attribute not supported under DBI::PurePerl ok 85 # skip Kids attribute not supported under DBI::PurePerl ok 86 # skip Kids attribute not supported under DBI::PurePerl ok 87 # skip Kids attribute not supported under DBI::PurePerl ok 88 # skip Kids attribute not supported under DBI::PurePerl ok 89 # skip Kids attribute not supported under DBI::PurePerl ok 90 # skip Kids attribute not supported under DBI::PurePerl ok 91 # skip Kids attribute not supported under DBI::PurePerl ok 92 # skip Kids attribute not supported under DBI::PurePerl ok 93 # skip Kids attribute not supported under DBI::PurePerl ok 94 # skip Kids attribute not supported under DBI::PurePerl ok 95 # skip take_imp_data test not supported under DBD::Gofer ok 96 # skip take_imp_data test not supported under DBD::Gofer ok 97 # skip take_imp_data test not supported under DBD::Gofer ok 98 # skip take_imp_data test not supported under DBD::Gofer ok 99 # skip take_imp_data test not supported under DBD::Gofer ok 100 # skip take_imp_data test not supported under DBD::Gofer ok 101 # skip take_imp_data test not supported under DBD::Gofer ok 102 # skip take_imp_data test not supported under DBD::Gofer ok 103 # skip take_imp_data test not supported under DBD::Gofer ok 104 # skip take_imp_data test not supported under DBD::Gofer ok 105 # skip take_imp_data test not supported under DBD::Gofer ok 106 # skip take_imp_data test not supported under DBD::Gofer ok 107 # skip take_imp_data test not supported under DBD::Gofer ok 108 # skip take_imp_data test not supported under DBD::Gofer ok 109 # skip take_imp_data test not supported under DBD::Gofer ok 110 # skip take_imp_data test not supported under DBD::Gofer ok 111 # skip take_imp_data test not supported under DBD::Gofer ok 112 # skip take_imp_data test not supported under DBD::Gofer ok 113 # skip take_imp_data test not supported under DBD::Gofer ok 114 # skip Kids attribute not supported under DBI::PurePerl ok 115 - The object isa DBI::dr ok 116 # skip Kids attribute not supported under DBI::PurePerl ok 117 - The object isa DBI::db ok 118 - The object isa DBI::st ok 119 - ... NUM_OF_PARAMS is 0 ok 120 - ... NUM_OF_FIELDS should be undef ok 121 - ... Statement is "foo bar" ok 122 - ... NAME is undefined ok 123 - ... TYPE is undefined ok 124 - ... SCALE is undefined ok 125 - ... PRECISION is undefined ok 126 - ... NULLABLE is undefined ok 127 - ... RowsInCache is undefined ok 128 - ... ParamValues is undefined ok 129 - ... NAME_uc is undefined ok 130 - ... NAME_lc is undefined ok 131 - ... NAME_hash is undefined ok 132 - ... NAME_uc_hash is undefined ok 133 - ... NAME_lc_hash is undefined ok 134 - ... $dbh can call "prepare" ok 135 - ... $dbh cannot call "nonesuch" ok 136 - ... $sth can call "execute" ok 137 # skip Kids attribute not supported under DBI::PurePerl ok t/zvxgp_04mods.t ........... 1..12 ok 1 - use DBI; ok 2 - use DBI::Const::GetInfo::ANSI; ok 3 - use DBI::Const::GetInfo::ODBC; ok 4 - use DBI::Const::GetInfoType; ok 5 - use DBI::Const::GetInfoReturn; ok 6 - ... we have at least one key in the GetInfoType hash ok 7 - ... the GetInfoType hash is constructed from the ANSI and ODBC hashes ok 8 - ... we have at least one key in the GetInfoReturnType hash ok 9 - ... the GetInfoReturnType hash is constructed from the ANSI and ODBC hashes ok 10 - ... we have at least one key in the GetInfoReturnValues hash ok 11 - DBI::Const::GetInfoReturn->can('Format') ok 12 - DBI::Const::GetInfoReturn->can('Explain') ok t/zvxgp_05concathash.t ..... 1..41 ok 1 - use DBI; ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 - should work with nul bytes in kv_sep and pair_sep ok 10 - should work with nul bytes in hash value (neat) ok 11 - should work with nul bytes in hash value (not neat) ok 12 ok 13 ok 14 ok 15 - test ok 16 - test ok 17 - Unknown sort order ok 18 - Float Hash - Not Neat lexical ok 19 - Numeric - Not Neat lexical ok 20 - Mixed Hash - Not Neat lexical ok 21 - Simple Hash - Not Neat lexical ok 22 - Float Hash - Neat lexical ok 23 - Numeric - Neat lexical ok 24 - Mixed Hash - Neat lexical ok 25 - Simple Hash - Neat lexical ok 26 - Float Hash - Not Neat guess ok 27 - Numeric - Not Neat guess ok 28 - Mixed Hash - Not Neat guess ok 29 - Simple Hash - Not Neat guess ok 30 - Float Hash - Neat guess ok 31 - Numeric - Neat guess ok 32 - Mixed Hash - Neat guess ok 33 - Simple Hash - Neat guess ok 34 - Float Hash - Not Neat numeric ok 35 - Numeric - Not Neat numeric ok 36 - Mixed Hash - Not Neat numeric ok 37 - Simple Hash - Not Neat numeric ok 38 - Float Hash - Neat numeric ok 39 - Numeric - Neat numeric ok 40 - Mixed Hash - Neat numeric ok 41 - Simple Hash - Neat numeric ok t/zvxgp_06attrs.t .......... 1..145 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - ... checking Warn attribute for dbh ok 4 - ... checking Active attribute for dbh ok 5 - ... checking AutoCommit attribute for dbh ok 6 - ... checking CompatMode attribute for dbh ok 7 - ... checking InactiveDestory attribute for dbh ok 8 - ... checking PrintError attribute for dbh ok 9 - ... checking PrintWarn attribute for dbh ok 10 - ... checking RaiseError attribute for dbh ok 11 - ... checking ShowErrorStatement attribute for dbh ok 12 - ... checking ChopBlanks attribute for dbh ok 13 - ... checking LongTrunkOk attribute for dbh ok 14 - ... checking TaintIn attribute for dbh ok 15 - ... checking TaintOut attribute for dbh ok 16 - ... checking Taint attribute for dbh ok 17 - ... checking Executed attribute for dbh ok 18 - ... checking ErrCount attribute for dbh ok 19 # skip Kids and ActiveKids attribute not supported under DBI::PurePerl ok 20 # skip Kids and ActiveKids attribute not supported under DBI::PurePerl ok 21 - ... checking CachedKids attribute for dbh ok 22 - ... checking HandleError attribute for dbh ok 23 - ... checking Profile attribute for dbh ok 24 - ... checking Statement attribute for dbh ok 25 - ... checking RowCacheSize attribute for dbh ok 26 - ... checking ReadOnly attribute for dbh ok 27 - ... checking FetchHashKeyName attribute for dbh ok 28 ok 29 - ... checking TraceLevel attribute for dbh ok 30 - ... checking LongReadLen attribute for dbh ok 31 - should be able to FETCH_many ok 32 - should see driver-private dbh attribute value ok 33 - ... catching exception ok 34 - ... $dbh->err is undefined ok 35 - ... checking $dbh->errstr ok 36 - ... checking $dbh->state ok 37 - ... checking Executed attribute for dbh ok 38 - ... checking Executed attribute for dbh (after reset) ok 39 - ... checking ErrCount attribute for dbh (after error was generated) ok 40 - The object isa DBI::dr ok 41 - ... checking $dbh->err ok 42 - ... checking ErrCount attribute for drh ok 43 - ... checking Warn attribute for drh ok 44 - ... checking Active attribute for drh ok 45 - ... checking AutoCommit attribute for drh ok 46 - ... checking CompatMode attribute for drh ok 47 - ... checking InactiveDestory attribute for drh ok 48 - ... checking PrintError attribute for drh ok 49 - ... checking PrintWarn attribute for drh ok 50 - ... checking RaiseError attribute for drh ok 51 - ... checking ShowErrorStatement attribute for drh ok 52 - ... checking ChopBlanks attribute for drh ok 53 - ... checking LongTrunkOk attribute for drh ok 54 - ... checking TaintIn attribute for drh ok 55 - ... checking TaintOut attribute for drh ok 56 - ... checking Taint attribute for drh ok 57 # skip Executed attribute not supported under DBI::PurePerl ok 58 # skip Kids and ActiveKids attribute not supported under DBI::PurePerl ok 59 # skip Kids and ActiveKids attribute not supported under DBI::PurePerl ok 60 - ... checking CachedKids attribute for drh ok 61 - ... checking HandleError attribute for drh ok 62 - ... checking Profile attribute for drh ok 63 - ... checking ReadOnly attribute for drh ok 64 - ... checking TraceLevel attribute for drh ok 65 - ... checking LongReadLen attribute for drh ok 66 - ... checking FetchHashKeyName attribute for drh ok 67 ok 68 - The object isa DBI::st ok 69 - ... checking Executed attribute for sth ok 70 - ... checking Executed attribute for dbh ok 71 - ... checking ErrCount attribute for sth ok 72 - ... checking exception ok 73 - ... checking $sth->errstr ok 74 - ... checking $sth->state ok 75 - ... checking Executed attribute for sth ok 76 - ... checking Exceuted attribute for dbh ok 77 - ... checking ErrCount attribute for sth ok 78 - ... checking exception ok 79 - ... checking ErrCount attribute for sth (after assignment) ok 80 - ... checking ErrCount attribute for sth (after reset) ok 81 - ... checking Warn attribute for sth ok 82 - ... checking Active attribute for sth ok 83 - ... checking CompatMode attribute for sth ok 84 - ... checking InactiveDestroy attribute for sth ok 85 - ... checking PrintError attribute for sth ok 86 - ... checking PrintWarn attribute for sth ok 87 - ... checking RaiseError attribute for sth ok 88 - ... checking ShowErrorStatement attribute for sth ok 89 - ... checking ChopBlanks attribute for sth ok 90 - ... checking LongTrunkOk attribute for sth ok 91 - ... checking TaintIn attribute for sth ok 92 - ... checking TaintOut attribute for sth ok 93 - ... checking Taint attribute for sth ok 94 # skip Kids and ActiveKids attribute not supported under DBI::PurePerl ok 95 # skip Kids and ActiveKids attribute not supported under DBI::PurePerl ok 96 - ... checking CachedKids attribute for sth ok 97 - ... checking HandleError attribute for sth ok 98 - ... checking Profile attribute for sth ok 99 - ... checking ReadOnly attribute for sth ok 100 - ... checking TraceLevel attribute for sth ok 101 - ... checking LongReadLen attribute for sth ok 102 - ... checking FetchHashKeyName attribute for sth ok 103 - ... checking CursorName attribute for sth ok 104 - ... checking NUM_OF_FIELDS attribute for sth ok 105 - ... checking NUM_OF_PARAMS attribute for sth ok 106 - ... checking type of NAME attribute for sth ok 107 - ... checking number of elements returned ok 108 - ... checking values returned ok 109 - ... checking type of NAME_lc attribute for sth ok 110 - ... checking number of elements returned ok 111 - ... checking values returned ok 112 - ... checking type of NAME_uc attribute for sth ok 113 - ... checking number of elements returned ok 114 - ... checking values returned ok 115 - ... checking type of NAME_hash attribute for sth ok 116 - ... checking number of keys returned ok 117 - ... checking values returned ok 118 - ... checking values returned ok 119 - ... checking type of NAME_lc_hash attribute for sth ok 120 - ... checking number of keys returned ok 121 - ... checking values returned ok 122 - ... checking values returned ok 123 - ... checking type of NAME_uc_hash attribute for sth ok 124 - ... checking number of keys returned ok 125 - ... checking values returned ok 126 - ... checking values returned ok 127 - ... checking type of TYPE attribute for sth ok 128 - ... checking number of elements returned ok 129 - ... checking values returned ok 130 - ... checking type of NULLABLE attribute for sth ok 131 - ... checking number of elements returned ok 132 - ... checking values returned ok 133 - ... checking type of PRECISION attribute for sth ok 134 - ... checking number of elements returned ok 135 - ... checking values returned ok 136 - ... checking type of SCALE attribute for sth ok 137 - ... checking number of elements returned ok 138 - ... checking values returned ok 139 - ... checking type of ParamValues attribute for sth ok 140 - ... checking values returned ok 141 - ... checking Statement attribute for sth ok 142 - ... checking type of RowsInCache attribute for sth ok 143 - should see driver-private sth attribute value Checking inheritance ok 144 # skip drh->dbh->sth inheritance test skipped with DBI_AUTOPROXY ok 145 # skip drh->dbh->sth inheritance test skipped with DBI_AUTOPROXY ok t/zvxgp_07kids.t ........... skipped: $h->{Kids} attribute not supported for DBI::PurePerl t/zvxgp_08keeperr.t ........ 1..69 ok 1 - use DBI; ok 2 - ... checking error ok 3 - ... checking error Test HandleSetErr ok 4 - The object isa DBI::db ok 5 - ... $DBI::err is not defined HandleSetErr called: h=DBI::db=HASH(0x202869c), err=, errstr=(got info), state= ok 6 - ... $DBI::err is defined ok 7 - ... $DBI::err is an empty string ok 8 - ... $DBI::errstr is as we expected ok 9 - ... $dbh->errstr matches $DBI::errstr ok 10 - ... $warn{failed} is 0 ok 11 - ... $warn{warning} is 0 ok 12 - ... the @handlewarn array is (1, 0, 0) HandleSetErr called: h=DBI::db=HASH(0x202869c), err=0, errstr=(got warn), state=AA001 warn: 'DBD::Gofer::db set_err warning: (got info)\n(got warn) at ./t/08keeperr.t line 131\n' ok 13 - ... $DBI::err is defined ok 14 - ... $DBI::err is "0" ok 15 - ... $DBI::errstr is as we expected ok 16 - ... $dbh->errstr matches $DBI::errstr ok 17 - ... $DBI::state is AA001 ok 18 - ... $warn{warning} is 1 ok 19 - ... the @handlewarn array is (1, 1, 0) HandleSetErr called: h=DBI::db=HASH(0x202869c), err=, errstr=(got more info), state= warn: 'DBD::Gofer::db set_err warning: (got info)\n(got warn)\n(got more info) at ./t/08keeperr.t line 146\n' ok 20 - ... $DBI::err is defined ok 21 - ... $DBI::err is "0" ok 22 - ... $dbh->err is "0" ok 23 - ... $DBI::state is AA001 ok 24 - ... $DBI::errstr is as we expected ok 25 - ... $dbh->errstr matches $DBI::errstr ok 26 - ... $warn{warning} is 2 ok 27 - ... the @handlewarn array is (2, 1, 0) warn: 'DBD::Gofer::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error) at ./t/08keeperr.t line 167\n' ok 28 - ... $DBI::err is defined ok 29 - ... $DBI::err is 42 ok 30 - ... $warn{warning} is 2 ok 31 - ... $dbh->errstr is as we expected ok 32 - ... $DBI::state is AA002 ok 33 - ... the @handlewarn array is (2, 1, 1) HandleSetErr called: h=DBI::db=HASH(0x202869c), err=, errstr=(got info), state= warn: 'DBD::Gofer::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info) at ./t/08keeperr.t line 179\n' ok 34 - ... $DBI::err is defined ok 35 - ... $DBI::err is 42 ok 36 - ... $warn{warning} is 2 ok 37 - ... $dbh->errstr is as we expected ok 38 - ... the @handlewarn array is (3, 1, 1) HandleSetErr called: h=DBI::db=HASH(0x202869c), err=0, errstr=(got warn), state= warn: 'DBD::Gofer::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info)\n(got warn) at ./t/08keeperr.t line 190\n' ok 39 - ... $DBI::err is defined ok 40 - ... $DBI::err is 42 ok 41 - ... $warn{warning} is 2 ok 42 - ... $dbh->errstr is as we expected ok 43 - ... the @handlewarn array is (3, 2, 1) warn: 'DBD::Gofer::db set_err failed: (got info)\n(got warn)\n(got more info) [state was AA001 now AA002]\n(got error)\n(got info)\n(got warn) [err was 42 now 4200] [state was AA002 now AA003]\n(got new error) at ./t/08keeperr.t line 201\n' ok 44 - ... $DBI::err is defined ok 45 - ... $DBI::err is 4200 ok 46 - ... $warn{warning} is 2 ok 47 - ... $dbh->errstr is as we expected ok 48 - ... the @handlewarn array is (3, 2, 2) ok 49 - ... $dbh->errstr is defined ok 50 - ... $dbh->err is defined ok 51 - ... $dbh->state is an empty string warn: 'DBD::Gofer::db set_err failed: foo at ./t/08keeperr.t line 226\n' ok 52 - ... only returned one value ok 53 - ... the first value is undefined warn: 'DBD::Gofer::db set_err failed: foo [err was 1 now 2]\nbar at ./t/08keeperr.t line 230\n' ok 54 - ... $dbh->set_err returned undefiend warn: 'DBD::Gofer::db set_err failed: foo [err was 1 now 2]\nbar [err was 2 now 3]\nbaz at ./t/08keeperr.t line 231\n' ok 55 - ... $dbh->set_err returned undefiend HandleSetErr called: h=DBI::db=HASH(0x202869c), err=0, errstr=warn, state= warn: 'DBD::Gofer::db set_err failed: foo [err was 1 now 2]\nbar [err was 2 now 3]\nbaz\nwarn at ./t/08keeperr.t line 232\n' ok 56 - ... $dbh->set_err returned undefiend ok 57 - ... $dbh->errstr is as we expected ok 58 - ... $warn{failed} is 4 ok 59 - ... the @handlewarn array is (0, 1, 3) warn: 'DBD::Gofer::db method failed: foo at ./t/08keeperr.t line 242\n' ok 60 - ... only returned one value ok 61 - ... the first value is undefined warn: 'DBD::Gofer::db method failed: foo at ./t/08keeperr.t line 246\n' ok 62 - ... only returned one value ok 63 - ... the first value is "42" warn: 'DBD::Gofer::db method failed: foo at ./t/08keeperr.t line 250\n' ok 64 - ... returned no values HandleSetErr called: h=DBI::db=HASH(0x202869c), err=, errstr=info, state=override warn: 'DBD::Gofer::db set_err failed: errstr99 at ./t/08keeperr.t line 257\n' ok 65 - ... only returned one value ok 66 - ... the first value is undefined ok 67 - ... $dbh->err is 99 ok 68 - ... $dbh->errstr is as we expected ok 69 - ... $dbh->state is as we expected ok t/zvxgp_09trace.t .......... 1..67 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - trace file size = 11651 ok 4 - ... checking TraceLevel attribute ok 5 - ... trace file successfully created parse_trace_flag SQL ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 parse_trace_flag foo ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 parse_trace_flag bar ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok 28 ok 29 parse_trace_flag baz ok 30 ok 31 ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 parse_trace_flag boo ok 38 ok 39 ok 40 ok 41 ok 42 ok 43 ok 44 ok 45 parse_trace_flag bop ok 46 ok 47 ok 48 ok 49 ok 50 ok 51 ok 52 ok 53 parse_trace_flag SQL foo bar baz boo bop ok 54 - ... ok 55 - ... inherit ok 56 - The object isa DBI::st ok 57 ok 58 ok 59 test unknown parse_trace_flag ok 60 ok 61 caught warn: DBI::db=HASH(0x2150eec)->parse_trace_flags(nonesuch) ignored unknown trace flags: 'nonesuch' at DBI::PurePerl DBI::common::parse_trace_flags line 49 ok 62 ok 63 caught warn: DBI::db=HASH(0x2155cfc)->parse_trace_flags(nonesuch|SQL|nonesuch2) ignored unknown trace flags: 'nonesuch' 'nonesuch2' at DBI::PurePerl DBI::common::parse_trace_flags line 49 ok 64 ok 65 ok 66 ok 67 ok t/zvxgp_10examp.t .......... 1..210 ok 1 - connect should fail ok 2 - ... we should have an exception here ok 3 - ... $dbh2 should not be defined ok 4 ok 5 ok 6 - ... these 2 handles are cached, so they are the same ok 7 ok 8 - ... this handle was created with different parameters, so it is not the same ok 9 ok 10 - Executed should be true ok 11 ok 12 - should return same handle ok 13 - Executed should be false because reset by connect attributes ok 14 - The object isa DBI::dr ok 15 - ... these are our cached kids ok 16 - ... we have emptied out cache ok 17 ok 18 - ... PrintError should be 0 ok 19 - ... FetchHashKey is NAME ok 20 - ... checking the example driver_path others ok 21 ok 22 - ping should return true ok 23 - prepare should fail ok 24 - sth->err should be true ok 25 - DBI::err should be true ok 26 - $DBI::err should match $dbh->err ok 27 - $DBI::errstr should contain error string ok 28 - $DBI::errstr should match $dbh->errstr ok 29 ok 30 ok 31 ok 32 # skip inner/outer handles not fully supported for DBI::PurePerl ok 33 # skip inner/outer handles not fully supported for DBI::PurePerl ok 34 # skip inner/outer handles not fully supported for DBI::PurePerl ok 35 ok 36 ok 37 ok 38 ok 39 ok 40 ok 41 ok 42 ok 43 ok 44 ok 45 ok 46 ok 47 ok 48 ok 49 ok 50 ok 51 ok 52 ok 53 - errstr should contain error message ok 54 ok 55 - errstr should contain error message ok 56 ok 57 ok 58 - errstr should contain error message ok 59 ok 60 - errstr should contain error message ok 61 ok 62 ok 63 ok 64 ok 65 ok 66 ok 67 ok 68 fetchrow_hashref('NAME_uc') ok 69 ok 70 ok 71 ok 72 ok 73 fetchrow_hashref('ParamValues') ok 74 ok 75 FetchHashKeyName ok 76 ok 77 ok 78 ok 79 ok 80 ok 81 fetchall_arrayref ok 82 ok 83 ok 84 ok 85 ok 86 ok 87 fetchall_arrayref array slice ok 88 ok 89 ok 90 ok 91 fetchall_arrayref hash slice ok 92 ok 93 ok 94 ok 95 fetchall_arrayref hash ok 96 ok 97 ok 98 ok 99 - '16895 0 .' ne '16895 0 .' rows() ok 100 - row count 47 ok 101 - 47 vs 47 ok 102 - 47 vs 47 fetchall_arrayref array slice and max rows ok 103 ok 104 ok 105 selectrow_array ok 106 ok 107 selectrow_hashref ok 108 ok 109 ok 110 ok 111 selectall_arrayref ok 112 ok 113 ok 114 ok 115 selectall_arrayref Slice array slice ok 116 ok 117 ok 118 - ". 16895" eq ". 16895" ok 119 selectall_arrayref Columns array slice ok 120 ok 121 ok 122 - ". 16895" eq ". 16895" ok 123 selectall_arrayref hash slice ok 124 ok 125 ok 126 ok 127 ok 128 ok 129 ok 130 selectall_hashref ok 131 - selectall_hashref result ok 132 - selectall_hashref HASH: HASH ok 133 ok 134 - 0 eq 0 selectall_hashref by column number ok 135 ok 136 - 0 eq 0 selectcol_arrayref ok 137 ok 138 ok 139 selectcol_arrayref column slice ok 140 ok 141 ok 142 ok 143 others... ok 144 ok 145 RaiseError & PrintError & ShowErrorStatement ok 146 ok 147 ok 148 ok 149 ok 150 ok 151 ok 152 ok 153 ok 154 ok 155 ok 156 ok 157 ok 158 ok 159 ok 160 ok 161 - DBD::Gofer::st execute failed: 2 values bound when 1 expected; DBD::ExampleP::st execute failed at DBI::PurePerl DBI::st::execute line 118. [for Statement "select mode from ?" with ParamValues: 1='first', 2='second'] at DBI::PurePerl DBI::st::execute line 118. # ok 162 - DBD::Gofer::st execute failed: 2 values bound when 1 expected; DBD::ExampleP::st execute failed at DBI::PurePerl DBI::st::execute line 118. [for Statement "select mode from ?" with ParamValues: 1='first', 2='second'] at DBI::PurePerl DBI::st::execute line 118. # ok 163 ok 164 ok 165 ok 166 ok 167 ok 168 HandleError ok 169 ok 170 HandleError -> die ok 171 ok 172 - HandleError: DBD::Gofer::db prepare failed: Unknown field names: unknown_field_name2; DBD::ExampleP::db prepare failed at DBI::PurePerl DBI::db::prepare line 116. [h=DBI::db=HASH(0x1f26e44), rv=undef, \#=3] at ./t/10examp.t line 395. # HandleError -> 0 -> RaiseError HandleError: DBD::Gofer::db prepare failed: Unknown field names: unknown_field_name2; DBD::ExampleP::db prepare failed at DBI::PurePerl DBI::db::prepare line 116. [h=DBI::db=HASH(0x1f26e44), rv=undef, #=3] ok 173 ok 174 - DBD::Gofer::db prepare failed: Unknown field names: unknown_field_name2; DBD::ExampleP::db prepare failed at DBI::PurePerl DBI::db::prepare line 116. at DBI::PurePerl DBI::db::prepare line 116. # HandleError -> 1 -> return (original)undef HandleError: DBD::Gofer::db prepare failed: Unknown field names: unknown_field_name2; DBD::ExampleP::db prepare failed at DBI::PurePerl DBI::db::prepare line 116. [h=DBI::db=HASH(0x1f26e44), rv=undef, #=3] ok 175 - ok 176 HandleError -> 2 -> return (modified)42 HandleError: DBD::Gofer::db prepare failed: Unknown field names: unknown_field_name2; DBD::ExampleP::db prepare failed at DBI::PurePerl DBI::db::prepare line 116. [h=DBI::db=HASH(0x1f26e44), rv=undef, #=3] ok 177 - ok 178 ok 179 ok 180 - The object isa DBI::st ok 181 ok 182 ok 183 ok 184 - Remove dumpcsr.tst ok 185 - Actually gone table_info ok 186 Local C:/cpanfly-5.12/var/cpan/build/DBI-1.613-Duq_2f subdirs: lib ex .. . blib t ok 187 ok 188 ok 189 tables ok 190 - Table count mismatch5 vs 5 ok 191 - "schema"."table" ne "schema"."table" ok 192 - "sch-ema"."table" ne "sch-ema"."table" ok 193 - "schema"."ta-ble" ne "schema"."ta-ble" ok 194 - "sch ema"."table" ne "sch ema"."table" ok 195 - "schema"."ta ble" ne "schema"."ta ble" Testing the fake directories (0). ok 196 ok 197 ok 198 - 0 rows instead of 0 ok 199 Testing the fake directories (100). ok 200 ok 201 ok 202 - 100 rows instead of 100 ok 203 - 'file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' ne 'file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' Testing the fake directories (200). ok 204 ok 205 ok 206 - 200 rows instead of 200 ok 207 - 'file200 file199 file198 file197 file196 file195 file194 file193 file192 file191 file190 file189 file188 file187 file186 file185 file184 file183 file182 file181 file180 file179 file178 file177 file176 file175 file174 file173 file172 file171 file170 file169 file168 file167 file166 file165 file164 file163 file162 file161 file160 file159 file158 file157 file156 file155 file154 file153 file152 file151 file150 file149 file148 file147 file146 file145 file144 file143 file142 file141 file140 file139 file138 file137 file136 file135 file134 file133 file132 file131 file130 file129 file128 file127 file126 file125 file124 file123 file122 file121 file120 file119 file118 file117 file116 file115 file114 file113 file112 file111 file110 file109 file108 file107 file106 file105 file104 file103 file102 file101 file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' ne 'file200 file199 file198 file197 file196 file195 file194 file193 file192 file191 file190 file189 file188 file187 file186 file185 file184 file183 file182 file181 file180 file179 file178 file177 file176 file175 file174 file173 file172 file171 file170 file169 file168 file167 file166 file165 file164 file163 file162 file161 file160 file159 file158 file157 file156 file155 file154 file153 file152 file151 file150 file149 file148 file147 file146 file145 file144 file143 file142 file141 file140 file139 file138 file137 file136 file135 file134 file133 file132 file131 file130 file129 file128 file127 file126 file125 file124 file123 file122 file121 file120 file119 file118 file117 file116 file115 file114 file113 file112 file111 file110 file109 file108 file107 file106 file105 file104 file103 file102 file101 file100 file99 file98 file97 file96 file95 file94 file93 file92 file91 file90 file89 file88 file87 file86 file85 file84 file83 file82 file81 file80 file79 file78 file77 file76 file75 file74 file73 file72 file71 file70 file69 file68 file67 file66 file65 file64 file63 file62 file61 file60 file59 file58 file57 file56 file55 file54 file53 file52 file51 file50 file49 file48 file47 file46 file45 file44 file43 file42 file41 file40 file39 file38 file37 file36 file35 file34 file33 file32 file31 file30 file29 file28 file27 file26 file25 file24 file23 file22 file21 file20 file19 file18 file17 file16 file15 file14 file13 file12 file11 file10 file9 file8 file7 file6 file5 file4 file3 file2 file1' Testing $dbh->func(). ok 208 ok 209 ok 210 - ping should return false after disconnect ok t/zvxgp_11fetch.t .......... 1..24 # fetchall_hashref(C1) ok 1 ok 2 ok 3 ok 4 # fetchall_hashref(C2) ok 5 ok 6 ok 7 ok 8 # fetchall_hashref([C2]) ok 9 ok 10 ok 11 ok 12 # fetchall_hashref([C1 C2]) ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok t/zvxgp_12quote.t .......... 1..10 ok 1 - ... quoting strings with embedded single quotes ok 2 - ... quoting number as SQL_VARCHAR ok 3 - ... quoting number as SQL_INTEGER ok 4 - ... quoting undef as NULL ok 5 - ... properly quotes foo as "foo" ok 6 - ... properly quotes f"o as "f""o" ok 7 - ... properly quotes foo, bar as "foo"."bar" ok 8 - ... properly quotes undef, undef, bar as "bar" ok 9 - ... properly quotes foo, undef, bar as "foo"."bar" ok 10 # skip Can't test alternate quote_identifier logic with DBI_AUTOPROXY ok t/zvxgp_13taint.t .......... skipped: Taint attributes not supported with DBI::PurePerl t/zvxgp_14utf8.t ........... 1..16 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok t/zvxgp_15array.t .......... 1..55 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - The object isa DBI::st ok 4 - ... we should have 0 rows ok 5 - ... execute_array should return false ok 6 - execute_array failure with RaiseError should have died ok 7 ok 8 - ... we should have 2 rows ok 9 - ... we should have 3 tuple_status ok 10 - ... our rows are as expected ok 11 - ... our tuple_status is as expected ok 12 - ... bind_param_array should return true ok 13 - ... execute_array should return true ok 14 - ... we should have 3 rows ok 15 - ... we should have 3 tuple_status ok 16 - ... our rows are as expected ok 17 - ... our tuple_status is as expected ok 18 - ... execute_array should return true ok 19 - ... we should have executed 3 rows ok 20 - ... we should have affected 3 rows ok 21 - ... execute_array should return true ok 22 - ... execute_array should return 0 (but true) ok 23 - ... we should have 0 rows ok 24 - ... we should have 0 tuple_status ok 25 - ... execute_array should return 1 ok 26 - ... we should have 1 rows ok 27 - ... our rows are as expected ok 28 - ... we should have 1 tuple_status ok 29 - ... our tuple_status is as expected ok 30 - ... execute_array should return 0 ok 31 - ... we should have 0 rows ok 32 - ... we should have 0 tuple_status ok 33 - The object isa DBI::st ok 34 - ... execute_array should return true ok 35 - ... execute_array should return 0 (but true) ok 36 - ... we should have 0 rows ok 37 - ... execute_array should return true ok 38 - ... we should have 2 rows ok 39 - ... we should have 2 tuple_status ok 40 - ... rows should match ok 41 - ... tuple_status should match ok 42 - The object isa DBI::st ok 43 - ... execute_array should return true ok 44 - ... we should have 3 rows ok 45 - ... we should have 3 tuple_status ok 46 - ... rows should match ok 47 - ... tuple status should match ok 48 - ... execute_array should return undef ok 49 - ... errstr is as expected ok 50 - ... execute_array should return undef ok 51 - ... errstr is as expected ok 52 - ... execute_array should return undef ok 53 - ... errstr is as expected ok 54 - ... bind_param_array should return undef ok 55 - ... errstr is as expected ok t/zvxgp_19fhtrace.t ........ 1..27 ok 1 - use DBI; ok 2 - The object isa DBI::db ok 3 - ... checking TraceLevel attribute ok 4 - ... regular fh: trace file successfully created ok 5 - ... regular fh: filehandle successfully set ok 6 - ... regular fh: trace_msg ok 7 - ... regular fh: file successfully changed Next logline ok 8 - ... regular fh: trace_msg after changing trace output ok 9 - Tracefile removed ok 10 - Tracefile FOO opened ok 11 - Tracefile created ok 12 - Regression test ok 13 - Traced message ok 14 - Regression test ok 15 - ... layered fh: file is layered: *** Test our layer # # ok 16 - ... layered fh: filehandle successfully set ok 17 - ... layered fh: trace_msg: Layered logline # # DBI::db=HASH(0x2018d4c) trace level set to 1 in DBI 1.613 (PurePerl) Full trace not available because DBI_TRACE is not in environment ok 18 - ... layered fh: close doesn't close: Layered logline # # Next logline ok 19 - ... layered fh: trace_msg after change trace output: Layered logline # # ok 20 - ... scalar trace: file is layered: *** Test our layer # # ok 21 - ... scalar trace: filehandle successfully set ok 22 - ... scalar trace: *** Test our layer # DBI::db=HASH(0x2018d4c) trace level set to 1 in DBI 1.613 (PurePerl) # Full trace not available because DBI_TRACE is not in environment # Layered logline # # DBI::db=HASH(0x2018d4c) trace level set to 1 in DBI 1.613 (PurePerl) Full trace not available because DBI_TRACE is not in environment ok 23 - ... scalar trace: close doesn't close: *** Test our layer # DBI::db=HASH(0x2018d4c) trace level set to 1 in DBI 1.613 (PurePerl) # Full trace not available because DBI_TRACE is not in environment # Layered logline # # Next logline ok 24 - ... scalar trace: after change trace output: *** Test our layer # DBI::db=HASH(0x2018d4c) trace level set to 1 in DBI 1.613 (PurePerl) # Full trace not available because DBI_TRACE is not in environment # Layered logline # # -----> execute_request -> DBI->connect(dbi:ExampleP:dummy, , ****, HASH(0x2066264)) <- connect= DBI::db=HASH(0x2028b8c) _std_response_attribute_names for ExampleP dbh: ChopBlanks LongReadLen LongTruncOk ReadOnly Name example_driver_path <----- execute_request gofer receive_response ok 25 - ... logger: trace_msg # DBI::db=HASH(0x2018d4c) trace level set to 1 in DBI 1.613 (PurePerl) Full trace not available because DBI_TRACE is not in environment ok 26 - ... logger: close doesn't close # Next logline ok 27 - ... logger: trace_msg after change trace output # ok t/zvxgp_20meta.t ........... 1..8 ok 1 - use DBI; ok 2 - use DBI::DBD::Metadata; ok 3 - The object isa DBI::db ok 4 ok 5 ok 6 ok 7 ok 8 ok t/zvxgp_30subclass.t ....... 1..36 ok 1 - use DBI; ok 2 - The object isa MyDBI::db ok 3 ok 4 - The object isa MyDBI::db ok 5 ok 6 ok 7 - The object isa MyDBI::st ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 - The reference isa ARRAY ok 16 ok 17 ok 18 ok 19 ok 20 - Clone A isa MyDBI::db ok 21 ok 22 ok 23 - Clone B isa MyDBI::db ok 24 ok 25 ok 26 - The object isa MyDBI::db ok 27 ok 28 - installed method isa ARRAY ok 29 ok 30 ok 31 ok 32 ok 33 - Failed connect \#1 ok 34 ok 35 - Failed connect \#2 ok 36 fetch 4 prepare 1 ok t/zvxgp_35thrclone.t ....... 1..20 ok 1 - use DBI; ok 2 - ... assignment of neat_maxlen was successful ok 3 - The object isa DBI::db ok 4 - ... DBI::neat_maxlen still holding its value ok 5 - The object isa DBI::db ok 6 - ... new $dbh is not the same instance as $dbh_parent ok 7 ok 8 - ... DBI::neat_maxlen still holding its value ok 9 - The object isa DBI::db ok 10 - ... new $dbh is not the same instance as $dbh_parent ok 11 ok 12 - ... DBI::neat_maxlen still holding its value ok 13 - The object isa DBI::db ok 14 - ... new $dbh is not the same instance as $dbh_parent ok 15 ok 16 - ... DBI::neat_maxlen still holding its value ok 17 - The object isa DBI::db ok 18 - ... new $dbh is not the same instance as $dbh_parent ok 19 ok 20 - ... all tests have passed ok t/zvxgp_40profile.t ........ skipped: profiling not supported for DBI::PurePerl t/zvxgp_41prof_dump.t ...... skipped: profiling not supported for DBI::PurePerl t/zvxgp_42prof_data.t ...... skipped: profiling not supported for DBI::PurePerl t/zvxgp_43prof_env.t ....... skipped: profiling not supported for DBI::PurePerl t/zvxgp_49dbd_file.t ....... ok 1 - use DBI; ok 2 - use DBD::File; ok 3 - Connect clean ok 4 - Can connect to DBD::File driver # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 5 - f_versions ok 6 - Connect with DBI attributes ok 7 - Connect with driver attributes in DSN ok 8 - Connect with driver attributes in hash ok 9 - Prepare select from non-existing file ok 10 - Cannot open non-existing file # C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\t_sbdgf_53442gz.txt ok 11 - drop manually created table db_1484_2 (first file) ok 12 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_1484_2.txt removed ok 13 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_1484_2 exists ok 14 - drop manually created table db_1484_2 (second file) ok 15 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_1484_2 removed ok 16 - Create table db_1484_ ok 17 - Test table exists ok 18 - get single table meta data ok 19 - get multiple meta data ok 20 - encoding shows in layer ok 21 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 22 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 23 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 24 # skip modifying meta data doesn't work with Gofer-AutoProxy ok 25 - Prepare select * from db_1484_ ok 26 # skip method intrusion didn't work with proxying ok 27 - Prepare select * from DB_1484_ ok 28 # skip method intrusion didn't work with proxying ok 29 - table drop ok 30 - Test table removed 1..30 ok t/zvxgp_50dbm_simple.t ..... Using DBM modules: SDBM_File Using MLDBM serializers: Data::Dumper Storable FreezeThaw YAML JSON Test count: 1 x ( ( 5 + 18 ) + 5 x ( 5 + 21 ) ) = 153 1..153 --- Using SDBM_File () --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 1 - dbm_versions ok 2 - The object isa DBI::db ok 3 # skip Can't set attributes after connect using DBD::Gofer ok 4 # skip Can't set attributes after connect using DBD::Gofer ok 5 ok 6 - DROP TABLE IF EXISTS SDBM_File_fruit ok 7 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10)) ok 8 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' ) ok 9 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change' ) ok 10 - INSERT INTO SDBM_File_fruit VALUES (3, NULL ) ok 11 - INSERT INTO SDBM_File_fruit VALUES (4,'to delete' ) ok 12 - INSERT INTO SDBM_File_fruit VALUES (?,?) ok 13 - INSERT INTO SDBM_File_fruit VALUES (6,'to delete' ) ok 14 - INSERT INTO SDBM_File_fruit VALUES (7,'to_delete' ) ok 15 - DELETE FROM SDBM_File_fruit WHERE dVal='to delete' not ok 16 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 17 - UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2 not ok 18 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 19 - DELETE FROM SDBM_File_fruit WHERE dKey=7 not ok 20 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=7) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=7) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 21 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 22 - SELECT results ok 23 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Data::Dumper) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 24 - dbm_versions ok 25 - The object isa DBI::db ok 26 # skip Can't set attributes after connect using DBD::Gofer ok 27 # skip Can't set attributes after connect using DBD::Gofer ok 28 ok 29 - DROP TABLE IF EXISTS SDBM_File_fruit ok 30 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 31 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 32 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 33 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 34 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 35 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 36 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 37 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 38 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 39 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 40 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 41 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 42 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 43 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 44 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 45 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 46 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 47 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 48 - SELECT results ok 49 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Storable) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 50 - dbm_versions ok 51 - The object isa DBI::db ok 52 # skip Can't set attributes after connect using DBD::Gofer ok 53 # skip Can't set attributes after connect using DBD::Gofer ok 54 ok 55 - DROP TABLE IF EXISTS SDBM_File_fruit ok 56 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 57 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 58 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 59 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 60 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 61 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 62 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 63 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 64 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 65 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 66 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 67 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 68 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 69 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 70 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 71 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 72 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 73 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 74 - SELECT results ok 75 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (FreezeThaw) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 76 - dbm_versions ok 77 - The object isa DBI::db ok 78 # skip Can't set attributes after connect using DBD::Gofer ok 79 # skip Can't set attributes after connect using DBD::Gofer ok 80 ok 81 - DROP TABLE IF EXISTS SDBM_File_fruit ok 82 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 83 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 84 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 85 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 86 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 87 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 88 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 89 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 90 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 91 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 92 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 93 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 94 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 95 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 96 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 97 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 98 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 99 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 100 - SELECT results ok 101 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (YAML) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 102 - dbm_versions ok 103 - The object isa DBI::db ok 104 # skip Can't set attributes after connect using DBD::Gofer ok 105 # skip Can't set attributes after connect using DBD::Gofer ok 106 ok 107 - DROP TABLE IF EXISTS SDBM_File_fruit ok 108 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 109 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 110 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 111 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 112 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 113 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 114 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 115 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 116 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 117 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 118 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 119 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 120 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 121 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 122 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 123 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 124 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 125 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 126 - SELECT results ok 127 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (JSON) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 128 - dbm_versions ok 129 - The object isa DBI::db ok 130 # skip Can't set attributes after connect using DBD::Gofer ok 131 # skip Can't set attributes after connect using DBD::Gofer ok 132 ok 133 - DROP TABLE IF EXISTS SDBM_File_fruit ok 134 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 135 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 136 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 137 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 138 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 139 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 140 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 141 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 142 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 143 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 not ok 144 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: '-1' ok 145 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' not ok 146 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '2' # expected: undef ok 147 - DELETE FROM SDBM_File_fruit WHERE qux=17 not ok 148 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 149 - DELETE FROM SDBM_File_fruit WHERE dKey=8 not ok 150 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows # TODO AUTOPROXY drivers might throw away sth->rows() # Failed (TODO) test '$sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows' # at ./t/50dbm_simple.t line 263. # got: '1' # expected: undef ok 151 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 152 - SELECT results ok 153 - DROP TABLE SDBM_File_fruit ok t/zvxgp_51dbm_file.t ....... ok 1 ok 2 - FRED.dir exists ok 3 - fred.dir exists ok 4 ok 5 ok 6 ok 7 1..7 ok t/zvxgp_52dbm_complex.t .... skipped: Not running with SQL::Statement t/zvxgp_60preparse.t ....... skipped: preparse not supported for DBI::PurePerl t/zvxgp_65transact.t ....... skipped: Transactions not supported by DBD::Gofer t/zvxgp_70callbacks.t ...... skipped: $h->{Callbacks} attribute not supported for DBI::PurePerl t/zvxgp_72childhandles.t ... 1..16 ok 1 ok 2 ok 3 ok 4 ok 5 - All handles should be undef now ok 6 - ChildHandles should be an array-ref if wekref is available ok 7 drh DBI::dr=HASH(0x1ea4bec) dbh DBI::db=HASH(0x2069ad4) sth DBI::st=HASH(0x2049764) sth DBI::st=HASH(0x204f5ac) sth DBI::st=HASH(0x2051f34) ok 8 ok 9 ok 10 ok 11 ok 12 - handles should be gone now ok 13 ok 14 ok 15 # skip slow tests avoided when using DBD::Gofer ok 16 # skip slow tests avoided when using DBD::Gofer ok t/zvxgp_80proxy.t .......... skipped: modules required for proxy are probably not installed (e.g., RPC/PlClient.pm) t/zvxgp_85gofer.t .......... # Transports: null pipeone stream stream_ssh # Policies: pedantic classic rush # Count: 0 # ============= # Testing null transport with pedantic policy # dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 1 - should connect to dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 2 ok 3 ok 4 ok 5 - should detect prepare failure ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 - go_response executed flag should be true ok 13 ok 14 ok 15 ok 16 # Testing go_request_count and caching of simple values ok 17 ok 18 ok 19 # use_remote=1 (policy=pedantic, transport=null) HASH(0x360d1e4) ok 20 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 21 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 22 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 23 # skip caching of metadata methods returning sth not yet implemented ok 24 # skip caching of metadata methods returning sth not yet implemented ok 25 ok 26 # ============= # Testing null transport with classic policy # dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 27 - should connect to dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 28 ok 29 ok 30 ok 31 - The object isa DBI::st ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 ok 38 - go_response executed flag should be true ok 39 ok 40 ok 41 ok 42 # Testing go_request_count and caching of simple values ok 43 ok 44 ok 45 # use_remote=0 (policy=classic, transport=null) HASH(0x35ce9cc) ok 46 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 47 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 48 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 49 # skip caching of metadata methods returning sth not yet implemented ok 50 # skip caching of metadata methods returning sth not yet implemented ok 51 ok 52 # ============= # Testing null transport with rush policy # dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 53 - should connect to dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 54 ok 55 ok 56 ok 57 - The object isa DBI::st ok 58 ok 59 ok 60 ok 61 ok 62 ok 63 ok 64 - go_response executed flag should be true ok 65 ok 66 ok 67 ok 68 # Testing go_request_count and caching of simple values ok 69 ok 70 ok 71 # use_remote=0 (policy=rush, transport=null) HASH(0x362b074) ok 72 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 73 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 74 # skip skip_default_methods checking doesn't work with Gofer over Gofer ok 75 # skip caching of metadata methods returning sth not yet implemented ok 76 # skip caching of metadata methods returning sth not yet implemented ok 77 ok 78 1..78 ok t/zvxgp_86gofer_fail.t ..... skipped: requires Callbacks which are not supported with PurePerl t/zvxgp_87gofer_cache.t .... skipped: Gofer DBI_AUTOPROXY t/zvxgp_90sql_type_cast.t .. 1..32 ok 1 - result, undef ok 2 # skip DiscardString not supported in PurePerl ok 3 # skip DiscardString not supported in PurePerl ok 4 - result, invalid sql type ok 5 - json invalid sql type ok 6 - result, non numeric cast to int ok 7 - json non numeric cast to int ok 8 - result, non numeric cast to int (strict) ok 9 - json non numeric cast to int (strict) ok 10 - result, small int cast to int ok 11 - json small int cast to int ok 12 - result, 2 byte max signed int cast to int ok 13 - json 2 byte max signed int cast to int ok 14 - result, 2 byte max unsigned int cast to int ok 15 - json 2 byte max unsigned int cast to int ok 16 - result, 4 byte max signed int cast to int ok 17 - json 4 byte max signed int cast to int ok 18 - result, 4 byte max unsigned int cast to int ok 19 - json 4 byte max unsigned int cast to int ok 20 - result, small int cast to int (discard) ok 21 # skip DiscardString not supported in PurePerl ok 22 # skip DiscardString not supported in PurePerl ok 23 - result, non numeric cast to numeric ok 24 - json non numeric cast to numeric ok 25 - result, non numeric cast to numeric (strict) ok 26 - json non numeric cast to numeric (strict) ok 27 - result, non numeric cast to double ok 28 - json non numeric cast to double ok 29 - nv not defined non numeric cast to double ok 30 - result, non numeric cast to double (strict) ok 31 - json non numeric cast to double (strict) ok 32 - nv not defined non numeric cast to double (strict) ok t/zvxnp_49dbd_file.t ....... ok 1 - use DBI; ok 2 - use DBD::File; ok 3 - Connect clean ok 4 - Can connect to DBD::File driver # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 5 - f_versions ok 6 - Connect with DBI attributes ok 7 - Connect with driver attributes in DSN ok 8 - Connect with driver attributes in hash ok 9 - Prepare select from non-existing file ok 10 - Cannot open non-existing file # C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\t_sbdgf_53442gz.txt ok 11 - drop manually created table db_2100_2 (first file) ok 12 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2100_2.txt removed ok 13 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2100_2 exists ok 14 - drop manually created table db_2100_2 (second file) ok 15 - C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f\test_output\db_2100_2 removed ok 16 - Create table db_2100_ ok 17 - Test table exists ok 18 - get single table meta data ok 19 - get multiple meta data ok 20 - encoding shows in layer ok 21 - set single meta datum ok 22 - verify set single meta datum ok 23 - set multiple meta data ok 24 - verify set multiple meta attributes ok 25 - Prepare select * from db_2100_ ok 26 - execute on db_2100_ ok 27 - Prepare select * from DB_2100_ ok 28 - execute on DB_2100_ ok 29 - table drop ok 30 - Test table removed 1..30 ok t/zvxnp_50dbm_simple.t ..... Using DBM modules: SDBM_File Using MLDBM serializers: Data::Dumper Storable FreezeThaw YAML JSON Test count: 1 x ( ( 5 + 18 ) + 5 x ( 5 + 21 ) ) = 153 1..153 --- Using SDBM_File () --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 1 - dbm_versions ok 2 - The object isa DBI::db ok 3 ok 4 ok 5 ok 6 - DROP TABLE IF EXISTS SDBM_File_fruit ok 7 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10)) ok 8 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' ) ok 9 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change' ) ok 10 - INSERT INTO SDBM_File_fruit VALUES (3, NULL ) ok 11 - INSERT INTO SDBM_File_fruit VALUES (4,'to delete' ) ok 12 - INSERT INTO SDBM_File_fruit VALUES (?,?) ok 13 - INSERT INTO SDBM_File_fruit VALUES (6,'to delete' ) ok 14 - INSERT INTO SDBM_File_fruit VALUES (7,'to_delete' ) ok 15 - DELETE FROM SDBM_File_fruit WHERE dVal='to delete' ok 16 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to delete') == $sth->rows ok 17 - UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2 ok 18 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples' WHERE dKey=2) == $sth->rows ok 19 - DELETE FROM SDBM_File_fruit WHERE dKey=7 ok 20 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=7) == $sth->rows ok 21 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 22 - SELECT results ok 23 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Data::Dumper) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 24 - dbm_versions ok 25 - The object isa DBI::db ok 26 ok 27 ok 28 ok 29 - DROP TABLE IF EXISTS SDBM_File_fruit ok 30 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 31 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 32 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 33 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 34 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 35 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 36 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 37 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 38 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 39 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 40 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 41 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 42 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 43 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 44 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 45 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 46 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 47 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 48 - SELECT results ok 49 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (Storable) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 50 - dbm_versions ok 51 - The object isa DBI::db ok 52 ok 53 ok 54 ok 55 - DROP TABLE IF EXISTS SDBM_File_fruit ok 56 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 57 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 58 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 59 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 60 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 61 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 62 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 63 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 64 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 65 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 66 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 67 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 68 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 69 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 70 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 71 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 72 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 73 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 74 - SELECT results ok 75 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (FreezeThaw) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 76 - dbm_versions ok 77 - The object isa DBI::db ok 78 ok 79 ok 80 ok 81 - DROP TABLE IF EXISTS SDBM_File_fruit ok 82 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 83 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 84 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 85 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 86 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 87 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 88 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 89 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 90 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 91 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 92 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 93 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 94 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 95 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 96 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 97 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 98 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 99 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 100 - SELECT results ok 101 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (YAML) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 102 - dbm_versions ok 103 - The object isa DBI::db ok 104 ok 105 ok 106 ok 107 - DROP TABLE IF EXISTS SDBM_File_fruit ok 108 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 109 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 110 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 111 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 112 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 113 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 114 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 115 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 116 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 117 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 118 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 119 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 120 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 121 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 122 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 123 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 124 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 125 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 126 - SELECT results ok 127 - DROP TABLE SDBM_File_fruit --- Using SDBM_File (JSON) --- # DBD::DBM 0.05 using SDBM_File (1.06) # DBD::File 0.39 using IO::File (1.14) # DBI::DBD::SqlEngine 0.01 using DBI::SQL::Nano 1.014245 # DBI 1.613 # DBI::PurePerl 2.014120 # OS MSWin32 (5.00) # Perl 5.012000 (MSWin32-x86-multi-thread) ok 128 - dbm_versions ok 129 - The object isa DBI::db ok 130 ok 131 ok 132 ok 133 - DROP TABLE IF EXISTS SDBM_File_fruit ok 134 - CREATE TABLE SDBM_File_fruit (dKey INT, dVal VARCHAR(10), qux INT) ok 135 - INSERT INTO SDBM_File_fruit VALUES (1,'oranges' , 11 ) ok 136 - INSERT INTO SDBM_File_fruit VALUES (2,'to_change', 0 ) ok 137 - INSERT INTO SDBM_File_fruit VALUES (3, NULL , 13 ) ok 138 - INSERT INTO SDBM_File_fruit VALUES (4,'to_delete', 14 ) ok 139 - INSERT INTO SDBM_File_fruit VALUES (?,?,?) ok 140 - INSERT INTO SDBM_File_fruit VALUES (6,'to_delete', 16 ) ok 141 - INSERT INTO SDBM_File_fruit VALUES (7,'to delete', 17 ) ok 142 - INSERT INTO SDBM_File_fruit VALUES (8,'to remove', 18 ) ok 143 - UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2 ok 144 - $sth->execute(UPDATE SDBM_File_fruit SET dVal='apples', qux='12' WHERE dKey=2) == $sth->rows ok 145 - DELETE FROM SDBM_File_fruit WHERE dVal='to_delete' ok 146 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dVal='to_delete') == $sth->rows ok 147 - DELETE FROM SDBM_File_fruit WHERE qux=17 ok 148 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE qux=17) == $sth->rows ok 149 - DELETE FROM SDBM_File_fruit WHERE dKey=8 ok 150 - $sth->execute(DELETE FROM SDBM_File_fruit WHERE dKey=8) == $sth->rows ok 151 - SELECT * FROM SDBM_File_fruit ORDER BY dKey DESC ok 152 - SELECT results ok 153 - DROP TABLE SDBM_File_fruit ok t/zvxnp_51dbm_file.t ....... ok 1 ok 2 - FRED.dir exists ok 3 - fred.dir exists ok 4 ok 5 ok 6 ok 7 1..7 ok t/zvxnp_52dbm_complex.t .... skipped: Not running with SQL::Statement t/zvxnp_85gofer.t .......... # Transports: null pipeone stream stream_ssh # Policies: pedantic classic rush # Count: 0 # ============= # Testing null transport with pedantic policy # dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 1 - should connect to dbi:Gofer:transport=null;policy=pedantic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 2 ok 3 ok 4 ok 5 - should detect prepare failure ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 - go_response executed flag should be true ok 13 ok 14 ok 15 ok 16 # Testing go_request_count and caching of simple values ok 17 ok 18 ok 19 # use_remote=1 (policy=pedantic, transport=null) HASH(0x33ada34) ok 20 ok 21 ok 22 ok 23 # skip caching of metadata methods returning sth not yet implemented ok 24 # skip caching of metadata methods returning sth not yet implemented ok 25 ok 26 # ============= # Testing null transport with classic policy # dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 27 - should connect to dbi:Gofer:transport=null;policy=classic;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 28 ok 29 ok 30 ok 31 - The object isa DBI::st ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 ok 38 - go_response executed flag should be true ok 39 ok 40 ok 41 ok 42 # Testing go_request_count and caching of simple values ok 43 ok 44 ok 45 # use_remote=0 (policy=classic, transport=null) HASH(0x3389124) ok 46 ok 47 ok 48 ok 49 # skip caching of metadata methods returning sth not yet implemented ok 50 # skip caching of metadata methods returning sth not yet implemented ok 51 ok 52 # ============= # Testing null transport with rush policy # dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 53 - should connect to dbi:Gofer:transport=null;policy=rush;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0 ok 54 ok 55 ok 56 ok 57 - The object isa DBI::st ok 58 ok 59 ok 60 ok 61 ok 62 ok 63 ok 64 - go_response executed flag should be true ok 65 ok 66 ok 67 ok 68 # Testing go_request_count and caching of simple values ok 69 ok 70 ok 71 # use_remote=0 (policy=rush, transport=null) HASH(0x33b54d4) ok 72 ok 73 ok 74 ok 75 # skip caching of metadata methods returning sth not yet implemented ok 76 # skip caching of metadata methods returning sth not yet implemented ok 77 ok 78 1..78 ok All tests successful. Files=166, Tests=7314, 49 wallclock secs ( 1.64 usr + 0.59 sys = 2.24 CPU) Result: PASS C:\Perl-5.12\bin\perl.exe "-Iblib\lib" "-Iblib\arch" test.pl test.pl DBI test application $Revision: 12537 $ Switch: DBI 1.613 by Tim Bunce, 1.613 Available Drivers: ADO, AnyData, CSV, Chart, DBM, ExampleP, Excel, File, Gofer, LDAP, Log, MVS_FTPSQL, Mimer, Mock, Multiplex, ODBC, Oracle, Ovrimos, PO, PgPP, Proxy, SQLite, Sponge, Sprite, Sys, TSM, Template, TemplateSS, WMI, Wire10, XBase, mysql, mysqlPP dbi:ExampleP:: testing 3 sets of 20 connections: Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Disconnecting... Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Disconnecting... Connecting... 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Disconnecting... connect 20 and disconnect them, 3 times: 0.0156s / 60 = 0.0003s Testing handle creation speed... 51282 NullP sth/s perl 5.012000 MSWin32-x86-multi-thread (cl 12.00.8804 -MD -Zi -DNDEBUG -O1) 0.000020s test.pl done TIMB/DBI-1.613.tar.gz nmake test TEST_VERBOSE=1 -- OK PPD for DBI-1.613 already made Running test for module 'DBD::File' Running make for T/TI/TIMB/DBI-1.613.tar.gz Prepending C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f/blib/arch C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f/blib/lib to PERL5LIB for 'get' Has already been unwrapped into directory C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f Prepending C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f/blib/arch C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f/blib/lib to PERL5LIB for 'make' Has already been made Prepending C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f/blib/arch C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f/blib/lib to PERL5LIB for 'test' Running make test Has already been tested successfully Running make for R/RE/REHSACK/SQL-Statement-1.30.tar.gz Prepending C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f/blib/arch C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f/blib/lib to PERL5LIB for 'get' Has already been unwrapped into directory C:\cpanfly-5.12\var\cpan\build\SQL-Statement-1.30-EeDz1L Prepending C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f/blib/arch C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f/blib/lib to PERL5LIB for 'make' CPAN.pm: Going to build R/RE/REHSACK/SQL-Statement-1.30.tar.gz >>> nmake Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. cp lib/SQL/Dialects/ANSI.pm blib\lib\SQL\Dialects\ANSI.pm cp lib/SQL/Parser.pm blib\lib\SQL\Parser.pm cp lib/SQL/Statement/TermFactory.pm blib\lib\SQL\Statement\TermFactory.pm cp lib/SQL/Statement/Util.pm blib\lib\SQL\Statement\Util.pm cp lib/SQL/Statement/GetInfo.pm blib\lib\SQL\Statement\GetInfo.pm cp lib/SQL/Statement/Structure.pod blib\lib\SQL\Statement\Structure.pod cp lib/SQL/Statement/Term.pm blib\lib\SQL\Statement\Term.pm cp lib/SQL/Statement/Syntax.pod blib\lib\SQL\Statement\Syntax.pod cp lib/SQL/Dialects/Role.pm blib\lib\SQL\Dialects\Role.pm cp lib/SQL/Dialects/AnyData.pm blib\lib\SQL\Dialects\AnyData.pm cp lib/SQL/Statement/RAM.pm blib\lib\SQL\Statement\RAM.pm cp lib/SQL/Statement/Embed.pod blib\lib\SQL\Statement\Embed.pod cp lib/SQL/Statement/Placeholder.pm blib\lib\SQL\Statement\Placeholder.pm cp lib/SQL/Statement.pm blib\lib\SQL\Statement.pm cp lib/SQL/Dialects/CSV.pm blib\lib\SQL\Dialects\CSV.pm cp lib/SQL/Statement/Roadmap.pod blib\lib\SQL\Statement\Roadmap.pod cp lib/SQL/Statement/Operation.pm blib\lib\SQL\Statement\Operation.pm cp lib/SQL/Eval.pm blib\lib\SQL\Eval.pm cp lib/SQL/Statement/Functions.pm blib\lib\SQL\Statement\Functions.pm cp lib/SQL/Statement/Function.pm blib\lib\SQL\Statement\Function.pm REHSACK/SQL-Statement-1.30.tar.gz nmake -- OK Prepending C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f/blib/arch C:\cpanfly-5.12\var\cpan\build\DBI-1.613-Duq_2f/blib/lib to PERL5LIB for 'test' Running make test >>> nmake test TEST_VERBOSE=1 Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. C:\Perl-5.12\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/00error.t .......... 1..6 SQL::Statement v.1.30 ok 1 - Parse RaiseError=0 (default) ok 2 - Parse RaiseError=1 ok 3 - $stmt->errstr with no error ok 4 - Execute RaiseError=0 (default) ok 5 - Execute RaiseError=1 ok 6 - $stmt->errstr with error ok t/01prepare.t ........ SQL::Statement v.1.30 1..113 ok 1 - parse 'DROP TABLE foo' ok 2 - parse 'DROP TABLE foo CASCADE' ok 3 - parse 'DROP TABLE foo RESTRICT' ok 4 - parse 'DELETE FROM foo' ok 5 - parse 'DELETE FROM foo WHERE id < 7' ok 6 - parse 'UPDATE foo SET bar = 7' ok 7 - parse 'UPDATE foo SET bar = 7 WHERE id > 7' ok 8 - parse 'INSERT INTO foo VALUES ( 'baz', 7, NULL )' ok 9 - parse 'INSERT INTO foo (col1,col2,col7) VALUES ( 'baz', 7, NULL )' ok 10 - parse 'CREATE TABLE foo ( id INT )' ok 11 - parse 'CREATE LOCAL TEMPORARY TABLE foo (id INT)' ok 12 - parse 'CREATE LOCAL TEMPORARY TABLE foo (id INT) ON COMMIT DELETE ROWS' ok 13 - parse 'CREATE LOCAL TEMPORARY TABLE foo (id INT) ON COMMIT PRESERVE ROWS' ok 14 - parse 'CREATE GLOBAL TEMPORARY TABLE foo (id INT)' ok 15 - parse 'CREATE GLOBAL TEMPORARY TABLE foo (id INT) ON COMMIT DELETE ROWS' ok 16 - parse 'CREATE GLOBAL TEMPORARY TABLE foo (id INT) ON COMMIT PRESERVE ROWS' ok 17 - parse 'CREATE TABLE foo ( id INTEGER, phrase VARCHAR(40) )' ok 18 - parse 'CREATE TABLE foo ( id INTEGER UNIQUE, phrase VARCHAR(40) UNIQUE )' ok 19 - parse 'CREATE TABLE foo ( id INTEGER PRIMARY KEY, phrase VARCHAR(40) UNIQUE )' ok 20 - parse 'CREATE TABLE foo ( id INTEGER PRIMARY KEY, phrase VARCHAR(40) NOT NULL )' ok 21 - parse 'CREATE TABLE foo ( id INTEGER NOT NULL, phrase VARCHAR(40) NOT NULL )' ok 22 - parse 'CREATE TABLE foo ( id INTEGER UNIQUE NOT NULL, phrase VARCHAR(40) )' ok 23 - parse 'CREATE TABLE foo ( phrase CHARACTER VARYING(255) )' ok 24 - parse 'CREATE TABLE foo ( phrase NUMERIC(4,6) )' ok 25 - parse 'CREATE TABLE foo ( id INTEGER, phrase VARCHAR(40), CONSTRAINT "foo_pkey" PRIMARY KEY ( "id", "phrase" ), CONSTRAINT "foo_fkey" FOREIGN KEY ( "id" ) REFERENCES "bar" ( "bar_id" ))' ok 26 - parse 'CREATE TABLE foo ( id INTEGER, phrase VARCHAR(40), PRIMARY KEY ( "id" ), FOREIGN KEY ("id", "phrase") REFERENCES "bar" ("id2", "phrase2"))' ok 27 - parse 'CREATE TABLE foo ( id INTEGER, phrase CHAR(255), phrase2 VARCHAR(40), CONSTRAINT "foo_pkey" PRIMARY KEY ( "id", phrase, "phrase2" ), CONSTRAINT "foo_fkey" FOREIGN KEY ("id", "phrase", "phrase2") REFERENCES "bar" ("id2", "phrase2", "phase10"))' ok 28 - parse 'SELECT Lnum,Llet,Ulet FROM zLower NATURAL INNER JOIN zUpper' ok 29 - parse 'SELECT Lnum,Llet,Ulet FROM zLower NATURAL LEFT JOIN zUpper' ok 30 - parse 'SELECT Lnum,Llet,Ulet FROM zLower NATURAL RIGHT JOIN zUpper' ok 31 - parse 'SELECT Lnum,Llet,Ulet FROM zLower NATURAL FULL JOIN zUpper' ok 32 - parse 'SELECT Lnum,Llet,Ulet FROM zLower INNER JOIN zUpper ON Lnum = Unum' ok 33 - parse 'SELECT Lnum,Llet,Ulet FROM zLower LEFT JOIN zUpper ON Lnum = Unum' ok 34 - parse 'SELECT Lnum,Llet,Ulet FROM zLower RIGHT JOIN zUpper ON Lnum = Unum' ok 35 - parse 'SELECT Lnum,Llet,Ulet FROM zLower FULL JOIN zUpper ON Lnum = Unum' ok 36 - parse 'SELECT Lnum,Llet,Ulet FROM zLower INNER JOIN zUpper USING(num)' ok 37 - parse 'SELECT Lnum,Llet,Ulet FROM zLower LEFT JOIN zUpper USING(num)' ok 38 - parse 'SELECT Lnum,Llet,Ulet FROM zLower RIGHT JOIN zUpper USING(num)' ok 39 - parse 'SELECT Lnum,Llet,Ulet FROM zLower FULL JOIN zUpper USING(num)' ok 40 - parse 'SELECT Lnum,Llet,Ulet FROM zLower,zUpper WHERE Lnum = Unum' ok 41 - parse 'SELECT * FROM zLower NATURAL INNER JOIN zUpper' ok 42 - parse 'SELECT * FROM zLower NATURAL LEFT JOIN zUpper' ok 43 - parse 'SELECT * FROM zLower NATURAL RIGHT JOIN zUpper' ok 44 - parse 'SELECT * FROM zLower NATURAL FULL JOIN zUpper' ok 45 - parse 'SELECT * FROM zLower INNER JOIN zUpper ON Lnum = Unum' ok 46 - parse 'SELECT * FROM zLower LEFT JOIN zUpper ON Lnum = Unum' ok 47 - parse 'SELECT * FROM zLower RIGHT JOIN zUpper ON Lnum = Unum' ok 48 - parse 'SELECT * FROM zLower FULL JOIN zUpper ON Lnum = Unum' ok 49 - parse 'SELECT * FROM zLower INNER JOIN zUpper USING(num)' ok 50 - parse 'SELECT * FROM zLower LEFT JOIN zUpper USING(num)' ok 51 - parse 'SELECT * FROM zLower RIGHT JOIN zUpper USING(num)' ok 52 - parse 'SELECT * FROM zLower FULL JOIN zUpper USING(num)' ok 53 - parse 'SELECT * FROM zLower,zUpper WHERE Lnum = Unum' ok 54 - parse 'SELECT id, phrase FROM foo' ok 55 - parse 'SELECT * FROM foo' ok 56 - parse 'SELECT DISTINCT * FROM foo' ok 57 - parse 'SELECT ALL * FROM foo' ok 58 - parse 'SELECT A.*,B.* FROM A,B WHERE A.id=B.id' ok 59 - parse 'SELECT MAX(foo) FROM bar' ok 60 - parse 'SELECT MIN(foo) FROM bar' ok 61 - parse 'SELECT AVG(foo) FROM bar' ok 62 - parse 'SELECT SUM(foo) FROM bar' ok 63 - parse 'SELECT COUNT(foo) FROM foo' ok 64 - parse 'SELECT COUNT(*) FROM foo' ok 65 - parse 'SELECT SUM(DISTINCT foo) FROM bar' ok 66 - parse 'SELECT SUM(ALL foo) FROM bar' ok 67 - parse 'SELECT * FROM foo ORDER BY bar' ok 68 - parse 'SELECT * FROM foo ORDER BY bar, baz' ok 69 - parse 'SELECT * FROM foo ORDER BY bar DESC' ok 70 - parse 'SELECT * FROM foo ORDER BY bar ASC' ok 71 - parse 'SELECT * FROM foo LIMIT 5' ok 72 - parse 'SELECT * FROM foo LIMIT 0, 5' ok 73 - parse 'SELECT * FROM foo LIMIT 5, 10' ok 74 - parse 'SELECT * FROM foo WHERE UPPER(phrase) = 'bar'' ok 75 - parse 'SELECT * FROM foo WHERE LOWER(phrase) = 'bar'' ok 76 - parse 'SELECT * FROM foo WHERE TRIM( str ) = 'bar'S' ok 77 - parse 'SELECT * FROM foo WHERE TRIM( LEADING FROM str ) = 'bar'' ok 78 - parse 'SELECT * FROM foo WHERE TRIM( TRAILING FROM str ) = 'bar'' ok 79 - parse 'SELECT * FROM foo WHERE TRIM( BOTH FROM str ) = 'bar'' ok 80 - parse 'SELECT * FROM foo WHERE TRIM( LEADING ';' FROM str ) = 'bar'' ok 81 - parse 'SELECT * FROM foo WHERE TRIM( UPPER(phrase) ) = 'bar'' ok 82 - parse 'SELECT * FROM foo WHERE TRIM( LOWER(phrase) ) = 'bar'' ok 83 - parse 'SELECT * FROM foo WHERE blat= SUBSTRING(bar FROM 3 FOR 6)' ok 84 - parse 'SELECT * FROM foo WHERE blat= SUBSTRING(bar FROM 3)' ok 85 - parse 'UPDATE foo SET bar='baz', bop=7, bump=bar+8, blat=SUBSTRING(bar FROM 3 FOR 6)' ok 86 - parse 'SELECT * FROM test as T1' ok 87 - parse 'SELECT * FROM test T1' ok 88 - parse 'SELECT T1.id, T2.num FROM test as T1 JOIN test2 as T2 USING(id)' ok 89 - parse 'SELECT id FROM test as T1 WHERE T1.num < 7' ok 90 - parse 'SELECT id FROM test as T1 ORDER BY T1.num' ok 91 - parse 'SELECT a.x,b.y FROM foo AS a, bar b WHERE a.baz = b.bop ORDER BY a.blat' ok 92 - parse 'SELECT * FROM foo WHERE 1 = 0 AND baz < (6*foo+11-r)' ok 93 - parse 'SELECT ID, phRase FROM tEst AS tE WHERE te.id < 3 ORDER BY TE.phrasE' ok 94 - parse 'SELECT * FROM ztable WHERE NOT data IN ('one','two')' ok 95 - parse 'SELECT * from ztable WHERE (aaa > 'AAA')' ok 96 - parse 'SELECT * from ztable WHERE sev = 50 OR sev = 60' ok 97 - parse 'SELECT * from ztable WHERE (sev = 50 OR sev = 60)' ok 98 - parse 'SELECT * from ztable WHERE sev IN (50,60)' ok 99 - parse 'SELECT * from ztable WHERE rc > 200 AND ( sev IN(50,60) )' ok 100 - parse 'SELECT * FROM ztable WHERE data NOT IN ('one','two')' ok 101 - parse 'SELECT * from ztable WHERE (aaa > 'AAA') AND (zzz < 'ZZZ')' ok 102 - parse 'SELECT * from ztable WHERE (sev IN(50,60))' ok 103 - parse 'SELECT * FROM foo WHERE NOT bar = 'baz' AND bop = 7 OR NOT blat = bar' ok 104 - parse 'SELECT * FROM foo WHERE NOT bar = 'baz' AND NOT bop = 7 OR NOT blat = bar' ok 105 - parse 'SELECT * FROM foo WHERE NOT bar = 'baz' AND NOT bop = 7 OR blat IS NOT NULL' ok 106 - parse 'SELECT * FROM bar WHERE foo IN ('aa','ab','ba','bb')' ok 107 - parse 'SELECT * FROM bar WHERE foo IN (3.14,2.72,1.41,9.81)' ok 108 - parse 'SELECT * FROM bar WHERE foo NOT IN ('aa','ab','ba','bb')' ok 109 - parse 'SELECT * FROM bar WHERE foo NOT IN (3.14,2.72,1.41,9.81)' ok 110 - parse 'SELECT * FROM bar WHERE foo BETWEEN ('aa','bb')' ok 111 - parse 'SELECT * FROM bar WHERE foo BETWEEN (1.41,9.81)' ok 112 - parse 'SELECT * FROM bar WHERE foo NOT BETWEEN ('aa','bb')' ok 113 - parse 'SELECT * FROM bar WHERE foo NOT BETWEEN (1.41,9.81)' ok t/02executeDirect.t .. SQL::Statement v.1.30 1..57 ok 1 - $parser->new ok 2 - $stmt->new ok 3 - $stmt->command ok 4 - $stmt->params ok 5 - $stmt->tables ok 6 - $stmt->where()->op ok 7 - $stmt->where()->left ok 8 - $stmt->where()->left->left ok 9 - $stmt->where()->left->right ok 10 - $stmt->limit ok 11 - $stmt->offset ok 12 - $stmt->row_values() ok 13 - $stmt->row_values(0) ok 14 - $stmt->row_values(0,1) ok 15 - structure ok 16 - command ok 17 - distinct ok 18 - $stmt->execute " CREATE TEMP TABLE a (b INT, c CHAR)" (CREATE) ok 19 - $stmt->execute " INSERT INTO a VALUES(1,'abc')" (INSERT) ok 20 - $stmt->execute " INSERT INTO a VALUES(2,'efg')" (INSERT) ok 21 - $stmt->execute " INSERT INTO a VALUES(3,'hij')" (INSERT) ok 22 - $stmt->execute " INSERT INTO a VALUES(4,'klm')" (INSERT) ok 23 - $stmt->execute " INSERT INTO a VALUES(5,'nmo')" (INSERT) ok 24 - $stmt->execute " INSERT INTO a VALUES(6,'pqr')" (INSERT) ok 25 - $stmt->execute " INSERT INTO a VALUES(7,'stu')" (INSERT) ok 26 - $stmt->execute " INSERT INTO a VALUES(8,'vwx')" (INSERT) ok 27 - $stmt->execute " INSERT INTO a VALUES(9,'yz')" (INSERT) ok 28 - $stmt->execute " SELECT b,c FROM a WHERE c LIKE '%b%' ORDER BY c DESC" (SELECT) ok 29 - $stmt->where_hash ok 30 - $stmt->columns ok 31 - $stmt->column_names ok 32 - $stmt->order ok 33 - $stmt->fetch ok 34 - $stmt->execute "SELECT b,c FROM a WHERE NOT c IN ('abc','klm','pqr','vwx','yz')" (SELECT) ok 35 - SELECT b,c FROM a WHERE NOT c IN ('abc','klm','pqr','vwx','yz') ok 36 - $stmt->execute "SELECT b,c FROM a WHERE NOT b IN (2,3,5,7)" (SELECT) ok 37 - SELECT b,c FROM a WHERE NOT b IN (2,3,5,7) ok 38 - $stmt->execute "SELECT b,c FROM a WHERE c BETWEEN ('abc','nmo')" (SELECT) ok 39 - SELECT b,c FROM a WHERE c BETWEEN ('abc','nmo') ok 40 - $stmt->execute "SELECT b,c FROM a WHERE c IN ('abc','klm','pqr','vwx','yz')" (SELECT) ok 41 - SELECT b,c FROM a WHERE c IN ('abc','klm','pqr','vwx','yz') ok 42 - $stmt->execute "SELECT b,c FROM a WHERE b NOT BETWEEN (5,7)" (SELECT) ok 43 - SELECT b,c FROM a WHERE b NOT BETWEEN (5,7) ok 44 - $stmt->execute "SELECT b,c FROM a WHERE c NOT BETWEEN ('abc','nmo')" (SELECT) ok 45 - SELECT b,c FROM a WHERE c NOT BETWEEN ('abc','nmo') ok 46 - $stmt->execute "SELECT b,c FROM a WHERE NOT b BETWEEN (5,7)" (SELECT) ok 47 - SELECT b,c FROM a WHERE NOT b BETWEEN (5,7) ok 48 - $stmt->execute "SELECT b,c FROM a WHERE b BETWEEN (5,7)" (SELECT) ok 49 - SELECT b,c FROM a WHERE b BETWEEN (5,7) ok 50 - $stmt->execute "SELECT b,c FROM a WHERE NOT c BETWEEN ('abc','nmo')" (SELECT) ok 51 - SELECT b,c FROM a WHERE NOT c BETWEEN ('abc','nmo') ok 52 - $stmt->execute "SELECT b,c FROM a WHERE b NOT IN (2,3,5,7)" (SELECT) ok 53 - SELECT b,c FROM a WHERE b NOT IN (2,3,5,7) ok 54 - $stmt->execute "SELECT b,c FROM a WHERE c NOT IN ('abc','klm','pqr','vwx','yz')" (SELECT) ok 55 - SELECT b,c FROM a WHERE c NOT IN ('abc','klm','pqr','vwx','yz') ok 56 - $stmt->execute "SELECT b,c FROM a WHERE b IN (2,3,5,7)" (SELECT) ok 57 - SELECT b,c FROM a WHERE b IN (2,3,5,7) ok Possible unintended interpolation of $\ in regex at C:/cpanfly-5.12/var/megalib/XBase.pm line 138. Possible unintended interpolation of $\ in regex at C:/cpanfly-5.12/var/megalib/XBase.pm line 139. Scalar value @fret[$i-1] better written as $fret[$i-1] at C:/cpanfly-5.12/var/megalib/XBase.pm line 498. Scalar value @fret[$i-1] better written as $fret[$i-1] at C:/cpanfly-5.12/var/megalib/XBase.pm line 500. Scalar value @fret[$i-1] better written as $fret[$i-1] at C:/cpanfly-5.12/var/megalib/XBase.pm line 503. Useless use of hash element in void context at C:/cpanfly-5.12/var/megalib/XBase.pm line 537. Useless use of private variable in void context at C:/cpanfly-5.12/var/megalib/XBase.pm line 537. Can't locate object method "create" via package "XBase" at C:/cpanfly-5.12/var/megalib/DBD/XBase.pm line 310. # Looks like you planned 26 tests but ran 22. # Looks like your test exited with 2 just after 22. t/03executeDBD.t ..... SQL::Statement v.1.30 1..26 ok 1 - placeholder insert with named cols ok 2 - placeholder insert without named cols ok 3 - placeholder delete ok 4 - placeholder update ok 5 - placeholder update ok 6 - multiline insert ok 7 - verify table contents ok 8 - DROP TABLE ok 9 - CREATE ok 10 - INSERT ok 11 - INSERT ok 12 - INSERT ok 13 - UPDATE ok 14 - DELETE ok 15 - SELECT ok 16 - COUNT * ok 17 - COMPUTED COLUMNS IN SELECT LIST ok 18 - CREATE FUNCTION from script ok 19 - CREATE FUNCTION from module ok 20 - LOAD FUNCTIONS ok 21 - IMPORT($AoA) ok 22 - IMPORT($internal_sth) Dubious, test returned 2 (wstat 512, 0x200) Failed 4/26 subtests t/04names.t .......... 1..5 SQL::Statement v.1.30 ok 1 - Column Names: select list = * ok 2 - Column Names: select list = named ok 3 - Column Names: select list = aliased ok 4 - Column Names: select list with function ok 5 - Column Names: select list with function = aliased ok Possible unintended interpolation of $\ in regex at C:/cpanfly-5.12/var/megalib/XBase.pm line 138. Possible unintended interpolation of $\ in regex at C:/cpanfly-5.12/var/megalib/XBase.pm line 139. Scalar value @fret[$i-1] better written as $fret[$i-1] at C:/cpanfly-5.12/var/megalib/XBase.pm line 498. Scalar value @fret[$i-1] better written as $fret[$i-1] at C:/cpanfly-5.12/var/megalib/XBase.pm line 500. Scalar value @fret[$i-1] better written as $fret[$i-1] at C:/cpanfly-5.12/var/megalib/XBase.pm line 503. Useless use of hash element in void context at C:/cpanfly-5.12/var/megalib/XBase.pm line 537. Useless use of private variable in void context at C:/cpanfly-5.12/var/megalib/XBase.pm line 537. Can't locate object method "create" via package "XBase" at C:/cpanfly-5.12/var/megalib/DBD/XBase.pm line 310. # Looks like you planned 5 tests but ran 3. # Looks like your test exited with 2 just after 3. t/05create.t ......... 1..5 ok 1 - CREATE TABLE AS IMPORT($AoA) ok 2 - CREATE TABLE AS IMPORT($AoH) ok 3 - CREATE TABLE AS IMPORT($internal_sth) Dubious, test returned 2 (wstat 512, 0x200) Failed 2/5 subtests # SQL::Statement v1.30 # DBI v1.613 # DBD::File v0.39 t/06aggregate.t ...... 1..15 ok 1 - GROUP BY one column ok 2 - GROUP BY several columns ok 3 - AGGREGATE FUNCTIONS WITHOUT GROUP BY ok 4 - COUNT(distinct column) WITH GROUP BY ok 5 - COUNT(*) with GROUP BY ok 6 - COUNT(DISTINCT *) fails ok 7 - GROUP BY required ok 8 - SUM(bar) of empty table ok 9 - COUNT(bar) of empty table with GROUP BY ok 10 - COUNT(*) of empty table ok 11 - Names in aggregated Table ok 12 - Number of rows in aggregated Table ok 13 - SUM(COUNTED) ok 14 - Aggregate functions ok 15 - Nasty COUNT(*) ok t/07case.t ........... 1..12 SQL::Statement v.1.30 ok 1 - lower/lower ok 2 - lower/upper ok 3 - lower/mixed ok 4 - lower/asterisked ok 5 - upper/lower ok 6 - upper/upper ok 7 - upper/mixed ok 8 - upper/asterisked ok 9 - mixed/lower ok 10 - mixed/upper ok 11 - mixed/mixed ok 12 - mixed/asterisked ok t/08join.t ........... 1..14 SQL::Statement v.1.30 ok 1 - NATURAL JOIN - with named columns in select list ok 2 - NATURAL JOIN - with select list = * ok 3 - NATURAL JOIN - with computed columns ok 4 - NATURAL JOIN - with no specifier on join column ok 5 - INNER JOIN - with no specifier on join column ok 6 - LEFT JOIN ok 7 - LEFT JOIN - enumerated columns ok 8 - LEFT JOIN - perversely intentionally mis-enumerated columns ok 9 - LEFT JOIN - lower case keywords ok 10 - RIGHT JOIN ok 11 - RIGHT JOIN - enumerated columns ok 12 - FULL JOIN ok 13 - IMPLICIT JOIN - two tables ok 14 - IMPLICIT JOIN - three tables ok t/09ops.t ............ 1..18 SQL::Statement v.1.30 ok 1 - unknwon type ok 2 - create type ok 3 - user-defined type ok 4 - known type ok 5 - drop type ok 6 - unknown type ok 7 - unknown keyword ok 8 - create keyword ok 9 - user-defined keyword ok 10 - known keyword ok 11 - drop keyword ok 12 - keyword as identifier ok 13 - unknown operator ok 14 - create operator ok 15 - user-defined operator ok 16 - known operator ok 17 - drop operator ok 18 - unkown operator ok t/10limit.t .......... 1..2 SQL::Statement v.1.30 ok 1 - limit with order by ok 2 - limit without order by ok t/11functions.t ...... 1..23 SQL::Statement v.1.30 ok 1 - min ok 2 - max ok 3 - sum ok 4 - count ok 5 - avg ok 6 - current_date/time/timestamp ok 7 - char_length ok 8 - position ok 9 - lower ok 10 - upper ok 11 - concat good ok 12 - concat bad ok 13 - coalesce ok 14 - nvl ok 15 - decode ok 16 - replace ok 17 - substitute ok 18 - substr ok 19 - trim ok 20 - soundex match ok 21 - soundex no match ok 22 - regex match ok 23 - regex no match ok t/12eval.t ........... 1..13 SQL::Statement v.1.30 ok 1 - eval row() ok 2 - eval column() ok 3 - eval params($val) ok 4 - eval params() ok 5 - eval column($tbl,$col) ok 6 - ram seek(bad whence) ok 7 - ram seek(bad index) ok 8 - ram seek(pos=2) ok 9 - $function->type ok 10 - $function->name ok 11 - $column->type ok 12 - function validate - no sub ok 13 - function validate ok t/13call.t ........... 1..2 SQL::Statement v.1.30 ok 1 - call function ok 2 - call function ok t/14allcols.t ........ 1..1 ok 1 - ->{all_cols} structure does not grow beyond control ok t/15naturaljoins.t ... 1..2 ok 1 - Natural Join - columns ok ok 2 - Natural Join - values ok ok t/16morejoins.t ...... 1..48 ok 1 - Cross Joins - columns ok ok 2 - Cross Joins - values ok ok 3 - Cross Joins - values ok ok 4 - Cross Joins - values ok ok 5 - Cross Joins - values ok ok 6 - Cross Joins - values ok ok 7 - Cross Joins - values ok ok 8 - Cross Joins - values ok ok 9 - Cross Joins - values ok ok 10 - Cross Joins - values ok ok 11 - Inner Joins - columns ok ok 12 - Inner Joins - values ok ok 13 - Inner Joins - values ok ok 14 - Inner Joins (USING) - columns ok ok 15 - Inner Joins (USING) - values ok ok 16 - Inner Joins (USING) - values ok ok 17 - Inner Joins (NATURAL) - columns ok ok 18 - Inner Joins (NATURAL) - values ok ok 19 - Inner Joins (NATURAL) - values ok ok 20 - Left Joins (using ON condition) - columns ok ok 21 - Left Joins (using ON condition) - values ok ok 22 - Left Joins (using ON condition) - values ok ok 23 - Left Joins (using ON condition) - values ok ok 24 - Left Joins (USING (num) condition) - columns ok ok 25 - Left Joins (USING (num) condition) - values ok ok 26 - Left Joins (USING (num) condition) - values ok ok 27 - Left Joins (USING (num) condition) - values ok ok 28 - Right Joins (using ON condition) - columns ok ok 29 - Right Joins (using ON condition) - values ok ok 30 - Right Joins (using ON condition) - values ok ok 31 - Right Joins (using ON condition) - values ok ok 32 - Left Joins (reverse former Right Join) - columns ok ok 33 - Left Joins (reverse former Right Join) - values ok ok 34 - Left Joins (reverse former Right Join) - values ok ok 35 - Left Joins (reverse former Right Join) - values ok ok 36 - Full Joins (using ON condition) - columns ok ok 37 - Full Joins (using ON condition) - values ok ok 38 - Full Joins (using ON condition) - values ok ok 39 - Full Joins (using ON condition) - values ok ok 40 - Full Joins (using ON condition) - values ok ok 41 - Left Joins (using ON t1.num = t2.num AND t2.wert = "xxx") - columns ok ok 42 - Left Joins (using ON t1.num = t2.num AND t2.wert = "xxx") - values ok # TODO Known fail. Test to remember that there is sth. waiting to be fixed. ok 43 - Left Joins (using ON t1.num = t2.num AND t2.wert = "xxx") - values ok # TODO Known fail. Test to remember that there is sth. waiting to be fixed. not ok 44 - Left Joins (using ON t1.num = t2.num AND t2.wert = "xxx") - values ok # TODO Known fail. Test to remember that there is sth. waiting to be fixed. # Failed (TODO) test 'Left Joins (using ON t1.num = t2.num AND t2.wert = "xxx") - values ok' # at t/16morejoins.t line 294. # got: ''3','c','3','yyy'' # expected: ''3','c',,' ok 45 - Left Joins (using ON t1.num = t2.num WHERE (t2.wert = "xxx" OR t2.wert IS NULL)) - columns ok ok 46 - Left Joins (using ON t1.num = t2.num WHERE (t2.wert = "xxx" OR t2.wert IS NULL)) - values ok # TODO Known fail. Test to remember that there is sth. waiting to be fixed. ok 47 - Left Joins (using ON t1.num = t2.num WHERE (t2.wert = "xxx" OR t2.wert IS NULL)) - values ok # TODO Known fail. Test to remember that there is sth. waiting to be fixed. not ok 48 - Left Joins (using ON t1.num = t2.num WHERE (t2.wert = "xxx" OR t2.wert IS NULL)) - values ok # TODO Known fail. Test to remember that there is sth. waiting to be fixed. # Failed (TODO) test 'Left Joins (using ON t1.num = t2.num WHERE (t2.wert = "xxx" OR t2.wert IS NULL)) - values ok' # at t/16morejoins.t line 324. # got: '' # expected: ''3','c',,' ok t/17quoting.t ........ 1..44 ok 1 - use SQL::Statement; ok 2 - use SQL::Parser; ok 3 - CREATE TEMP TABLE "TBL WITH SPACES" (id INT, "COLUMN WITH SPACES" CHAR, "SET" INT) ok 4 - INSERT INTO "TBL WITH SPACES" VALUES (1, 'foo', 1) ok 5 - INSERT INTO "TBL WITH SPACES" VALUES (2, 'bar', 0) ok 6 - Parsing SELECT "TBL WITH SPACES"."COLUMN WITH SPACES" ...: ok 7 - SELECTED 1 row ok 8 - got 'foo' ok 9 - Parsing SELECT "COLUMN WITH SPACES" ...: ok 10 - SELECTED 1 row ok 11 - got 'foo' ok 12 - Parsing SELECT "COLUMN WITH SPACES" AS CWS ...: ok 13 - SELECTED 1 row ok 14 - got 'foo' ok 15 - CREATE TEMP TABLE T1 (id INT, "COLUMN WITH SPACES" CHAR, "SET" INT) ok 16 - # INSERT INTO T1 VALUES (1, 'foo', 1) ok 17 - # INSERT INTO T1 VALUES (2, 'bar', 0) # ok 18 - Parsing SELECT T1."COLUMN WITH SPACES" ...: ok 19 - SELECTED 1 row ok 20 - got 'foo' ok 21 - Parsing SELECT "COLUMN WITH SPACES" ...: ok 22 - SELECTED 1 row ok 23 - got 'foo' ok 24 - Parsing SELECT "COLUMN WITH SPACES" AS CWS ...: ok 25 - SELECTED 1 row ok 26 - got 'foo' ok 27 - CREATE TEMP TABLE "TBL WITH SPACES" (id INT, CWS CHAR, "SET" INT) ok 28 - # INSERT INTO "TBL WITH SPACES" VALUES (1, 'foo', 1) ok 29 - # INSERT INTO "TBL WITH SPACES" VALUES (2, 'bar', 0) # ok 30 - Parsing SELECT "TBL WITH SPACES".CWS ...: ok 31 - SELECTED 1 row ok 32 - got 'foo' ok 33 - Parsing SELECT CWS ...: ok 34 - SELECTED 1 row ok 35 - got 'foo' ok 36 - CREATE TEMP TABLE T1 (id INT, CWS CHAR, "SET" INT) ok 37 - # INSERT INTO T1 VALUES (1, 'foo', 1) ok 38 - # INSERT INTO T1 VALUES (2, 'bar', 0) # ok 39 - Parsing SELECT CWS ... WHERE "SET"=0: ok 40 - SELECTED 1 row ok 41 - got 'bar' ok 42 - Parsing SELECT "SET" ...: ok 43 - SELECTED 1 row ok 44 - got '0' for "SET" ok t/18bigjoin.t ........ 1..89 ok 1 - use SQL::Statement; ok 2 - use SQL::Parser; ok 3 - CREATE TEMP TABLE APPL (id INT, applname CHAR, appluniq CHAR, version CHAR, appl_type CHAR) ok 4 - CREATE TEMP TABLE PREC (id INT, appl_id INT, node_id INT, precedence INT) ok 5 - CREATE TEMP TABLE NODE (id INT, nodename CHAR, os CHAR, version CHAR) ok 6 - CREATE TEMP TABLE LANDSCAPE (id INT, landscapename CHAR) ok 7 - CREATE TEMP TABLE CONTACT (id INT, surname CHAR, familyname CHAR, phone CHAR, userid CHAR, mailaddr CHAR) ok 8 - CREATE TEMP TABLE NM_LANDSCAPE (id INT, ls_id INT, obj_id INT, obj_type INT) ok 9 - CREATE TEMP TABLE APPL_CONTACT (id INT, contact_id INT, appl_id INT, contact_type CHAR) ok 10 - INSERT INTO APPL VALUES ( 1, 'ZQF', 'ZFQLIN', '10.2.0.4', 'Oracle DB') ok 11 - INSERT INTO APPL VALUES ( 2, 'YRA', 'YRA-UX', '10.2.0.2', 'Oracle DB') ok 12 - INSERT INTO APPL VALUES ( 3, 'PRN1', 'PRN1-4.B2', '1.1.22', 'CUPS' ) ok 13 - INSERT INTO APPL VALUES ( 4, 'PRN2', 'PRN2-4.B2', '1.1.22', 'CUPS' ) ok 14 - INSERT INTO APPL VALUES ( 5, 'PRN1', 'PRN1-4.B1', '1.1.22', 'CUPS' ) ok 15 - INSERT INTO APPL VALUES ( 7, 'PRN2', 'PRN2-4.B1', '1.1.22', 'CUPS' ) ok 16 - INSERT INTO APPL VALUES ( 8, 'sql-stmt', 'SQL::Statement', '1.21', 'Project Web-Site') ok 17 - INSERT INTO APPL VALUES ( 9, 'cpan.org', 'http://www.cpan.org/', '1.0', 'Web-Site') ok 18 - INSERT INTO APPL VALUES (10, 'httpd', 'cpan-apache', '2.2.13', 'Web-Server') ok 19 - INSERT INTO APPL VALUES (11, 'cpan-mods', 'cpan-mods', '8.4.1', 'PostgreSQL DB') ok 20 - INSERT INTO APPL VALUES (12, 'cpan-authors', 'cpan-authors', '8.4.1', 'PostgreSQL DB') ok 21 - INSERT INTO NODE VALUES ( 1, 'ernie', 'RHEL', '5.2') ok 22 - INSERT INTO NODE VALUES ( 2, 'bert', 'RHEL', '5.2') ok 23 - INSERT INTO NODE VALUES ( 3, 'statler', 'FreeBSD', '7.2') ok 24 - INSERT INTO NODE VALUES ( 4, 'waldorf', 'FreeBSD', '7.2') ok 25 - INSERT INTO NODE VALUES ( 5, 'piggy', 'NetBSD', '5.0.2') ok 26 - INSERT INTO NODE VALUES ( 6, 'kermit', 'NetBSD', '5.0.2') ok 27 - INSERT INTO NODE VALUES ( 7, 'samson', 'NetBSD', '5.0.2') ok 28 - INSERT INTO NODE VALUES ( 8, 'tiffy', 'NetBSD', '5.0.2') ok 29 - INSERT INTO NODE VALUES ( 9, 'rowlf', 'Debian Lenny', '5.0') ok 30 - INSERT INTO NODE VALUES (10, 'fozzy', 'Debian Lenny', '5.0') ok 31 - INSERT INTO PREC VALUES ( 1, 1, 1, 1) ok 32 - INSERT INTO PREC VALUES ( 2, 1, 2, 2) ok 33 - INSERT INTO PREC VALUES ( 3, 2, 2, 1) ok 34 - INSERT INTO PREC VALUES ( 4, 2, 1, 2) ok 35 - INSERT INTO PREC VALUES ( 5, 3, 5, 1) ok 36 - INSERT INTO PREC VALUES ( 6, 3, 7, 2) ok 37 - INSERT INTO PREC VALUES ( 7, 4, 6, 1) ok 38 - INSERT INTO PREC VALUES ( 8, 4, 8, 2) ok 39 - INSERT INTO PREC VALUES ( 9, 5, 7, 1) ok 40 - INSERT INTO PREC VALUES (10, 5, 5, 2) ok 41 - INSERT INTO PREC VALUES (11, 6, 8, 1) ok 42 - INSERT INTO PREC VALUES (12, 7, 6, 2) ok 43 - INSERT INTO PREC VALUES (13, 10, 9, 1) ok 44 - INSERT INTO PREC VALUES (14, 10, 10, 1) ok 45 - INSERT INTO PREC VALUES (15, 8, 9, 1) ok 46 - INSERT INTO PREC VALUES (16, 8, 10, 1) ok 47 - INSERT INTO PREC VALUES (17, 9, 9, 1) ok 48 - INSERT INTO PREC VALUES (18, 9, 10, 1) ok 49 - INSERT INTO PREC VALUES (19, 11, 3, 1) ok 50 - INSERT INTO PREC VALUES (20, 11, 4, 2) ok 51 - INSERT INTO PREC VALUES (21, 12, 4, 1) ok 52 - INSERT INTO PREC VALUES (22, 12, 3, 2) ok 53 - INSERT INTO LANDSCAPE VALUES (1, 'Logistic') ok 54 - INSERT INTO LANDSCAPE VALUES (2, 'Infrastructure') ok 55 - INSERT INTO LANDSCAPE VALUES (3, 'CPAN') ok 56 - INSERT INTO CONTACT VALUES ( 1, 'Hans Peter', 'Mueller', '12345', 'HPMUE', 'hp-mueller@here.com') ok 57 - INSERT INTO CONTACT VALUES ( 2, 'Knut', 'Inge', '54321', 'KINGE', 'k-inge@here.com') ok 58 - INSERT INTO CONTACT VALUES ( 3, 'Lola', 'Nguyen', '+1-123-45678-90', 'LNYUG', 'lola.ngyuen@customer.com') ok 59 - INSERT INTO CONTACT VALUES ( 4, 'Helge', 'Brunft', '+41-123-45678-09', 'HBRUN', 'helge.brunft@external-dc.at') ok 60 - INSERT INTO NM_LANDSCAPE VALUES ( 1, 1, 1, 2) ok 61 - INSERT INTO NM_LANDSCAPE VALUES ( 2, 1, 2, 2) ok 62 - INSERT INTO NM_LANDSCAPE VALUES ( 3, 3, 3, 2) ok 63 - INSERT INTO NM_LANDSCAPE VALUES ( 4, 3, 4, 2) ok 64 - INSERT INTO NM_LANDSCAPE VALUES ( 5, 2, 5, 2) ok 65 - INSERT INTO NM_LANDSCAPE VALUES ( 6, 2, 6, 2) ok 66 - INSERT INTO NM_LANDSCAPE VALUES ( 7, 2, 7, 2) ok 67 - INSERT INTO NM_LANDSCAPE VALUES ( 8, 2, 8, 2) ok 68 - INSERT INTO NM_LANDSCAPE VALUES ( 9, 3, 9, 2) ok 69 - INSERT INTO NM_LANDSCAPE VALUES (10, 3,10, 2) ok 70 - INSERT INTO NM_LANDSCAPE VALUES (11, 1, 1, 1) ok 71 - INSERT INTO NM_LANDSCAPE VALUES (12, 2, 2, 1) ok 72 - INSERT INTO NM_LANDSCAPE VALUES (13, 2, 2, 3) ok 73 - INSERT INTO NM_LANDSCAPE VALUES (14, 3, 1, 3) ok 74 - INSERT INTO APPL_CONTACT VALUES (1, 3, 1, 'OWNER') ok 75 - INSERT INTO APPL_CONTACT VALUES (2, 3, 2, 'OWNER') ok 76 - INSERT INTO APPL_CONTACT VALUES (3, 4, 3, 'ADMIN') ok 77 - INSERT INTO APPL_CONTACT VALUES (4, 4, 4, 'ADMIN') ok 78 - INSERT INTO APPL_CONTACT VALUES (5, 4, 5, 'ADMIN') ok 79 - INSERT INTO APPL_CONTACT VALUES (6, 4, 6, 'ADMIN') ok 80 - $stmt->execute "SELECT DISTINCT applname, appluniq, version, surname, familyname, phone, nodename FROM APPL, PREC, NODE, CONTACT, APPL_CONTACT WHERE appl_type='CUPS' AND APPL.id=PREC.appl_id AND PREC.node_id=NODE.id AND APPL_CONTACT.appl_id=APPL.id AND APPL_CONTACT.contact_id=CONTACT.id" (SELECT) ok 81 - SELECT DISTINCT applname, appluniq, version, surname, familyname, phone, nodename FROM APPL, PREC, NODE, CONTACT, APPL_CONTACT WHERE appl_type='CUPS' AND APPL.id=PREC.appl_id AND PREC.node_id=NODE.id AND APPL_CONTACT.appl_id=APPL.id AND APPL_CONTACT.contact_id=CONTACT.id ok 82 - $stmt->execute "SELECT applname, appluniq, version, surname, familyname, phone, nodename FROM APPL, PREC, NODE, CONTACT, APPL_CONTACT WHERE appl_type='CUPS' AND APPL.id=PREC.appl_id AND PREC.node_id=NODE.id AND APPL_CONTACT.appl_id=APPL.id AND APPL_CONTACT.contact_id=CONTACT.id AND PREC.PRECEDENCE=1" (SELECT) ok 83 - SELECT applname, appluniq, version, surname, familyname, phone, nodename FROM APPL, PREC, NODE, CONTACT, APPL_CONTACT WHERE appl_type='CUPS' AND APPL.id=PREC.appl_id AND PREC.node_id=NODE.id AND APPL_CONTACT.appl_id=APPL.id AND APPL_CONTACT.contact_id=CONTACT.id AND PREC.PRECEDENCE=1 ok 84 - $stmt->execute "SELECT CONCAT('[% NOW %]') AS "timestamp", applname, appluniq, version, nodename FROM APPL, PREC, NODE WHERE appl_type LIKE '%DB' AND APPL.id=PREC.appl_id AND PREC.node_id=NODE.id" (SELECT) ok 85 - SELECT CONCAT('[% NOW %]') AS "timestamp", applname, appluniq, version, nodename FROM APPL, PREC, NODE WHERE appl_type LIKE '%DB' AND APPL.id=PREC.appl_id AND PREC.node_id=NODE.id ok 86 - $stmt->execute "SELECT applname, appluniq, version, landscapename, nodename FROM APPL, PREC, NODE, LANDSCAPE, NM_LANDSCAPE WHERE appl_type LIKE '%DB' AND APPL.id=PREC.appl_id AND PREC.node_id=NODE.id AND NM_LANDSCAPE.obj_id=APPL.id AND NM_LANDSCAPE.obj_type=1 AND NM_LANDSCAPE.ls_id=LANDSCAPE.id" (SELECT) ok 87 - SELECT applname, appluniq, version, landscapename, nodename FROM APPL, PREC, NODE, LANDSCAPE, NM_LANDSCAPE WHERE appl_type LIKE '%DB' AND APPL.id=PREC.appl_id AND PREC.node_id=NODE.id AND NM_LANDSCAPE.obj_id=APPL.id AND NM_LANDSCAPE.obj_type=1 AND NM_LANDSCAPE.ls_id=LANDSCAPE.id ok 88 - $stmt->execute "SELECT applname, appluniq, version, nodename FROM APPL, PREC, NODE WHERE appl_type LIKE '%DB' AND APPL.id=PREC.appl_id AND PREC.node_id=NODE.id" (SELECT) ok 89 - SELECT applname, appluniq, version, nodename FROM APPL, PREC, NODE WHERE appl_type LIKE '%DB' AND APPL.id=PREC.appl_id AND PREC.node_id=NODE.id ok t/19idents.t ......... 1..11 ok 1 - use SQL::Statement; ok 2 - use SQL::Parser; ok 3 - Parsing SELECT "foo" FROM "SomeTable" ok 4 - Raw SQL hidden absent from column name [rt.cpan.org \#34121] ok 5 - Raw SQL hidden absent from table name [rt.cpan.org \#34121] ok 6 - Parsing SELECT "text" FROM "Table" ok 7 - Raw SQL hidden absent from column name [rt.cpan.org \#34121] ok 8 - Raw SQL hidden absent from table name [rt.cpan.org \#34121] ok 9 - Parsing SELECT foo FROM SomeTable ok 10 - Lowercased unquoted column name ok 11 - Lowercased unquoted table name ok t/20pod.t ............ 1..20 ok 1 - POD test for blib\lib\SQL\Eval.pm ok 2 - POD test for blib\lib\SQL\Parser.pm ok 3 - POD test for blib\lib\SQL\Statement.pm ok 4 - POD test for blib\lib\SQL\Dialects\ANSI.pm ok 5 - POD test for blib\lib\SQL\Dialects\AnyData.pm ok 6 - POD test for blib\lib\SQL\Dialects\CSV.pm ok 7 - POD test for blib\lib\SQL\Dialects\Role.pm ok 8 - POD test for blib\lib\SQL\Statement\Embed.pod ok 9 - POD test for blib\lib\SQL\Statement\Function.pm ok 10 - POD test for blib\lib\SQL\Statement\Functions.pm ok 11 - POD test for blib\lib\SQL\Statement\GetInfo.pm ok 12 - POD test for blib\lib\SQL\Statement\Operation.pm ok 13 - POD test for blib\lib\SQL\Statement\Placeholder.pm ok 14 - POD test for blib\lib\SQL\Statement\RAM.pm ok 15 - POD test for blib\lib\SQL\Statement\Roadmap.pod ok 16 - POD test for blib\lib\SQL\Statement\Structure.pod ok 17 - POD test for blib\lib\SQL\Statement\Syntax.pod ok 18 - POD test for blib\lib\SQL\Statement\Term.pm ok 19 - POD test for blib\lib\SQL\Statement\TermFactory.pm ok 20 - POD test for blib\lib\SQL\Statement\Util.pm ok t/21pod_coverage.t ... 1..16 ok 1 - Pod coverage on SQL::Eval ok 2 - Pod coverage on SQL::Parser ok 3 - Pod coverage on SQL::Statement ok 4 - Pod coverage on SQL::Dialects::ANSI ok 5 - Pod coverage on SQL::Dialects::AnyData ok 6 - Pod coverage on SQL::Dialects::CSV ok 7 - Pod coverage on SQL::Dialects::Role ok 8 - Pod coverage on SQL::Statement::Function ok 9 - Pod coverage on SQL::Statement::Functions ok 10 - Pod coverage on SQL::Statement::GetInfo ok 11 - Pod coverage on SQL::Statement::Operation ok 12 - Pod coverage on SQL::Statement::Placeholder ok 13 - Pod coverage on SQL::Statement::RAM ok 14 - Pod coverage on SQL::Statement::Term ok 15 - Pod coverage on SQL::Statement::TermFactory ok 16 - Pod coverage on SQL::Statement::Util ok t/22calc.t ........... 1..40 ok 1 - use SQL::Statement; ok 2 - use SQL::Parser; ok 3 - CREATE TEMP TABLE log (id INT, host CHAR, signature CHAR, message CHAR, time_stamp TIMESTAMP) ok 4 - INSERT INTO log VALUES (1, 'bert', '/netbsd', 'Copyright (c) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,', 1280721712) ok 5 - INSERT INTO log VALUES (2, 'bert', '/netbsd', '2006, 2007, 2008, 2009', 1280721712) ok 6 - INSERT INTO log VALUES (3, 'bert', '/netbsd', 'The NetBSD Foundation, Inc. All rights reserved.', 1280721712) ok 7 - INSERT INTO log VALUES (4, 'bert', '/netbsd', 'Copyright (c) 1982, 1986, 1989, 1991, 1993', 1280721712) ok 8 - INSERT INTO log VALUES (5, 'bert', '/netbsd', 'The Regents of the University of California. All rights reserved.', 1280721712) ok 9 - INSERT INTO log VALUES (6, 'bert', '/netbsd', '', 1280721712) ok 10 - INSERT INTO log VALUES (7, 'bert', '/netbsd', 'NetBSD 5.99.21 (BERT) \#0: Mon Nov 30 08:16:07 CET 2009', 1280721712) ok 11 - INSERT INTO log VALUES (8, 'ernie', 'rpc.statd', 'starting', 1280718112) ok 12 - INSERT INTO log VALUES (9, 'ernie', 'savecore', 'no core dump', 1280714512) ok 13 - INSERT INTO log VALUES (10, 'ernie', 'postfix/postfix-script', 'starting the Postfix mail system', 1280710912) ok 14 - INSERT INTO log VALUES (11, 'ernie', 'rpcbind', 'connect from 127.0.0.1 to dump()', 1280707312) ok 15 - INSERT INTO log VALUES (12, 'ernie', 'sshd', 'last message repeated 2 times', 1280703712) ok 16 - INSERT INTO log VALUES (13, 'ernie', 'shutdown', 'poweroff by root:', 1280700112) ok 17 - INSERT INTO log VALUES (14, 'ernie', 'shutdown', 'rebooted by root', 1280696512) ok 18 - INSERT INTO log VALUES (15, 'ernie', 'sshd', 'Server listening on :: port 22.', 1280692912) ok 19 - INSERT INTO log VALUES (16, 'ernie', 'sshd', 'Server listening on 0.0.0.0 port 22.', 1280689312) ok 20 - INSERT INTO log VALUES (17, 'ernie', 'sshd', 'Received SIGHUP; restarting.', 1280685712) ok 21 - $stmt->execute "SELECT MAX( CHAR_LENGTH(message) ) FROM log" (SELECT) ok 22 - SELECT MAX( CHAR_LENGTH(message) ) FROM log ok 23 - $stmt->execute "SELECT MAX(time_stamp - 3*3600) FROM log" (SELECT) ok 24 - SELECT MAX(time_stamp - 3*3600) FROM log ok 25 - $stmt->execute "SELECT 1+0 from log" (SELECT) ok 26 - SELECT 1+0 from log ok 27 - $stmt->execute "SELECT id,host,signature,message FROM log WHERE time_stamp BETWEEN ( 1280721712 - 5, 1280721712 + 5) ORDER BY id" (SELECT) ok 28 - SELECT id,host,signature,message FROM log WHERE time_stamp BETWEEN ( 1280721712 - 5, 1280721712 + 5) ORDER BY id ok 29 - $stmt->execute "SELECT id,host,signature,message FROM log WHERE time_stamp < (1280721712 - ( 4 * 60 )) ORDER BY id" (SELECT) ok 30 - SELECT id,host,signature,message FROM log WHERE time_stamp < (1280721712 - ( 4 * 60 )) ORDER BY id ok 31 - $stmt->execute "SELECT 1+1*2" (SELECT) ok 32 - SELECT 1+1*2 ok 33 - $stmt->execute "SELECT id,host,signature,message FROM log WHERE (time_stamp > (1280721712 - 5)) AND (time_stamp < (1280721712 + 5)) ORDER BY id" (SELECT) ok 34 - SELECT id,host,signature,message FROM log WHERE (time_stamp > (1280721712 - 5)) AND (time_stamp < (1280721712 + 5)) ORDER BY id ok 35 - $stmt->execute "SELECT MAX(time_stamp) FROM log WHERE time_stamp IN ( 1280721712 - (2*3600), 1280721712 - (4*3600))" (SELECT) ok 36 - SELECT MAX(time_stamp) FROM log WHERE time_stamp IN ( 1280721712 - (2*3600), 1280721712 - (4*3600)) ok 37 - $stmt->execute "SELECT 1" (SELECT) ok 38 - SELECT 1 ok 39 - $stmt->execute "SELECT MAX(time_stamp) - 3*3600 FROM log" (n/a) # TODO Known limitation. Parser/Engine can not handle properly not ok 40 - SELECT MAX(time_stamp) - 3*3600 FROM log # TODO Known limitation. Parser/Engine can not handle properly # Failed (TODO) test 'SELECT MAX(time_stamp) - 3*3600 FROM log' # at t/22calc.t line 128. # got: '' # expected: '1280710912' ok t/23dialects.t ....... 1..2 ok 1 ok 2 ok Test Summary Report ------------------- t/03executeDBD.t (Wstat: 512 Tests: 22 Failed: 0) Non-zero exit status: 2 Parse errors: Bad plan. You planned 26 tests but ran 22. t/05create.t (Wstat: 512 Tests: 3 Failed: 0) Non-zero exit status: 2 Parse errors: Bad plan. You planned 5 tests but ran 3. 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=24, Tests=578, 7 wallclock secs ( 0.20 usr + 0.05 sys = 0.25 CPU) Result: FAIL Failed 2/24 test programs. 0/578 subtests failed. NMAKE : fatal error U1077: 'C:\Perl-5.12\bin\perl.exe' : return code '0xff' Stop. REHSACK/SQL-Statement-1.30.tar.gz nmake test TEST_VERBOSE=1 -- NOT OK //hint// to see the cpan-testers results for installing this module, try: reports REHSACK/SQL-Statement-1.30.tar.gz Finished 2010-08-01T21:01:53