Start 2010-07-17T09:02:56
ActivePerl-1200 CPAN-1.9402
Going to read '/home/fly1200/var/cpan/Metadata'
Database was generated on Sat, 17 Jul 2010 21:26:57 GMT
Running make for R/RE/REHSACK/DBD-AnyData-0.110.tar.gz
Checksum for /net/nas/data/cpan/authors/id/R/RE/REHSACK/DBD-AnyData-0.110.tar.gz ok
DBD-AnyData-0.110
DBD-AnyData-0.110/META.yml
DBD-AnyData-0.110/Changes
DBD-AnyData-0.110/MANIFEST
DBD-AnyData-0.110/MANIFEST.SKIP
DBD-AnyData-0.110/Build.PL
DBD-AnyData-0.110/Makefile.PL
DBD-AnyData-0.110/README
DBD-AnyData-0.110/lib
DBD-AnyData-0.110/lib/DBD
DBD-AnyData-0.110/lib/DBD/AnyData.pm
DBD-AnyData-0.110/t
DBD-AnyData-0.110/t/00-load.t
DBD-AnyData-0.110/t/manifest.t
DBD-AnyData-0.110/t/pod.t
DBD-AnyData-0.110/t/01-basic.t
CPAN.pm: Going to build R/RE/REHSACK/DBD-AnyData-0.110.tar.gz
>>> /home/fly1200/ap1200-292396/bin/perl-static Makefile.PL
Checking if your kit is complete...
Looks good
Writing Makefile for DBD::AnyData
---- Unsatisfied dependencies detected during ----
---- REHSACK/DBD-AnyData-0.110.tar.gz ----
SQL::Statement [requires]
DBI [requires]
Running make test
Delayed until after prerequisites
Running test for module 'SQL::Statement'
Running make for R/RE/REHSACK/SQL-Statement-1.28.tar.gz
Checksum for /net/nas/data/cpan/authors/id/R/RE/REHSACK/SQL-Statement-1.28.tar.gz ok
SQL-Statement-1.28
SQL-Statement-1.28/lib
SQL-Statement-1.28/lib/SQL
SQL-Statement-1.28/lib/SQL/Dialects
SQL-Statement-1.28/lib/SQL/Dialects/ANSI.pm
SQL-Statement-1.28/lib/SQL/Dialects/Role.pm
SQL-Statement-1.28/lib/SQL/Dialects/AnyData.pm
SQL-Statement-1.28/lib/SQL/Dialects/CSV.pm
SQL-Statement-1.28/lib/SQL/Statement
SQL-Statement-1.28/lib/SQL/Statement/TermFactory.pm
SQL-Statement-1.28/lib/SQL/Statement/Structure.pod
SQL-Statement-1.28/lib/SQL/Statement/GetInfo.pm
SQL-Statement-1.28/lib/SQL/Statement/Term.pm
SQL-Statement-1.28/lib/SQL/Statement/Syntax.pod
SQL-Statement-1.28/lib/SQL/Statement/RAM.pm
SQL-Statement-1.28/lib/SQL/Statement/Placeholder.pm
SQL-Statement-1.28/lib/SQL/Statement/Roadmap.pod
SQL-Statement-1.28/lib/SQL/Statement/Function.pm
SQL-Statement-1.28/lib/SQL/Statement/Util.pm
SQL-Statement-1.28/lib/SQL/Statement/Embed.pod
SQL-Statement-1.28/lib/SQL/Statement/Operation.pm
SQL-Statement-1.28/lib/SQL/Statement/Functions.pm
SQL-Statement-1.28/lib/SQL/Statement.pm
SQL-Statement-1.28/lib/SQL/Parser.pm
SQL-Statement-1.28/lib/SQL/Eval.pm
SQL-Statement-1.28/t
SQL-Statement-1.28/t/14allcols.t
SQL-Statement-1.28/t/19idents.t
SQL-Statement-1.28/t/11functions.t
SQL-Statement-1.28/t/20pod.t
SQL-Statement-1.28/t/06aggregate.t
SQL-Statement-1.28/t/SQLtest.pm
SQL-Statement-1.28/t/13call.t
SQL-Statement-1.28/t/04names.t
SQL-Statement-1.28/t/21pod_coverage.t
SQL-Statement-1.28/t/17quoting.t
SQL-Statement-1.28/t/00error.t
SQL-Statement-1.28/t/03executeDBD.t
SQL-Statement-1.28/t/01prepare.t
SQL-Statement-1.28/t/09ops.t
SQL-Statement-1.28/t/08join.t
SQL-Statement-1.28/t/02executeDirect.t
SQL-Statement-1.28/t/12eval.t
SQL-Statement-1.28/t/23dialects.t
SQL-Statement-1.28/t/07case.t
SQL-Statement-1.28/t/18bigjoin.t
SQL-Statement-1.28/t/10limit.t
SQL-Statement-1.28/t/05create.t
SQL-Statement-1.28/t/16morejoins.t
SQL-Statement-1.28/t/15naturaljoins.t
SQL-Statement-1.28/t/22calc.t
SQL-Statement-1.28/Changes
SQL-Statement-1.28/MANIFEST
SQL-Statement-1.28/META.yml
SQL-Statement-1.28/.aspell.local.pws
SQL-Statement-1.28/MANIFEST.SKIP
SQL-Statement-1.28/Makefile.PL
SQL-Statement-1.28/README
CPAN.pm: Going to build R/RE/REHSACK/SQL-Statement-1.28.tar.gz
>>> /home/fly1200/ap1200-292396/bin/perl-static 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.28.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.612.tar.gz
Checksum for /net/nas/data/cpan/authors/id/T/TI/TIMB/DBI-1.612.tar.gz ok
DBI-1.612/
DBI-1.612/Changes
DBI-1.612/dbd_xsh.h
DBI-1.612/DBI.pm
DBI-1.612/DBI.xs
DBI-1.612/dbi_sql.h
DBI-1.612/dbilogstrip.PL
DBI-1.612/dbipport.h
DBI-1.612/dbiprof.PL
DBI-1.612/dbiproxy.PL
DBI-1.612/dbivport.h
DBI-1.612/DBIXS.h
DBI-1.612/dbixs_rev.h
DBI-1.612/dbixs_rev.pl
DBI-1.612/Driver.xst
DBI-1.612/Driver_xst.h
DBI-1.612/ex/
DBI-1.612/lib/
DBI-1.612/Makefile.PL
DBI-1.612/MANIFEST
DBI-1.612/META.yml
DBI-1.612/Perl.xs
DBI-1.612/README
DBI-1.612/Roadmap.pod
DBI-1.612/t/
DBI-1.612/TASKS.pod
DBI-1.612/test.pl
DBI-1.612/TODO_2005.txt
DBI-1.612/TODO_gofer.txt
DBI-1.612/typemap
DBI-1.612/t/01basics.t
DBI-1.612/t/02dbidrv.t
DBI-1.612/t/03handle.t
DBI-1.612/t/04mods.t
DBI-1.612/t/05concathash.t
DBI-1.612/t/06attrs.t
DBI-1.612/t/07kids.t
DBI-1.612/t/08keeperr.t
DBI-1.612/t/09trace.t
DBI-1.612/t/10examp.t
DBI-1.612/t/11fetch.t
DBI-1.612/t/12quote.t
DBI-1.612/t/13taint.t
DBI-1.612/t/14utf8.t
DBI-1.612/t/15array.t
DBI-1.612/t/19fhtrace.t
DBI-1.612/t/20meta.t
DBI-1.612/t/30subclass.t
DBI-1.612/t/35thrclone.t
DBI-1.612/t/40profile.t
DBI-1.612/t/41prof_dump.t
DBI-1.612/t/42prof_data.t
DBI-1.612/t/43prof_env.t
DBI-1.612/t/49dbd_file.t
DBI-1.612/t/50dbm_simple.t
DBI-1.612/t/51dbm_file.t
DBI-1.612/t/52dbm_complex.t
DBI-1.612/t/60preparse.t
DBI-1.612/t/65transact.t
DBI-1.612/t/70callbacks.t
DBI-1.612/t/72childhandles.t
DBI-1.612/t/80proxy.t
DBI-1.612/t/85gofer.t
DBI-1.612/t/86gofer_fail.t
DBI-1.612/t/87gofer_cache.t
DBI-1.612/t/90sql_type_cast.t
DBI-1.612/t/pod-coverage.t
DBI-1.612/t/pod.t
DBI-1.612/lib/Bundle/
DBI-1.612/lib/DBD/
DBI-1.612/lib/DBI/
DBI-1.612/lib/Win32/
DBI-1.612/lib/Win32/DBIODBC.pm
DBI-1.612/lib/DBI/Const/
DBI-1.612/lib/DBI/DBD/
DBI-1.612/lib/DBI/DBD.pm
DBI-1.612/lib/DBI/FAQ.pm
DBI-1.612/lib/DBI/Gofer/
DBI-1.612/lib/DBI/Profile.pm
DBI-1.612/lib/DBI/ProfileData.pm
DBI-1.612/lib/DBI/ProfileDumper/
DBI-1.612/lib/DBI/ProfileDumper.pm
DBI-1.612/lib/DBI/ProfileSubs.pm
DBI-1.612/lib/DBI/ProxyServer.pm
DBI-1.612/lib/DBI/PurePerl.pm
DBI-1.612/lib/DBI/SQL/
DBI-1.612/lib/DBI/Util/
DBI-1.612/lib/DBI/W32ODBC.pm
DBI-1.612/lib/DBI/Util/_accessor.pm
DBI-1.612/lib/DBI/Util/CacheMemory.pm
DBI-1.612/lib/DBI/SQL/Nano.pm
DBI-1.612/lib/DBI/ProfileDumper/Apache.pm
DBI-1.612/lib/DBI/Gofer/Execute.pm
DBI-1.612/lib/DBI/Gofer/Request.pm
DBI-1.612/lib/DBI/Gofer/Response.pm
DBI-1.612/lib/DBI/Gofer/Serializer/
DBI-1.612/lib/DBI/Gofer/Transport/
DBI-1.612/lib/DBI/Gofer/Transport/Base.pm
DBI-1.612/lib/DBI/Gofer/Transport/pipeone.pm
DBI-1.612/lib/DBI/Gofer/Transport/stream.pm
DBI-1.612/lib/DBI/Gofer/Serializer/Base.pm
DBI-1.612/lib/DBI/Gofer/Serializer/DataDumper.pm
DBI-1.612/lib/DBI/Gofer/Serializer/Storable.pm
DBI-1.612/lib/DBI/DBD/Metadata.pm
DBI-1.612/lib/DBI/DBD/SqlEngine.pm
DBI-1.612/lib/DBI/Const/GetInfo/
DBI-1.612/lib/DBI/Const/GetInfoReturn.pm
DBI-1.612/lib/DBI/Const/GetInfoType.pm
DBI-1.612/lib/DBI/Const/GetInfo/ANSI.pm
DBI-1.612/lib/DBI/Const/GetInfo/ODBC.pm
DBI-1.612/lib/DBD/DBM.pm
DBI-1.612/lib/DBD/ExampleP.pm
DBI-1.612/lib/DBD/File/
DBI-1.612/lib/DBD/File.pm
DBI-1.612/lib/DBD/Gofer/
DBI-1.612/lib/DBD/Gofer.pm
DBI-1.612/lib/DBD/NullP.pm
DBI-1.612/lib/DBD/Proxy.pm
DBI-1.612/lib/DBD/Sponge.pm
DBI-1.612/lib/DBD/Gofer/Policy/
DBI-1.612/lib/DBD/Gofer/Transport/
DBI-1.612/lib/DBD/Gofer/Transport/Base.pm
DBI-1.612/lib/DBD/Gofer/Transport/null.pm
DBI-1.612/lib/DBD/Gofer/Transport/pipeone.pm
DBI-1.612/lib/DBD/Gofer/Transport/stream.pm
DBI-1.612/lib/DBD/Gofer/Policy/Base.pm
DBI-1.612/lib/DBD/Gofer/Policy/classic.pm
DBI-1.612/lib/DBD/Gofer/Policy/pedantic.pm
DBI-1.612/lib/DBD/Gofer/Policy/rush.pm
DBI-1.612/lib/DBD/File/Developers.pod
DBI-1.612/lib/DBD/File/Roadmap.pod
DBI-1.612/lib/Bundle/DBI.pm
DBI-1.612/ex/perl_dbi_nulls_test.pl
DBI-1.612/ex/profile.pl
CPAN.pm: Going to build T/TI/TIMB/DBI-1.612.tar.gz
>>> /home/fly1200/ap1200-292396/bin/perl-static 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.
Your perl was compiled with gcc (version 4.0.0 20050519 (Red Hat 4.0.0-8)), okay.
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:
/home/fly1200/ap1200-292396/lib/Bundle/DBD
/home/fly1200/ap1200-292396/lib/Bundle/DBI.pm
/home/fly1200/ap1200-292396/lib/DBD
/home/fly1200/ap1200-292396/lib/DBI
/home/fly1200/ap1200-292396/lib/DBI.pm
/home/fly1200/ap1200-292396/lib/DBI/Changes.pm
/home/fly1200/ap1200-292396/lib/DBI/Const
/home/fly1200/ap1200-292396/lib/DBI/Const/GetInfo
/home/fly1200/ap1200-292396/lib/DBI/Const/GetInfo/ANSI.pm
/home/fly1200/ap1200-292396/lib/DBI/Const/GetInfo/ODBC.pm
/home/fly1200/ap1200-292396/lib/DBI/Const/GetInfoReturn.pm
/home/fly1200/ap1200-292396/lib/DBI/Const/GetInfoType.pm
/home/fly1200/ap1200-292396/lib/DBI/DBD
/home/fly1200/ap1200-292396/lib/DBI/DBD.pm
/home/fly1200/ap1200-292396/lib/DBI/DBD/Metadata.pm
/home/fly1200/ap1200-292396/lib/DBI/FAQ.pm
/home/fly1200/ap1200-292396/lib/DBI/Gofer
/home/fly1200/ap1200-292396/lib/DBI/Gofer/Execute.pm
/home/fly1200/ap1200-292396/lib/DBI/Gofer/Request.pm
/home/fly1200/ap1200-292396/lib/DBI/Gofer/Response.pm
/home/fly1200/ap1200-292396/lib/DBI/Gofer/Serializer
/home/fly1200/ap1200-292396/lib/DBI/Gofer/Serializer/Base.pm
/home/fly1200/ap1200-292396/lib/DBI/Gofer/Serializer/DataDumper.pm
/home/fly1200/ap1200-292396/lib/DBI/Gofer/Serializer/Storable.pm
/home/fly1200/ap1200-292396/lib/DBI/Gofer/Transport
/home/fly1200/ap1200-292396/lib/DBI/Gofer/Transport/Base.pm
/home/fly1200/ap1200-292396/lib/DBI/Gofer/Transport/pipeone.pm
/home/fly1200/ap1200-292396/lib/DBI/Gofer/Transport/stream.pm
/home/fly1200/ap1200-292396/lib/DBI/Profile.pm
/home/fly1200/ap1200-292396/lib/DBI/ProfileData.pm
/home/fly1200/ap1200-292396/lib/DBI/ProfileDumper
/home/fly1200/ap1200-292396/lib/DBI/ProfileDumper.pm
/home/fly1200/ap1200-292396/lib/DBI/ProfileDumper/Apache.pm
/home/fly1200/ap1200-292396/lib/DBI/ProfileSubs.pm
/home/fly1200/ap1200-292396/lib/DBI/ProxyServer.pm
/home/fly1200/ap1200-292396/lib/DBI/PurePerl.pm
/home/fly1200/ap1200-292396/lib/DBI/Roadmap.pm
/home/fly1200/ap1200-292396/lib/DBI/SQL
/home/fly1200/ap1200-292396/lib/DBI/SQL/Nano.pm
/home/fly1200/ap1200-292396/lib/DBI/Util
/home/fly1200/ap1200-292396/lib/DBI/Util/CacheMemory.pm
/home/fly1200/ap1200-292396/lib/DBI/Util/_accessor.pm
/home/fly1200/ap1200-292396/lib/DBI/W32ODBC.pm
/home/fly1200/ap1200-292396/lib/Win32/DBIODBC.pm
/home/fly1200/ap1200-292396/lib/auto/DBD
/home/fly1200/ap1200-292396/lib/auto/DBI
/home/fly1200/ap1200-292396/lib/auto/DBI/.packlist
/home/fly1200/ap1200-292396/lib/auto/DBI/DBI.bs
/home/fly1200/ap1200-292396/lib/auto/DBI/DBI.so
/home/fly1200/ap1200-292396/lib/auto/DBI/DBIXS.h
/home/fly1200/ap1200-292396/lib/auto/DBI/Driver.xst
/home/fly1200/ap1200-292396/lib/auto/DBI/Driver_xst.h
/home/fly1200/ap1200-292396/lib/auto/DBI/dbd_xsh.h
/home/fly1200/ap1200-292396/lib/auto/DBI/dbi_sql.h
/home/fly1200/ap1200-292396/lib/auto/DBI/dbipport.h
/home/fly1200/ap1200-292396/lib/auto/DBI/dbivport.h
/home/fly1200/ap1200-292396/lib/auto/DBI/dbixs_rev.h
I see you're using perl 5.012000 on x86_64-linux-thread-multi, 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.
Writing Makefile for DBI
>>> make
/home/fly1200/ap1200-292396/bin/perl-static -MExtUtils::Command -e 'mkpath' -- blib/lib/DBI
rm -f blib/lib/DBI/Changes.pm
cp Changes blib/lib/DBI/Changes.pm
/home/fly1200/ap1200-292396/bin/perl-static -MExtUtils::Command -e 'mkpath' -- blib/lib/DBI
rm -f blib/lib/DBI/Roadmap.pm
cp Roadmap.pod blib/lib/DBI/Roadmap.pm
cp Driver_xst.h blib/arch/auto/DBI/Driver_xst.h
cp lib/DBI/Gofer/Response.pm blib/lib/DBI/Gofer/Response.pm
cp lib/DBD/Proxy.pm blib/lib/DBD/Proxy.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/DBI/Const/GetInfo/ODBC.pm blib/lib/DBI/Const/GetInfo/ODBC.pm
cp lib/DBD/Gofer/Transport/pipeone.pm blib/lib/DBD/Gofer/Transport/pipeone.pm
cp lib/DBI/ProfileDumper/Apache.pm blib/lib/DBI/ProfileDumper/Apache.pm
cp lib/DBD/File.pm blib/lib/DBD/File.pm
cp Driver.xst blib/arch/auto/DBI/Driver.xst
cp lib/DBD/File/Roadmap.pod blib/lib/DBD/File/Roadmap.pod
cp lib/DBI/Util/CacheMemory.pm blib/lib/DBI/Util/CacheMemory.pm
cp lib/DBI/ProfileSubs.pm blib/lib/DBI/ProfileSubs.pm
cp lib/DBD/NullP.pm blib/lib/DBD/NullP.pm
cp dbi_sql.h blib/arch/auto/DBI/dbi_sql.h
cp lib/DBD/Gofer.pm blib/lib/DBD/Gofer.pm
cp dbivport.h blib/arch/auto/DBI/dbivport.h
cp dbd_xsh.h blib/arch/auto/DBI/dbd_xsh.h
cp dbixs_rev.h blib/arch/auto/DBI/dbixs_rev.h
cp lib/DBD/Gofer/Transport/Base.pm blib/lib/DBD/Gofer/Transport/Base.pm
cp lib/DBI/FAQ.pm blib/lib/DBI/FAQ.pm
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/Gofer/Transport/stream.pm blib/lib/DBI/Gofer/Transport/stream.pm
cp lib/DBI/Gofer/Serializer/Storable.pm blib/lib/DBI/Gofer/Serializer/Storable.pm
cp lib/DBI/Const/GetInfoReturn.pm blib/lib/DBI/Const/GetInfoReturn.pm
cp DBI.pm blib/lib/DBI.pm
cp lib/DBD/Gofer/Policy/Base.pm blib/lib/DBD/Gofer/Policy/Base.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/Gofer/Transport/pipeone.pm blib/lib/DBI/Gofer/Transport/pipeone.pm
cp lib/DBI/W32ODBC.pm blib/lib/DBI/W32ODBC.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/Gofer/Serializer/Base.pm blib/lib/DBI/Gofer/Serializer/Base.pm
cp lib/DBI/ProxyServer.pm blib/lib/DBI/ProxyServer.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
/home/fly1200/ap1200-292396/bin/perl-static -p -e "s/~DRIVER~/Perl/g" ./Driver.xst > Perl.xsi
/home/fly1200/ap1200-292396/bin/perl-static /home/fly1200/var/megalib/ExtUtils/xsubpp -typemap /home/fly1200/ap1200-292396/lib/ExtUtils/typemap -typemap typemap Perl.xs > Perl.xsc && mv Perl.xsc Perl.c
gcc -c -D_REENTRANT -D_GNU_SOURCE -DUSE_SITECUSTOMIZE -fno-merge-constants -fno-strict-aliasing -pipe -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2 -DVERSION=\"1.612\" -DXS_VERSION=\"1.612\" -fPIC "-I/home/fly1200/ap1200-292396/lib/CORE" -W -Wall -Wpointer-arith -Wbad-function-cast -Wno-comment -Wno-sign-compare -Wno-cast-qual -Wmissing-noreturn -Wno-unused-parameter Perl.c
/home/fly1200/ap1200-292396/bin/perl-static /home/fly1200/var/megalib/ExtUtils/xsubpp -typemap /home/fly1200/ap1200-292396/lib/ExtUtils/typemap -typemap typemap DBI.xs > DBI.xsc && mv DBI.xsc DBI.c
gcc -c -D_REENTRANT -D_GNU_SOURCE -DUSE_SITECUSTOMIZE -fno-merge-constants -fno-strict-aliasing -pipe -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -O2 -DVERSION=\"1.612\" -DXS_VERSION=\"1.612\" -fPIC "-I/home/fly1200/ap1200-292396/lib/CORE" -W -Wall -Wpointer-arith -Wbad-function-cast -Wno-comment -Wno-sign-compare -Wno-cast-qual -Wmissing-noreturn -Wno-unused-parameter DBI.c
DBI.xs: In function 'dbih_setup_handle':
DBI.xs:1279: warning: value computed is not used
DBI.xs:1317: warning: value computed is not used
DBI.xs:1318: warning: value computed is not used
DBI.xs:1323: warning: value computed is not used
DBI.xs:1326: warning: value computed is not used
DBI.xs: In function 'dbih_set_attr_k':
DBI.xs:2058: warning: value computed is not used
DBI.xs: In function 'dbih_get_attr_k':
DBI.xs:2153: warning: value computed is not used
DBI.xs:2377: warning: value computed is not used
DBI.xs: In function '_profile_next_node':
DBI.xs:2583: warning: value computed is not used
DBI.xs: In function 'XS_DBI_dispatch':
DBI.xs:3136: warning: value computed is not used
DBI.xs:3211: warning: value computed is not used
DBI.xs: In function 'XS_DBI__new_handle':
DBI.xs:4232: warning: value computed is not used
DBI.xs: In function 'XS_DBD_____st_fetchrow_hashref':
DBI.xs:4954: warning: value computed is not used
Running Mkbootstrap for DBI ()
chmod 644 DBI.bs
rm -f blib/arch/auto/DBI/DBI.so
gcc -shared -O2 DBI.o -o blib/arch/auto/DBI/DBI.so \
\
chmod 755 blib/arch/auto/DBI/DBI.so
cp DBI.bs blib/arch/auto/DBI/DBI.bs
chmod 644 blib/arch/auto/DBI/DBI.bs
/home/fly1200/ap1200-292396/bin/perl-static "-Iblib/arch" "-Iblib/lib" dbiprof.PL dbiprof
Extracted dbiprof from dbiprof.PL with variable substitutions.
cp dbiprof blib/script/dbiprof
/home/fly1200/ap1200-292396/bin/perl-static -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/dbiprof
/home/fly1200/ap1200-292396/bin/perl-static "-Iblib/arch" "-Iblib/lib" dbiproxy.PL dbiproxy
Extracted dbiproxy from dbiproxy.PL with variable substitutions.
cp dbiproxy blib/script/dbiproxy
/home/fly1200/ap1200-292396/bin/perl-static -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/dbiproxy
/home/fly1200/ap1200-292396/bin/perl-static "-Iblib/arch" "-Iblib/lib" dbilogstrip.PL dbilogstrip
Extracted dbilogstrip from dbilogstrip.PL with variable substitutions.
cp dbilogstrip blib/script/dbilogstrip
/home/fly1200/ap1200-292396/bin/perl-static -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/dbilogstrip
Manifying blib/man1/dbiprof.1
Manifying blib/man1/dbiproxy.1
Manifying blib/man1/dbilogstrip.1
Manifying blib/man3/DBD::Proxy.3
Manifying blib/man3/DBI::Gofer::Response.3
Manifying blib/man3/DBI::Gofer::Transport::Base.3
Manifying blib/man3/DBD::DBM.3
Manifying blib/man3/DBI::Gofer::Serializer::DataDumper.3
Manifying blib/man3/DBI::Const::GetInfoType.3
Manifying blib/man3/Roadmap.3
Manifying blib/man3/DBI::DBD::Metadata.3
Manifying blib/man3/DBD::Gofer::Transport::pipeone.3
Manifying blib/man3/DBI::Const::GetInfo::ODBC.3
Manifying blib/man3/DBI::ProfileDumper::Apache.3
Manifying blib/man3/DBD::File::Roadmap.3
Manifying blib/man3/DBD::File.3
Manifying blib/man3/DBI::Util::CacheMemory.3
Manifying blib/man3/DBI::ProfileSubs.3
Manifying blib/man3/DBD::Gofer.3
Manifying blib/man3/DBD::Gofer::Transport::Base.3
Manifying blib/man3/DBI::FAQ.3
Manifying blib/man3/DBD::Gofer::Policy::rush.3
Manifying blib/man3/DBI::SQL::Nano.3
Manifying blib/man3/DBI::Const::GetInfo::ANSI.3
Manifying blib/man3/DBI::Gofer::Request.3
Manifying blib/man3/DBD::Gofer::Transport::stream.3
Manifying blib/man3/DBD::Gofer::Policy::classic.3
Manifying blib/man3/DBD::Gofer::Policy::Base.3
Manifying blib/man3/DBI.3
Manifying blib/man3/DBI::Const::GetInfoReturn.3
Manifying blib/man3/DBI::Gofer::Serializer::Storable.3
Manifying blib/man3/DBI::Gofer::Transport::stream.3
Manifying blib/man3/DBD::Sponge.3
Manifying blib/man3/DBD::Gofer::Policy::pedantic.3
Manifying blib/man3/DBI::W32ODBC.3
Manifying blib/man3/DBI::Gofer::Transport::pipeone.3
Manifying blib/man3/DBD::Gofer::Transport::null.3
Manifying blib/man3/Bundle::DBI.3
Manifying blib/man3/TASKS.3
Manifying blib/man3/DBD::File::Developers.3
Manifying blib/man3/DBI::Profile.3
Manifying blib/man3/DBI::ProfileDumper.3
Manifying blib/man3/DBI::ProxyServer.3
Manifying blib/man3/DBI::Gofer::Serializer::Base.3
Manifying blib/man3/DBI::Gofer::Execute.3
Manifying blib/man3/DBI::DBD.3
Manifying blib/man3/Win32::DBIODBC.3
Manifying blib/man3/DBI::DBD::SqlEngine.3
Manifying blib/man3/DBI::PurePerl.3
Manifying blib/man3/DBI::ProfileData.3
TIMB/DBI-1.612.tar.gz
make -- OK
Running make test
>>> make test TEST_VERBOSE=1
PERL_DL_NONLAZY=1 /home/fly1200/ap1200-292396/bin/perl-static "-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(0x9e80d0)) 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(0xa5aa30) 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(0xa5aa30) 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(0xa5aa30) 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(0xa5aa30) 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(0x8bb188), 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(0x8bb188), 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(0x8bb188), 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(0x8bb188), 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(0x8bb188), 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(0x8bb188), 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(0x8bb188), 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 = 3150
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(0xa0c8a8)->parse_trace_flags(nonesuch) ignored unknown trace flags: 'nonesuch' at t/09trace.t line 118
ok 62
ok 63
caught warn: DBI::db=HASH(0xa0c8a8)->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(0xac21b0) ne DBI::db=HASH(0xac21b0)
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 - '33188 0 pm_to_blib' ne '33188 0 pm_to_blib'
rows()
ok 100 - row count 44
ok 101 - 44 vs 44
ok 102 - 44 vs 44
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 - "pm_to_blib 33188" eq "pm_to_blib 33188"
ok 119
selectall_arrayref Columns array slice
ok 120
ok 121
ok 122 - "pm_to_blib 33188" eq "pm_to_blib 33188"
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(0xac21b0), 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(0xac21b0), 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(0xac21b0), 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(0xac21b0), 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 /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa subdirs: ex . lib .. 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(0xa821a8)->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(0xa70db0)->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(0xa6c840)~0xa6c780 0) thr#65b010
<- 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(0x9f9838))= ( 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(0x9f9838))= ( 1 ) [1 items] at 19fhtrace.t line 267
# Layered logline
#
#
ok 24 - ... scalar trace: after change trace output: *** Test our layer
# <- trace(1, GLOB(0x9f9838))= ( 1 ) [1 items] at 19fhtrace.t line 267
# Layered logline
#
#
ok 25 - ... logger: trace_msg
#
Next logline
DBI::db=HASH(0xa6c780) trace level set to 0x0/1 (DBI @ 0x100/0) in DBI 1.612-ithread (pid 2397)
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(a6c780))= ( 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,
'9.60826873779297e-05',
'9.60826873779297e-05',
'9.60826873779297e-05',
'9.60826873779297e-05',
'1279382591.53572',
'1279382591.53572'
]
}
}
}, 'DBI::Profile' )
ok 6
ok 7
ok 8
ok 9
ok 10
dbi_profile
bless( {
'Path' => [
'!Statement',
'!MethodName'
],
'Data' => {
'' => {
'connected' => [
1,
'2.14576721191406e-06',
'2.14576721191406e-06',
'2.14576721191406e-06',
'2.14576721191406e-06',
'1279382591.53817',
'1279382591.53817'
],
'FETCH' => [
1,
'9.5367431640625e-07',
'9.5367431640625e-07',
'9.5367431640625e-07',
'9.5367431640625e-07',
'1279382591.53817',
'1279382591.53817'
],
'STORE' => [
5,
'4.00543212890625e-05',
'1.50203704833984e-05',
'5.00679016113281e-06',
'1.50203704833984e-05',
'1279382591.53808',
'1279382591.53818'
]
},
'Hi mom' => {
'my_method_name' => [
1,
'1',
'1',
'1',
'1',
'1279382591.5397',
'1279382591.5397'
]
}
}
}, '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 1279382591.5397 1279382591.5397
ok 17
2 3 1 1 2 1279382591.5397 1279382591.54445
ok 18
Test collected profile data
bless( {
'Path' => [
'!Statement'
],
'Data' => {
'set foo=1' => [
1,
'9.60826873779297e-05',
'9.60826873779297e-05',
'9.60826873779297e-05',
'9.60826873779297e-05',
'1279382591.64683',
'1279382591.64683'
],
'' => [
7,
'3.09944152832031e-05',
'7.15255737304688e-06',
'9.5367431640625e-07',
'7.15255737304688e-06',
'1279382591.54537',
'1279382591.54542'
],
'select mode,size,name from ?' => [
2351,
'0.0918538570404053',
'7.58171081542969e-05',
'2.88486480712891e-05',
'0.000173091888427734',
'1279382591.54562',
'1279382591.6468'
]
}
}, '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.091981s 90.65% (2359 calls) 40profile.t @ 2010-07-17 09:03:11
'' =>
0.000031s / 7 = 0.000004s avg (first 0.000007s, min 0.000001s, max 0.000007s)
'select mode,size,name from ?' =>
0.091854s / 2351 = 0.000039s avg (first 0.000076s, min 0.000029s, max 0.000173s)
'set foo=1' =>
0.000096s
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-07-17 09:03:12
'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-07-17 09:03:12
'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 3.50475311279297e-05 7.86781311035156e-06 9.5367431640625e-07 7.86781311035156e-06 1279382592.32036 1279382592.32043
+ 1 select mode,size,name from ?
= 2 0.000169038772583008 0.000102043151855469 6.69956207275391e-05 0.000102043151855469 1279382592.32152 1279382592.32196
+ 1
= 2 2.19345092773438e-05 1.00135803222656e-05 1.00135803222656e-05 1.19209289550781e-05 1279382592.32489 1279382592.32491
+ 1 select mode,size,name from ?
= 48 0.00189542770385742 0.000111103057861328 4.05311584472656e-06 0.000111103057861328 1279382592.32282 1279382592.32491
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.000407s (25 calls) 43prof_env.t @ 2010-07-17 09:03:12
'' =>
'DESTROY' =>
0.000038s
'FETCH' =>
0.000025s / 4 = 0.000006s avg (first 0.000001s, min 0.000001s, max 0.000017s)
'STORE' =>
0.000055s / 10 = 0.000006s avg (first 0.000006s, min 0.000004s, max 0.000007s)
'connect' =>
0.000091s / 2 = 0.000046s avg (first 0.000055s, min 0.000036s, max 0.000055s)
'connected' =>
0.000004s / 2 = 0.000002s avg (first 0.000003s, min 0.000001s, max 0.000003s)
'disconnect' =>
0.000016s / 2 = 0.000008s avg (first 0.000009s, min 0.000007s, max 0.000009s)
'disconnect_all' =>
0.000007s
'set dummy=1' =>
'do' =>
0.000099s
'set dummy=2' =>
'DESTROY' =>
0.000019s
'do' =>
0.000053s
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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
# /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/t_sbdgf_53442gz.txt
ok 11 - drop manually created table db_2409_2 (first file)
ok 12 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2409_2.txt removed
ok 13 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2409_2 exists
ok 14 - drop manually created table db_2409_2 (second file)
ok 15 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2409_2 removed
ok 16 - Create table db_2409_
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_2409_
ok 26 - execute on db_2409_
ok 27 - Prepare select * from DB_2409_
ok 28 - execute on DB_2409_
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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(0xa1b1c0)
dbh DBI::db=HASH(0xa3d018)
sth DBI::st=HASH(0x9f6e10)
sth DBI::st=HASH(0x827348)
sth DBI::st=HASH(0x9f65b8)
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(0x1344040)
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(0x1320250)
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(0x1356730)
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
# =============
# Testing pipeone transport with pedantic policy
# dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 79 - should connect to dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 80
ok 81
ok 82
ok 83 - should detect prepare failure
ok 84
ok 85
ok 86
ok 87
ok 88
ok 89
ok 90 - go_response executed flag should be true
ok 91
ok 92
ok 93
ok 94
# Testing go_request_count and caching of simple values
ok 95
ok 96
ok 97
# use_remote=1 (policy=pedantic, transport=pipeone) HASH(0x13bfb80)
ok 98
ok 99
ok 100
ok 101 # skip caching of metadata methods returning sth not yet implemented
ok 102 # skip caching of metadata methods returning sth not yet implemented
ok 103
ok 104
# =============
# Testing pipeone transport with classic policy
# dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 105 - should connect to dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 106
ok 107
ok 108
ok 109 - The object isa DBI::st
ok 110
ok 111
ok 112
ok 113
ok 114
ok 115
ok 116 - go_response executed flag should be true
ok 117
ok 118
ok 119
ok 120
# Testing go_request_count and caching of simple values
ok 121
ok 122
ok 123
# use_remote=0 (policy=classic, transport=pipeone) HASH(0x1356bf8)
ok 124
ok 125
ok 126
ok 127 # skip caching of metadata methods returning sth not yet implemented
ok 128 # skip caching of metadata methods returning sth not yet implemented
ok 129
ok 130
# =============
# Testing pipeone transport with rush policy
# dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 131 - should connect to dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 132
ok 133
ok 134
ok 135 - The object isa DBI::st
ok 136
ok 137
ok 138
ok 139
ok 140
ok 141
ok 142 - go_response executed flag should be true
ok 143
ok 144
ok 145
ok 146
# Testing go_request_count and caching of simple values
ok 147
ok 148
ok 149
# use_remote=0 (policy=rush, transport=pipeone) HASH(0x1362038)
ok 150
ok 151
ok 152
ok 153 # skip caching of metadata methods returning sth not yet implemented
ok 154 # skip caching of metadata methods returning sth not yet implemented
ok 155
ok 156
# =============
# Testing stream transport with pedantic policy
# dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 157 - should connect to dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 158
ok 159
ok 160
ok 161 - should detect prepare failure
ok 162
ok 163
ok 164
ok 165
ok 166
ok 167
ok 168 - go_response executed flag should be true
ok 169
ok 170
ok 171
ok 172
# Testing go_request_count and caching of simple values
ok 173
ok 174
ok 175
# use_remote=1 (policy=pedantic, transport=stream) HASH(0x13ee6a0)
ok 176
ok 177
ok 178
ok 179 # skip caching of metadata methods returning sth not yet implemented
ok 180 # skip caching of metadata methods returning sth not yet implemented
ok 181
ok 182
# =============
# Testing stream transport with classic policy
# dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 183 - should connect to dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 184
ok 185
ok 186
ok 187 - The object isa DBI::st
ok 188
ok 189
ok 190
ok 191
ok 192
ok 193
ok 194 - go_response executed flag should be true
ok 195
ok 196
ok 197
ok 198
# Testing go_request_count and caching of simple values
ok 199
ok 200
ok 201
# use_remote=0 (policy=classic, transport=stream) HASH(0x13c47d0)
ok 202
ok 203
ok 204
ok 205 # skip caching of metadata methods returning sth not yet implemented
ok 206 # skip caching of metadata methods returning sth not yet implemented
ok 207
ok 208
# =============
# Testing stream transport with rush policy
# dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 209 - should connect to dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 210
ok 211
ok 212
ok 213 - The object isa DBI::st
ok 214
ok 215
ok 216
ok 217
ok 218
ok 219
ok 220 - go_response executed flag should be true
ok 221
ok 222
ok 223
ok 224
# Testing go_request_count and caching of simple values
ok 225
ok 226
ok 227
# use_remote=0 (policy=rush, transport=stream) HASH(0x13eb6e8)
ok 228
ok 229
ok 230
ok 231 # skip caching of metadata methods returning sth not yet implemented
ok 232 # skip caching of metadata methods returning sth not yet implemented
ok 233
ok 234
1..234
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 49%
ok 7 - should fail about 50% of the time, but at least between 10% and 90% (got 49)
ok 8 - should fail about 50% of the time, but at least between 10% and 90% (got 49)
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 32)
ok 13 - should fail ~25% (ie 50% with one retry) (got 32)
ok 14 - transport request_retry_count should be around 50 (got 58)
ok 15 - transport request_retry_count should be around 50 (got 58)
ok 16
ok 17 - should fail ~50%, ie no retries (got 57)
ok 18 - should fail ~50%, ie no retries (got 57)
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
Use of uninitialized value $_[0] in lc at /home/fly1200/var/megalib/Cache.pm line 485.
Use of uninitialized value $_[0] in lc at /home/fly1200/var/megalib/Cache.pm line 485.
t/87gofer_cache.t ..........
using DBI::Util::CacheMemory=HASH(0xa38a10) 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 Cache::Memory=HASH(0xc542f0) 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
using 1 for dbi:Gofer:transport=null;policy=classic;dsn=dbi:ExampleP:
ok 35
ok 36
ok 37 - cache should be empty after clear
ok 38 - transmit_count should be 0
ok 39
ok 40 - cache should not be empty after select
ok 41
ok 42
ok 43
ok 44 - should make 1 round trip
ok 45 - transmit_count should be 0
ok 46
ok 47
ok 48 - should make 1 round trip
ok 49
ok 50
ok 51
test per-sth go_cache
ok 52
ok 53
ok 54
ok 55
ok 56
ok 57
ok 58
ok 59
ok 60
ok 61
ok 62
ok 63
ok 64
1..64
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>8)
ok 39 - json 4 byte max unsigned int cast to int (ivsize>8)
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..56
ok 1 - POD test for blib/script/dbiproxy
ok 2 - POD test for blib/script/dbiprof
ok 3 - POD test for blib/script/dbilogstrip
ok 4 - POD test for blib/lib/dbixs_rev.pl (no pod)
ok 5 - POD test for blib/lib/TASKS.pod
ok 6 - POD test for blib/lib/Roadmap.pod
ok 7 - POD test for blib/lib/DBI.pm
ok 8 - POD test for blib/lib/DBI/ProfileDumper.pm
ok 9 - POD test for blib/lib/DBI/FAQ.pm
ok 10 - POD test for blib/lib/DBI/ProfileSubs.pm
ok 11 - POD test for blib/lib/DBI/ProxyServer.pm
ok 12 - POD test for blib/lib/DBI/PurePerl.pm
ok 13 - POD test for blib/lib/DBI/Changes.pm
ok 14 - POD test for blib/lib/DBI/Roadmap.pm
ok 15 - POD test for blib/lib/DBI/ProfileData.pm
ok 16 - POD test for blib/lib/DBI/DBD.pm
ok 17 - POD test for blib/lib/DBI/Profile.pm
ok 18 - POD test for blib/lib/DBI/W32ODBC.pm
ok 19 - POD test for blib/lib/DBD/Proxy.pm
ok 20 - POD test for blib/lib/DBD/NullP.pm (no pod)
ok 21 - POD test for blib/lib/DBD/ExampleP.pm (no pod)
ok 22 - POD test for blib/lib/DBD/Gofer.pm
ok 23 - POD test for blib/lib/DBD/DBM.pm
ok 24 - POD test for blib/lib/DBD/Sponge.pm
ok 25 - POD test for blib/lib/DBD/File.pm
ok 26 - POD test for blib/lib/Win32/DBIODBC.pm
ok 27 - POD test for blib/lib/Bundle/DBI.pm
ok 28 - POD test for blib/lib/DBI/Const/GetInfoReturn.pm
ok 29 - POD test for blib/lib/DBI/Const/GetInfoType.pm
ok 30 - POD test for blib/lib/DBI/SQL/Nano.pm
ok 31 - POD test for blib/lib/DBI/Gofer/Execute.pm
ok 32 - POD test for blib/lib/DBI/Gofer/Request.pm
ok 33 - POD test for blib/lib/DBI/Gofer/Response.pm
ok 34 - POD test for blib/lib/DBI/Util/_accessor.pm (no pod)
ok 35 - POD test for blib/lib/DBI/Util/CacheMemory.pm
ok 36 - POD test for blib/lib/DBI/DBD/SqlEngine.pm
ok 37 - POD test for blib/lib/DBI/DBD/Metadata.pm
ok 38 - POD test for blib/lib/DBI/ProfileDumper/Apache.pm
ok 39 - POD test for blib/lib/DBD/File/Developers.pod
ok 40 - POD test for blib/lib/DBD/File/Roadmap.pod
ok 41 - POD test for blib/lib/DBI/Const/GetInfo/ANSI.pm
ok 42 - POD test for blib/lib/DBI/Const/GetInfo/ODBC.pm
ok 43 - POD test for blib/lib/DBI/Gofer/Serializer/DataDumper.pm
ok 44 - POD test for blib/lib/DBI/Gofer/Serializer/Base.pm
ok 45 - POD test for blib/lib/DBI/Gofer/Serializer/Storable.pm
ok 46 - POD test for blib/lib/DBI/Gofer/Transport/stream.pm
ok 47 - POD test for blib/lib/DBI/Gofer/Transport/pipeone.pm
ok 48 - POD test for blib/lib/DBI/Gofer/Transport/Base.pm
ok 49 - POD test for blib/lib/DBD/Gofer/Policy/pedantic.pm
ok 50 - POD test for blib/lib/DBD/Gofer/Policy/classic.pm
ok 51 - POD test for blib/lib/DBD/Gofer/Policy/rush.pm
ok 52 - POD test for blib/lib/DBD/Gofer/Policy/Base.pm
ok 53 - POD test for blib/lib/DBD/Gofer/Transport/null.pm
ok 54 - POD test for blib/lib/DBD/Gofer/Transport/stream.pm
ok 55 - POD test for blib/lib/DBD/Gofer/Transport/pipeone.pm
ok 56 - POD test for blib/lib/DBD/Gofer/Transport/Base.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(0x9e86d8)) 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(0x9b3100), 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(0x9b3100), 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(0x9b3100), 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(0x9b3100), 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(0x9b3100), 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(0x9b3100), 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(0x9b3100), 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 = 11808
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(0xd13f50)->parse_trace_flags(nonesuch) ignored unknown trace flags: 'nonesuch' at /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib/DBI/Gofer/Execute.pm line 329
ok 62
ok 63
caught warn: DBI::db=HASH(0xd0cd18)->parse_trace_flags(nonesuch|SQL|nonesuch2) ignored unknown trace flags: 'nonesuch' 'nonesuch2' at /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/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(0xd38980) ne DBI::db=HASH(0xd38980)
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 - '33188 0 pm_to_blib' ne '33188 0 pm_to_blib'
rows()
ok 100 - row count 45
ok 101 - 45 vs 45
ok 102 - 45 vs 45
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 - "pm_to_blib 33188" eq "pm_to_blib 33188"
ok 119
selectall_arrayref Columns array slice
ok 120
ok 121
ok 122 - "pm_to_blib 33188" eq "pm_to_blib 33188"
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(0xd38980), 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(0xd38980), 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(0xd38980), 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(0xd38980), 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 /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa subdirs: ex . lib .. 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(0xc52cb0)~0x9b60a0 0) thr#65b010
<- 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(0x9f9980))= ( 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(0x9f9980))= ( 1 ) [1 items] at 19fhtrace.t line 267
# Layered logline
#
#
ok 24 - ... scalar trace: after change trace output: *** Test our layer
# <- trace(1, GLOB(0x9f9980))= ( 1 ) [1 items] at 19fhtrace.t line 267
# Layered logline
#
#
Next logline
-----> execute_request
<- connect('dummy', '', ...)= ( DBI::db=HASH(0xd1e6a8) ) [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|2482|')= ( 1 ) [1 items] at DBI.pm line 717
<> FETCH('dbi_go_execute_unique')= ( 'DBI::Gofer::Execute|2482|' ) [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(0xd21528))= ( 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(0xd1ea08)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' '/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/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(d1e630))= ( undef ) [1 items] at Execute.pm line 312
ok 25 - ... logger: trace_msg
#
<----- execute_request
gofer receive_response
DBI::db=HASH(0x9b60a0) trace level set to 0x0/1 (DBI @ 0x100/0) in DBI 1.612-ithread (pid 2482)
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(9b60a0))= ( 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.000828981399536133',
'0.000828981399536133',
'0.000828981399536133',
'0.000828981399536133',
'1279382604.54322',
'1279382604.54322'
]
}
}
}, 'DBI::Profile' )
ok 6
ok 7
ok 8
ok 9
ok 10
dbi_profile
bless( {
'Path' => [
'!Statement',
'!MethodName'
],
'Data' => {
'' => {
'connected' => [
1,
'7.15255737304688e-06',
'7.15255737304688e-06',
'7.15255737304688e-06',
'7.15255737304688e-06',
'1279382604.5473',
'1279382604.5473'
],
'FETCH' => [
1,
'9.5367431640625e-07',
'9.5367431640625e-07',
'9.5367431640625e-07',
'9.5367431640625e-07',
'1279382604.5473',
'1279382604.5473'
],
'STORE' => [
5,
'3.48091125488281e-05',
'6.91413879394531e-06',
'3.814697265625e-06',
'1.40666961669922e-05',
'1279382604.54725',
'1279382604.54732'
]
},
'Hi mom' => {
'my_method_name' => [
1,
'1',
'1',
'1',
'1',
'1279382604.54885',
'1279382604.54885'
]
}
}
}, '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 1279382604.54885 1279382604.54885
ok 17
2 3 1 1 2 1279382604.54885 1279382604.55378
ok 18
Test collected profile data
bless( {
'Path' => [
'!Statement'
],
'Data' => {
'set foo=1' => [
1,
'0.000853061676025391',
'0.000853061676025391',
'0.000853061676025391',
'0.000853061676025391',
'1279382604.71895',
'1279382604.71895'
],
'' => [
7,
'4.67300415039062e-05',
'7.86781311035156e-06',
'9.5367431640625e-07',
'1.50203704833984e-05',
'1279382604.55558',
'1279382604.55565'
],
'select mode,size,name from ?' => [
2401,
'0.15517520904541',
'0.00116300582885742',
'1.00135803222656e-05',
'0.00325989723205566',
'1279382604.55587',
'1279382604.71893'
]
}
}, '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.156075s 95.54% (2409 calls) zvg_40profile.t @ 2010-07-17 09:03:24
'' =>
0.000047s / 7 = 0.000007s avg (first 0.000008s, min 0.000001s, max 0.000015s)
'select mode,size,name from ?' =>
0.155175s / 2401 = 0.000065s avg (first 0.001163s, min 0.000010s, max 0.003260s)
'set foo=1' =>
0.000853s
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-07-17 09:03:25
'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-07-17 09:03:25
'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 7.29560852050781e-05 2.50339508056641e-05 9.5367431640625e-07 2.50339508056641e-05 1279382605.14446 1279382605.14456
+ 1 select mode,size,name from ?
= 2 0.00376200675964355 0.00121092796325684 0.00121092796325684 0.00255107879638672 1279382605.14579 1279382605.14729
+ 1
= 1 5.10215759277344e-05 5.10215759277344e-05 5.10215759277344e-05 5.10215759277344e-05 1279382605.15144 1279382605.15144
+ 1 select mode,size,name from ?
= 48 0.000591039657592773 2.19345092773438e-05 4.05311584472656e-06 6.50882720947266e-05 1279382605.15069 1279382605.1515
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.027672s (130 calls) zvg_43prof_env.t @ 2010-07-17 09:03:26
'' =>
'DESTROY' =>
0.000050s / 3 = 0.000017s avg (first 0.000022s, min 0.000006s, max 0.000022s)
'FETCH' =>
0.000129s / 38 = 0.000003s avg (first 0.000014s, min 0.000000s, max 0.000014s)
'FETCH_many' =>
0.000128s / 4 = 0.000032s avg (first 0.000035s, min 0.000030s, max 0.000035s)
'STORE' =>
0.000269s / 42 = 0.000006s avg (first 0.000011s, min 0.000004s, max 0.000017s)
'connect' =>
0.024884s / 6 = 0.004147s avg (first 0.000057s, min 0.000034s, max 0.023703s)
'connected' =>
0.000024s / 6 = 0.000004s avg (first 0.000003s, min 0.000001s, max 0.000009s)
'disconnect' =>
0.000033s / 4 = 0.000008s avg (first 0.000008s, min 0.000008s, max 0.000009s)
'disconnect_all' =>
0.000011s / 2 = 0.000005s avg (first 0.000007s, min 0.000004s, max 0.000007s)
'ping' =>
0.000016s / 2 = 0.000008s avg (first 0.000008s, min 0.000008s, max 0.000008s)
'private_attribute_info' =>
0.000006s / 2 = 0.000003s avg (first 0.000003s, min 0.000003s, max 0.000003s)
'set_err' =>
0.000009s / 2 = 0.000004s avg (first 0.000006s, min 0.000003s, max 0.000006s)
'trace_msg' =>
0.000006s / 2 = 0.000003s avg (first 0.000004s, min 0.000002s, max 0.000004s)
'set dummy=1' =>
'DESTROY' =>
0.000021s
'FETCH' =>
0.000001s / 2 = 0.000000s avg (first 0.000000s, min 0.000000s, max 0.000001s)
'do' =>
0.001075s / 2 = 0.000537s avg (first 0.000087s, min 0.000087s, max 0.000988s)
'private_attribute_info' =>
0.000003s
'set_err' =>
0.000002s
'trace_msg' =>
0.000002s
'set dummy=2' =>
'DESTROY' =>
0.000022s / 2 = 0.000011s avg (first 0.000021s, min 0.000001s, max 0.000021s)
'FETCH' =>
0.000002s / 2 = 0.000001s avg (first 0.000001s, min 0.000001s, max 0.000001s)
'do' =>
0.000973s / 2 = 0.000486s avg (first 0.000059s, min 0.000059s, max 0.000914s)
'private_attribute_info' =>
0.000003s
'set_err' =>
0.000002s
'trace_msg' =>
0.000001s
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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
# /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/t_sbdgf_53442gz.txt
ok 11 - drop manually created table db_2494_2 (first file)
ok 12 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2494_2.txt removed
ok 13 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2494_2 exists
ok 14 - drop manually created table db_2494_2 (second file)
ok 15 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2494_2 removed
ok 16 - Create table db_2494_
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_2494_
ok 26 # skip method intrusion didn't work with proxying
ok 27 - Prepare select * from DB_2494_
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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(0xab7b10)
dbh DBI::db=HASH(0xc7ae28)
sth DBI::st=HASH(0xcffd08)
sth DBI::st=HASH(0x6bd960)
sth DBI::st=HASH(0xd02768)
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(0x137e7a0)
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(0x1384258)
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(0x139b7a8)
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
# =============
# Testing pipeone transport with pedantic policy
# dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 79 - should connect to dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 80
ok 81
ok 82
ok 83 - should detect prepare failure
ok 84
ok 85
ok 86
ok 87
ok 88
ok 89
ok 90 - go_response executed flag should be true
ok 91
ok 92
ok 93
ok 94
# Testing go_request_count and caching of simple values
ok 95
ok 96
ok 97
# use_remote=1 (policy=pedantic, transport=pipeone) HASH(0x13f8da8)
ok 98 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 99 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 100 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 101 # skip caching of metadata methods returning sth not yet implemented
ok 102 # skip caching of metadata methods returning sth not yet implemented
ok 103
ok 104
# =============
# Testing pipeone transport with classic policy
# dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 105 - should connect to dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 106
ok 107
ok 108
ok 109 - The object isa DBI::st
ok 110
ok 111
ok 112
ok 113
ok 114
ok 115
ok 116 - go_response executed flag should be true
ok 117
ok 118
ok 119
ok 120
# Testing go_request_count and caching of simple values
ok 121
ok 122
ok 123
# use_remote=0 (policy=classic, transport=pipeone) HASH(0x13fa988)
ok 124 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 125 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 126 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 127 # skip caching of metadata methods returning sth not yet implemented
ok 128 # skip caching of metadata methods returning sth not yet implemented
ok 129
ok 130
# =============
# Testing pipeone transport with rush policy
# dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 131 - should connect to dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 132
ok 133
ok 134
ok 135 - The object isa DBI::st
ok 136
ok 137
ok 138
ok 139
ok 140
ok 141
ok 142 - go_response executed flag should be true
ok 143
ok 144
ok 145
ok 146
# Testing go_request_count and caching of simple values
ok 147
ok 148
ok 149
# use_remote=0 (policy=rush, transport=pipeone) HASH(0x1407a28)
ok 150 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 151 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 152 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 153 # skip caching of metadata methods returning sth not yet implemented
ok 154 # skip caching of metadata methods returning sth not yet implemented
ok 155
ok 156
# =============
# Testing stream transport with pedantic policy
# dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 157 - should connect to dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 158
ok 159
ok 160
ok 161 - should detect prepare failure
ok 162
ok 163
ok 164
ok 165
ok 166
ok 167
ok 168 - go_response executed flag should be true
ok 169
ok 170
ok 171
ok 172
# Testing go_request_count and caching of simple values
ok 173
ok 174
ok 175
# use_remote=1 (policy=pedantic, transport=stream) HASH(0x142aaf8)
ok 176 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 177 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 178 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 179 # skip caching of metadata methods returning sth not yet implemented
ok 180 # skip caching of metadata methods returning sth not yet implemented
ok 181
ok 182
# =============
# Testing stream transport with classic policy
# dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 183 - should connect to dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 184
ok 185
ok 186
ok 187 - The object isa DBI::st
ok 188
ok 189
ok 190
ok 191
ok 192
ok 193
ok 194 - go_response executed flag should be true
ok 195
ok 196
ok 197
ok 198
# Testing go_request_count and caching of simple values
ok 199
ok 200
ok 201
# use_remote=0 (policy=classic, transport=stream) HASH(0x13a25d8)
ok 202 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 203 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 204 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 205 # skip caching of metadata methods returning sth not yet implemented
ok 206 # skip caching of metadata methods returning sth not yet implemented
ok 207
ok 208
# =============
# Testing stream transport with rush policy
# dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 209 - should connect to dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 210
ok 211
ok 212
ok 213 - The object isa DBI::st
ok 214
ok 215
ok 216
ok 217
ok 218
ok 219
ok 220 - go_response executed flag should be true
ok 221
ok 222
ok 223
ok 224
# Testing go_request_count and caching of simple values
ok 225
ok 226
ok 227
# use_remote=0 (policy=rush, transport=stream) HASH(0x143c0b8)
ok 228 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 229 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 230 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 231 # skip caching of metadata methods returning sth not yet implemented
ok 232 # skip caching of metadata methods returning sth not yet implemented
ok 233
ok 234
1..234
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>8)
ok 39 - json 4 byte max unsigned int cast to int (ivsize>8)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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
# /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/t_sbdgf_53442gz.txt
ok 11 - drop manually created table db_2573_2 (first file)
ok 12 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2573_2.txt removed
ok 13 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2573_2 exists
ok 14 - drop manually created table db_2573_2 (second file)
ok 15 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2573_2 removed
ok 16 - Create table db_2573_
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_2573_
ok 26 - execute on db_2573_
ok 27 - Prepare select * from DB_2573_
ok 28 - execute on DB_2573_
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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(0x100b880)
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(0xfea240)
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(0x101edf0)
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
# =============
# Testing pipeone transport with pedantic policy
# dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 79 - should connect to dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 80
ok 81
ok 82
ok 83 - should detect prepare failure
ok 84
ok 85
ok 86
ok 87
ok 88
ok 89
ok 90 - go_response executed flag should be true
ok 91
ok 92
ok 93
ok 94
# Testing go_request_count and caching of simple values
ok 95
ok 96
ok 97
# use_remote=1 (policy=pedantic, transport=pipeone) HASH(0x108a0e0)
ok 98
ok 99
ok 100
ok 101 # skip caching of metadata methods returning sth not yet implemented
ok 102 # skip caching of metadata methods returning sth not yet implemented
ok 103
ok 104
# =============
# Testing pipeone transport with classic policy
# dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 105 - should connect to dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 106
ok 107
ok 108
ok 109 - The object isa DBI::st
ok 110
ok 111
ok 112
ok 113
ok 114
ok 115
ok 116 - go_response executed flag should be true
ok 117
ok 118
ok 119
ok 120
# Testing go_request_count and caching of simple values
ok 121
ok 122
ok 123
# use_remote=0 (policy=classic, transport=pipeone) HASH(0x101f570)
ok 124
ok 125
ok 126
ok 127 # skip caching of metadata methods returning sth not yet implemented
ok 128 # skip caching of metadata methods returning sth not yet implemented
ok 129
ok 130
# =============
# Testing pipeone transport with rush policy
# dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 131 - should connect to dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 132
ok 133
ok 134
ok 135 - The object isa DBI::st
ok 136
ok 137
ok 138
ok 139
ok 140
ok 141
ok 142 - go_response executed flag should be true
ok 143
ok 144
ok 145
ok 146
# Testing go_request_count and caching of simple values
ok 147
ok 148
ok 149
# use_remote=0 (policy=rush, transport=pipeone) HASH(0x1080c00)
ok 150
ok 151
ok 152
ok 153 # skip caching of metadata methods returning sth not yet implemented
ok 154 # skip caching of metadata methods returning sth not yet implemented
ok 155
ok 156
# =============
# Testing stream transport with pedantic policy
# dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 157 - should connect to dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 158
ok 159
ok 160
ok 161 - should detect prepare failure
ok 162
ok 163
ok 164
ok 165
ok 166
ok 167
ok 168 - go_response executed flag should be true
ok 169
ok 170
ok 171
ok 172
# Testing go_request_count and caching of simple values
ok 173
ok 174
ok 175
# use_remote=1 (policy=pedantic, transport=stream) HASH(0x10b8450)
ok 176
ok 177
ok 178
ok 179 # skip caching of metadata methods returning sth not yet implemented
ok 180 # skip caching of metadata methods returning sth not yet implemented
ok 181
ok 182
# =============
# Testing stream transport with classic policy
# dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 183 - should connect to dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 184
ok 185
ok 186
ok 187 - The object isa DBI::st
ok 188
ok 189
ok 190
ok 191
ok 192
ok 193
ok 194 - go_response executed flag should be true
ok 195
ok 196
ok 197
ok 198
# Testing go_request_count and caching of simple values
ok 199
ok 200
ok 201
# use_remote=0 (policy=classic, transport=stream) HASH(0x1023590)
ok 202
ok 203
ok 204
ok 205 # skip caching of metadata methods returning sth not yet implemented
ok 206 # skip caching of metadata methods returning sth not yet implemented
ok 207
ok 208
# =============
# Testing stream transport with rush policy
# dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 209 - should connect to dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 210
ok 211
ok 212
ok 213 - The object isa DBI::st
ok 214
ok 215
ok 216
ok 217
ok 218
ok 219
ok 220 - go_response executed flag should be true
ok 221
ok 222
ok 223
ok 224
# Testing go_request_count and caching of simple values
ok 225
ok 226
ok 227
# use_remote=0 (policy=rush, transport=stream) HASH(0x10b7d30)
ok 228
ok 229
ok 230
ok 231 # skip caching of metadata methods returning sth not yet implemented
ok 232 # skip caching of metadata methods returning sth not yet implemented
ok 233
ok 234
1..234
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(0x8b8de8)) 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(0x1008380) after take_imp_data()
ok 107 - ... our Driver should be undefined
warn: Can't call FETCH method on handle DBI::db=HASH(0x1008380) after take_imp_data()
ok 108 - ... our TraceLevel should be undefined
warn: Can't call disconnect method on handle DBI::db=HASH(0x1008380) after take_imp_data()
ok 109 - ... disconnect should return undef
warn: Can't call quote method on handle DBI::db=HASH(0x1008380) 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(0x964640), 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(0x964640), 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(0x964640), 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(0x964640), 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(0x964640), 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(0x964640), 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(0x964640), 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 = 2651
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(0x114e608)->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(0x114e608)->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 - '33188 0 pm_to_blib' ne '33188 0 pm_to_blib'
rows()
ok 100 - row count 45
ok 101 - 45 vs 45
ok 102 - 45 vs 45
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 - "pm_to_blib 33188" eq "pm_to_blib 33188"
ok 119
selectall_arrayref Columns array slice
ok 120
ok 121
ok 122 - "pm_to_blib 33188" eq "pm_to_blib 33188"
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(0x1022718), 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(0x1022718), 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(0x1022718), 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(0x1022718), 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 /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa subdirs: ex . lib .. 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(0xfe4b68) trace level set to 1 in DBI 1.612 (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(0xfe4b68) trace level set to 1 in DBI 1.612 (PurePerl)
# Full trace not available because DBI_TRACE is not in environment
# Layered logline
#
#
DBI::db=HASH(0xfe4b68) trace level set to 1 in DBI 1.612 (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(0xfe4b68) trace level set to 1 in DBI 1.612 (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(0xfe4b68) trace level set to 1 in DBI 1.612 (PurePerl)
# Full trace not available because DBI_TRACE is not in environment
# Layered logline
#
#
ok 25 - ... logger: trace_msg
#
DBI::db=HASH(0xfe4b68) trace level set to 1 in DBI 1.612 (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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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
# /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/t_sbdgf_53442gz.txt
ok 11 - drop manually created table db_2639_2 (first file)
ok 12 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2639_2.txt removed
ok 13 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2639_2 exists
ok 14 - drop manually created table db_2639_2 (second file)
ok 15 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2639_2 removed
ok 16 - Create table db_2639_
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_2639_
ok 26 - execute on db_2639_
ok 27 - Prepare select * from DB_2639_
ok 28 - execute on DB_2639_
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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(0xf61608)
dbh DBI::db=HASH(0xfc8460)
sth DBI::st=HASH(0xf95168)
sth DBI::st=HASH(0xf9fa80)
sth DBI::st=HASH(0xf9ff18)
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(0x1956cf0)
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(0x1920d78)
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(0x196d3c0)
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
# =============
# Testing pipeone transport with pedantic policy
# dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 79 - should connect to dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 80
ok 81
ok 82
ok 83 - should detect prepare failure
ok 84
ok 85
ok 86
ok 87
ok 88
ok 89
ok 90 - go_response executed flag should be true
ok 91
ok 92
ok 93
ok 94
# Testing go_request_count and caching of simple values
ok 95
ok 96
ok 97
# use_remote=1 (policy=pedantic, transport=pipeone) HASH(0x19d56b0)
ok 98
ok 99
ok 100
ok 101 # skip caching of metadata methods returning sth not yet implemented
ok 102 # skip caching of metadata methods returning sth not yet implemented
ok 103
ok 104
# =============
# Testing pipeone transport with classic policy
# dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 105 - should connect to dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 106
ok 107
ok 108
ok 109 - The object isa DBI::st
ok 110
ok 111
ok 112
ok 113
ok 114
ok 115
ok 116 - go_response executed flag should be true
ok 117
ok 118
ok 119
ok 120
# Testing go_request_count and caching of simple values
ok 121
ok 122
ok 123
# use_remote=0 (policy=classic, transport=pipeone) HASH(0x1976188)
ok 124
ok 125
ok 126
ok 127 # skip caching of metadata methods returning sth not yet implemented
ok 128 # skip caching of metadata methods returning sth not yet implemented
ok 129
ok 130
# =============
# Testing pipeone transport with rush policy
# dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 131 - should connect to dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 132
ok 133
ok 134
ok 135 - The object isa DBI::st
ok 136
ok 137
ok 138
ok 139
ok 140
ok 141
ok 142 - go_response executed flag should be true
ok 143
ok 144
ok 145
ok 146
# Testing go_request_count and caching of simple values
ok 147
ok 148
ok 149
# use_remote=0 (policy=rush, transport=pipeone) HASH(0x19d22b0)
ok 150
ok 151
ok 152
ok 153 # skip caching of metadata methods returning sth not yet implemented
ok 154 # skip caching of metadata methods returning sth not yet implemented
ok 155
ok 156
# =============
# Testing stream transport with pedantic policy
# dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 157 - should connect to dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 158
ok 159
ok 160
ok 161 - should detect prepare failure
ok 162
ok 163
ok 164
ok 165
ok 166
ok 167
ok 168 - go_response executed flag should be true
ok 169
ok 170
ok 171
ok 172
# Testing go_request_count and caching of simple values
ok 173
ok 174
ok 175
# use_remote=1 (policy=pedantic, transport=stream) HASH(0x1a03520)
ok 176
ok 177
ok 178
ok 179 # skip caching of metadata methods returning sth not yet implemented
ok 180 # skip caching of metadata methods returning sth not yet implemented
ok 181
ok 182
# =============
# Testing stream transport with classic policy
# dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 183 - should connect to dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 184
ok 185
ok 186
ok 187 - The object isa DBI::st
ok 188
ok 189
ok 190
ok 191
ok 192
ok 193
ok 194 - go_response executed flag should be true
ok 195
ok 196
ok 197
ok 198
# Testing go_request_count and caching of simple values
ok 199
ok 200
ok 201
# use_remote=0 (policy=classic, transport=stream) HASH(0x19f9d80)
ok 202
ok 203
ok 204
ok 205 # skip caching of metadata methods returning sth not yet implemented
ok 206 # skip caching of metadata methods returning sth not yet implemented
ok 207
ok 208
# =============
# Testing stream transport with rush policy
# dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 209 - should connect to dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 210
ok 211
ok 212
ok 213 - The object isa DBI::st
ok 214
ok 215
ok 216
ok 217
ok 218
ok 219
ok 220 - go_response executed flag should be true
ok 221
ok 222
ok 223
ok 224
# Testing go_request_count and caching of simple values
ok 225
ok 226
ok 227
# use_remote=0 (policy=rush, transport=stream) HASH(0x19ff918)
ok 228
ok 229
ok 230
ok 231 # skip caching of metadata methods returning sth not yet implemented
ok 232 # skip caching of metadata methods returning sth not yet implemented
ok 233
ok 234
1..234
ok
t/zvp_86gofer_fail.t ....... skipped: requires Callbacks which are not supported with PurePerl
Use of uninitialized value $_[0] in lc at /home/fly1200/var/megalib/Cache.pm line 485.
Use of uninitialized value $_[0] in lc at /home/fly1200/var/megalib/Cache.pm line 485.
t/zvp_87gofer_cache.t ......
using DBI::Util::CacheMemory=HASH(0xfbcc60) 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 Cache::Memory=HASH(0x12de3f0) 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
using 1 for dbi:Gofer:transport=null;policy=classic;dsn=dbi:ExampleP:
ok 35
ok 36
ok 37 - cache should be empty after clear
ok 38 - transmit_count should be 0
ok 39
ok 40 - cache should not be empty after select
ok 41
ok 42
ok 43
ok 44 - should make 1 round trip
ok 45 - transmit_count should be 0
ok 46
ok 47
ok 48 - should make 1 round trip
ok 49
ok 50
ok 51
test per-sth go_cache
ok 52
ok 53
ok 54
ok 55
ok 56
ok 57
ok 58
ok 59
ok 60
ok 61
ok 62
ok 63
ok 64
1..64
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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
# /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/t_sbdgf_53442gz.txt
ok 11 - drop manually created table db_2719_2 (first file)
ok 12 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2719_2.txt removed
ok 13 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2719_2 exists
ok 14 - drop manually created table db_2719_2 (second file)
ok 15 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2719_2 removed
ok 16 - Create table db_2719_
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_2719_
ok 26 # skip method intrusion didn't work with proxying
ok 27 - Prepare select * from DB_2719_
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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(0x10478c8)
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(0x104b940)
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(0x10622a0)
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
# =============
# Testing pipeone transport with pedantic policy
# dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 79 - should connect to dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 80
ok 81
ok 82
ok 83 - should detect prepare failure
ok 84
ok 85
ok 86
ok 87
ok 88
ok 89
ok 90 - go_response executed flag should be true
ok 91
ok 92
ok 93
ok 94
# Testing go_request_count and caching of simple values
ok 95
ok 96
ok 97
# use_remote=1 (policy=pedantic, transport=pipeone) HASH(0x10c1610)
ok 98 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 99 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 100 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 101 # skip caching of metadata methods returning sth not yet implemented
ok 102 # skip caching of metadata methods returning sth not yet implemented
ok 103
ok 104
# =============
# Testing pipeone transport with classic policy
# dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 105 - should connect to dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 106
ok 107
ok 108
ok 109 - The object isa DBI::st
ok 110
ok 111
ok 112
ok 113
ok 114
ok 115
ok 116 - go_response executed flag should be true
ok 117
ok 118
ok 119
ok 120
# Testing go_request_count and caching of simple values
ok 121
ok 122
ok 123
# use_remote=0 (policy=classic, transport=pipeone) HASH(0x10c4340)
ok 124 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 125 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 126 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 127 # skip caching of metadata methods returning sth not yet implemented
ok 128 # skip caching of metadata methods returning sth not yet implemented
ok 129
ok 130
# =============
# Testing pipeone transport with rush policy
# dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 131 - should connect to dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 132
ok 133
ok 134
ok 135 - The object isa DBI::st
ok 136
ok 137
ok 138
ok 139
ok 140
ok 141
ok 142 - go_response executed flag should be true
ok 143
ok 144
ok 145
ok 146
# Testing go_request_count and caching of simple values
ok 147
ok 148
ok 149
# use_remote=0 (policy=rush, transport=pipeone) HASH(0x10cf490)
ok 150 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 151 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 152 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 153 # skip caching of metadata methods returning sth not yet implemented
ok 154 # skip caching of metadata methods returning sth not yet implemented
ok 155
ok 156
# =============
# Testing stream transport with pedantic policy
# dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 157 - should connect to dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 158
ok 159
ok 160
ok 161 - should detect prepare failure
ok 162
ok 163
ok 164
ok 165
ok 166
ok 167
ok 168 - go_response executed flag should be true
ok 169
ok 170
ok 171
ok 172
# Testing go_request_count and caching of simple values
ok 173
ok 174
ok 175
# use_remote=1 (policy=pedantic, transport=stream) HASH(0x10f4010)
ok 176 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 177 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 178 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 179 # skip caching of metadata methods returning sth not yet implemented
ok 180 # skip caching of metadata methods returning sth not yet implemented
ok 181
ok 182
# =============
# Testing stream transport with classic policy
# dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 183 - should connect to dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 184
ok 185
ok 186
ok 187 - The object isa DBI::st
ok 188
ok 189
ok 190
ok 191
ok 192
ok 193
ok 194 - go_response executed flag should be true
ok 195
ok 196
ok 197
ok 198
# Testing go_request_count and caching of simple values
ok 199
ok 200
ok 201
# use_remote=0 (policy=classic, transport=stream) HASH(0x1065e08)
ok 202 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 203 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 204 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 205 # skip caching of metadata methods returning sth not yet implemented
ok 206 # skip caching of metadata methods returning sth not yet implemented
ok 207
ok 208
# =============
# Testing stream transport with rush policy
# dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 209 - should connect to dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 210
ok 211
ok 212
ok 213 - The object isa DBI::st
ok 214
ok 215
ok 216
ok 217
ok 218
ok 219
ok 220 - go_response executed flag should be true
ok 221
ok 222
ok 223
ok 224
# Testing go_request_count and caching of simple values
ok 225
ok 226
ok 227
# use_remote=0 (policy=rush, transport=stream) HASH(0x11010d0)
ok 228 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 229 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 230 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 231 # skip caching of metadata methods returning sth not yet implemented
ok 232 # skip caching of metadata methods returning sth not yet implemented
ok 233
ok 234
1..234
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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
# /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/t_sbdgf_53442gz.txt
ok 11 - drop manually created table db_2789_2 (first file)
ok 12 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2789_2.txt removed
ok 13 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2789_2 exists
ok 14 - drop manually created table db_2789_2 (second file)
ok 15 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2789_2 removed
ok 16 - Create table db_2789_
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_2789_
ok 26 # skip method intrusion didn't work with proxying
ok 27 - Prepare select * from DB_2789_
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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(0x1661888)
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(0x1608428)
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(0x1686dc8)
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
# =============
# Testing pipeone transport with pedantic policy
# dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 79 - should connect to dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 80
ok 81
ok 82
ok 83 - should detect prepare failure
ok 84
ok 85
ok 86
ok 87
ok 88
ok 89
ok 90 - go_response executed flag should be true
ok 91
ok 92
ok 93
ok 94
# Testing go_request_count and caching of simple values
ok 95
ok 96
ok 97
# use_remote=1 (policy=pedantic, transport=pipeone) HASH(0x16e7528)
ok 98 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 99 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 100 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 101 # skip caching of metadata methods returning sth not yet implemented
ok 102 # skip caching of metadata methods returning sth not yet implemented
ok 103
ok 104
# =============
# Testing pipeone transport with classic policy
# dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 105 - should connect to dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 106
ok 107
ok 108
ok 109 - The object isa DBI::st
ok 110
ok 111
ok 112
ok 113
ok 114
ok 115
ok 116 - go_response executed flag should be true
ok 117
ok 118
ok 119
ok 120
# Testing go_request_count and caching of simple values
ok 121
ok 122
ok 123
# use_remote=0 (policy=classic, transport=pipeone) HASH(0x16e11b8)
ok 124 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 125 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 126 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 127 # skip caching of metadata methods returning sth not yet implemented
ok 128 # skip caching of metadata methods returning sth not yet implemented
ok 129
ok 130
# =============
# Testing pipeone transport with rush policy
# dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 131 - should connect to dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 132
ok 133
ok 134
ok 135 - The object isa DBI::st
ok 136
ok 137
ok 138
ok 139
ok 140
ok 141
ok 142 - go_response executed flag should be true
ok 143
ok 144
ok 145
ok 146
# Testing go_request_count and caching of simple values
ok 147
ok 148
ok 149
# use_remote=0 (policy=rush, transport=pipeone) HASH(0x16e6d90)
ok 150 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 151 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 152 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 153 # skip caching of metadata methods returning sth not yet implemented
ok 154 # skip caching of metadata methods returning sth not yet implemented
ok 155
ok 156
# =============
# Testing stream transport with pedantic policy
# dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 157 - should connect to dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 158
ok 159
ok 160
ok 161 - should detect prepare failure
ok 162
ok 163
ok 164
ok 165
ok 166
ok 167
ok 168 - go_response executed flag should be true
ok 169
ok 170
ok 171
ok 172
# Testing go_request_count and caching of simple values
ok 173
ok 174
ok 175
# use_remote=1 (policy=pedantic, transport=stream) HASH(0x16ed808)
ok 176 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 177 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 178 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 179 # skip caching of metadata methods returning sth not yet implemented
ok 180 # skip caching of metadata methods returning sth not yet implemented
ok 181
ok 182
# =============
# Testing stream transport with classic policy
# dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 183 - should connect to dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 184
ok 185
ok 186
ok 187 - The object isa DBI::st
ok 188
ok 189
ok 190
ok 191
ok 192
ok 193
ok 194 - go_response executed flag should be true
ok 195
ok 196
ok 197
ok 198
# Testing go_request_count and caching of simple values
ok 199
ok 200
ok 201
# use_remote=0 (policy=classic, transport=stream) HASH(0x17219b8)
ok 202 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 203 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 204 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 205 # skip caching of metadata methods returning sth not yet implemented
ok 206 # skip caching of metadata methods returning sth not yet implemented
ok 207
ok 208
# =============
# Testing stream transport with rush policy
# dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 209 - should connect to dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 210
ok 211
ok 212
ok 213 - The object isa DBI::st
ok 214
ok 215
ok 216
ok 217
ok 218
ok 219
ok 220 - go_response executed flag should be true
ok 221
ok 222
ok 223
ok 224
# Testing go_request_count and caching of simple values
ok 225
ok 226
ok 227
# use_remote=0 (policy=rush, transport=stream) HASH(0x1711c70)
ok 228 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 229 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 230 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 231 # skip caching of metadata methods returning sth not yet implemented
ok 232 # skip caching of metadata methods returning sth not yet implemented
ok 233
ok 234
1..234
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(0x8b91c8)) 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(0x1282e38), 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(0x1282e38), 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(0x1282e38), 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(0x1282e38), 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(0x1282e38), 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(0x1282e38), 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(0x1282e38), 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 = 11405
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(0x146bcd0)->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(0x14700b0)->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 - '33188 0 pm_to_blib' ne '33188 0 pm_to_blib'
rows()
ok 100 - row count 45
ok 101 - 45 vs 45
ok 102 - 45 vs 45
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 - "pm_to_blib 33188" eq "pm_to_blib 33188"
ok 119
selectall_arrayref Columns array slice
ok 120
ok 121
ok 122 - "pm_to_blib 33188" eq "pm_to_blib 33188"
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(0xfe8098), 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(0xfe8098), 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(0xfe8098), 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(0xfe8098), 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 /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa subdirs: ex . lib .. 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(0x1271430) trace level set to 1 in DBI 1.612 (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(0x1271430) trace level set to 1 in DBI 1.612 (PurePerl)
# Full trace not available because DBI_TRACE is not in environment
# Layered logline
#
#
DBI::db=HASH(0x1271430) trace level set to 1 in DBI 1.612 (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(0x1271430) trace level set to 1 in DBI 1.612 (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(0x1271430) trace level set to 1 in DBI 1.612 (PurePerl)
# Full trace not available because DBI_TRACE is not in environment
# Layered logline
#
#
-----> execute_request
-> DBI->connect(dbi:ExampleP:dummy, , ****, HASH(0xaecf60))
<- connect= DBI::db=HASH(0x127deb8)
_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(0x1271430) trace level set to 1 in DBI 1.612 (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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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
# /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/t_sbdgf_53442gz.txt
ok 11 - drop manually created table db_2885_2 (first file)
ok 12 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2885_2.txt removed
ok 13 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2885_2 exists
ok 14 - drop manually created table db_2885_2 (second file)
ok 15 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2885_2 removed
ok 16 - Create table db_2885_
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_2885_
ok 26 # skip method intrusion didn't work with proxying
ok 27 - Prepare select * from DB_2885_
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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(0x1067418)
dbh DBI::db=HASH(0x12e0920)
sth DBI::st=HASH(0x12af490)
sth DBI::st=HASH(0x12b4830)
sth DBI::st=HASH(0x12b8af0)
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(0x199df98)
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(0x193fc40)
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(0x19bd540)
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
# =============
# Testing pipeone transport with pedantic policy
# dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 79 - should connect to dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 80
ok 81
ok 82
ok 83 - should detect prepare failure
ok 84
ok 85
ok 86
ok 87
ok 88
ok 89
ok 90 - go_response executed flag should be true
ok 91
ok 92
ok 93
ok 94
# Testing go_request_count and caching of simple values
ok 95
ok 96
ok 97
# use_remote=1 (policy=pedantic, transport=pipeone) HASH(0x1a21050)
ok 98 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 99 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 100 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 101 # skip caching of metadata methods returning sth not yet implemented
ok 102 # skip caching of metadata methods returning sth not yet implemented
ok 103
ok 104
# =============
# Testing pipeone transport with classic policy
# dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 105 - should connect to dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 106
ok 107
ok 108
ok 109 - The object isa DBI::st
ok 110
ok 111
ok 112
ok 113
ok 114
ok 115
ok 116 - go_response executed flag should be true
ok 117
ok 118
ok 119
ok 120
# Testing go_request_count and caching of simple values
ok 121
ok 122
ok 123
# use_remote=0 (policy=classic, transport=pipeone) HASH(0x1a1ad50)
ok 124 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 125 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 126 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 127 # skip caching of metadata methods returning sth not yet implemented
ok 128 # skip caching of metadata methods returning sth not yet implemented
ok 129
ok 130
# =============
# Testing pipeone transport with rush policy
# dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 131 - should connect to dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 132
ok 133
ok 134
ok 135 - The object isa DBI::st
ok 136
ok 137
ok 138
ok 139
ok 140
ok 141
ok 142 - go_response executed flag should be true
ok 143
ok 144
ok 145
ok 146
# Testing go_request_count and caching of simple values
ok 147
ok 148
ok 149
# use_remote=0 (policy=rush, transport=pipeone) HASH(0x1a208b8)
ok 150 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 151 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 152 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 153 # skip caching of metadata methods returning sth not yet implemented
ok 154 # skip caching of metadata methods returning sth not yet implemented
ok 155
ok 156
# =============
# Testing stream transport with pedantic policy
# dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 157 - should connect to dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 158
ok 159
ok 160
ok 161 - should detect prepare failure
ok 162
ok 163
ok 164
ok 165
ok 166
ok 167
ok 168 - go_response executed flag should be true
ok 169
ok 170
ok 171
ok 172
# Testing go_request_count and caching of simple values
ok 173
ok 174
ok 175
# use_remote=1 (policy=pedantic, transport=stream) HASH(0x1a25f40)
ok 176 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 177 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 178 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 179 # skip caching of metadata methods returning sth not yet implemented
ok 180 # skip caching of metadata methods returning sth not yet implemented
ok 181
ok 182
# =============
# Testing stream transport with classic policy
# dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 183 - should connect to dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 184
ok 185
ok 186
ok 187 - The object isa DBI::st
ok 188
ok 189
ok 190
ok 191
ok 192
ok 193
ok 194 - go_response executed flag should be true
ok 195
ok 196
ok 197
ok 198
# Testing go_request_count and caching of simple values
ok 199
ok 200
ok 201
# use_remote=0 (policy=classic, transport=stream) HASH(0x1a56330)
ok 202 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 203 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 204 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 205 # skip caching of metadata methods returning sth not yet implemented
ok 206 # skip caching of metadata methods returning sth not yet implemented
ok 207
ok 208
# =============
# Testing stream transport with rush policy
# dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 209 - should connect to dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 210
ok 211
ok 212
ok 213 - The object isa DBI::st
ok 214
ok 215
ok 216
ok 217
ok 218
ok 219
ok 220 - go_response executed flag should be true
ok 221
ok 222
ok 223
ok 224
# Testing go_request_count and caching of simple values
ok 225
ok 226
ok 227
# use_remote=0 (policy=rush, transport=stream) HASH(0x1a4a7b8)
ok 228 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 229 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 230 # skip skip_default_methods checking doesn't work with Gofer over Gofer
ok 231 # skip caching of metadata methods returning sth not yet implemented
ok 232 # skip caching of metadata methods returning sth not yet implemented
ok 233
ok 234
1..234
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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
# /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/t_sbdgf_53442gz.txt
ok 11 - drop manually created table db_2959_2 (first file)
ok 12 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2959_2.txt removed
ok 13 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2959_2 exists
ok 14 - drop manually created table db_2959_2 (second file)
ok 15 - /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/test_output/db_2959_2 removed
ok 16 - Create table db_2959_
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_2959_
ok 26 - execute on db_2959_
ok 27 - Prepare select * from DB_2959_
ok 28 - execute on DB_2959_
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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.612
# DBI::PurePerl 2.014120
# OS linux (2.6.11-1.1369_fc4)
# Perl 5.012000 (x86_64-linux-thread-multi)
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(0x161c960)
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(0x15ea8b8)
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(0x1635b40)
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
# =============
# Testing pipeone transport with pedantic policy
# dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 79 - should connect to dbi:Gofer:transport=pipeone;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 80
ok 81
ok 82
ok 83 - should detect prepare failure
ok 84
ok 85
ok 86
ok 87
ok 88
ok 89
ok 90 - go_response executed flag should be true
ok 91
ok 92
ok 93
ok 94
# Testing go_request_count and caching of simple values
ok 95
ok 96
ok 97
# use_remote=1 (policy=pedantic, transport=pipeone) HASH(0x169caf0)
ok 98
ok 99
ok 100
ok 101 # skip caching of metadata methods returning sth not yet implemented
ok 102 # skip caching of metadata methods returning sth not yet implemented
ok 103
ok 104
# =============
# Testing pipeone transport with classic policy
# dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 105 - should connect to dbi:Gofer:transport=pipeone;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 106
ok 107
ok 108
ok 109 - The object isa DBI::st
ok 110
ok 111
ok 112
ok 113
ok 114
ok 115
ok 116 - go_response executed flag should be true
ok 117
ok 118
ok 119
ok 120
# Testing go_request_count and caching of simple values
ok 121
ok 122
ok 123
# use_remote=0 (policy=classic, transport=pipeone) HASH(0x163dca8)
ok 124
ok 125
ok 126
ok 127 # skip caching of metadata methods returning sth not yet implemented
ok 128 # skip caching of metadata methods returning sth not yet implemented
ok 129
ok 130
# =============
# Testing pipeone transport with rush policy
# dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 131 - should connect to dbi:Gofer:transport=pipeone;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 132
ok 133
ok 134
ok 135 - The object isa DBI::st
ok 136
ok 137
ok 138
ok 139
ok 140
ok 141
ok 142 - go_response executed flag should be true
ok 143
ok 144
ok 145
ok 146
# Testing go_request_count and caching of simple values
ok 147
ok 148
ok 149
# use_remote=0 (policy=rush, transport=pipeone) HASH(0x169b290)
ok 150
ok 151
ok 152
ok 153 # skip caching of metadata methods returning sth not yet implemented
ok 154 # skip caching of metadata methods returning sth not yet implemented
ok 155
ok 156
# =============
# Testing stream transport with pedantic policy
# dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 157 - should connect to dbi:Gofer:transport=stream;policy=pedantic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 158
ok 159
ok 160
ok 161 - should detect prepare failure
ok 162
ok 163
ok 164
ok 165
ok 166
ok 167
ok 168 - go_response executed flag should be true
ok 169
ok 170
ok 171
ok 172
# Testing go_request_count and caching of simple values
ok 173
ok 174
ok 175
# use_remote=1 (policy=pedantic, transport=stream) HASH(0x16ca8f0)
ok 176
ok 177
ok 178
ok 179 # skip caching of metadata methods returning sth not yet implemented
ok 180 # skip caching of metadata methods returning sth not yet implemented
ok 181
ok 182
# =============
# Testing stream transport with classic policy
# dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 183 - should connect to dbi:Gofer:transport=stream;policy=classic;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 184
ok 185
ok 186
ok 187 - The object isa DBI::st
ok 188
ok 189
ok 190
ok 191
ok 192
ok 193
ok 194 - go_response executed flag should be true
ok 195
ok 196
ok 197
ok 198
# Testing go_request_count and caching of simple values
ok 199
ok 200
ok 201
# use_remote=0 (policy=classic, transport=stream) HASH(0x16b62e0)
ok 202
ok 203
ok 204
ok 205 # skip caching of metadata methods returning sth not yet implemented
ok 206 # skip caching of metadata methods returning sth not yet implemented
ok 207
ok 208
# =============
# Testing stream transport with rush policy
# dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 209 - should connect to dbi:Gofer:transport=stream;policy=rush;perl=/home/fly1200/ap1200-292396/bin/perl-static -Mblib=/home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib;timeout=240;dsn=dbi:DBM:dbm_type=SDBM_File;lockfile=0
ok 210
ok 211
ok 212
ok 213 - The object isa DBI::st
ok 214
ok 215
ok 216
ok 217
ok 218
ok 219
ok 220 - go_response executed flag should be true
ok 221
ok 222
ok 223
ok 224
# Testing go_request_count and caching of simple values
ok 225
ok 226
ok 227
# use_remote=0 (policy=rush, transport=stream) HASH(0x16c63f8)
ok 228
ok 229
ok 230
ok 231 # skip caching of metadata methods returning sth not yet implemented
ok 232 # skip caching of metadata methods returning sth not yet implemented
ok 233
ok 234
1..234
ok
All tests successful.
Files=166, Tests=8593, 81 wallclock secs ( 1.55 usr 0.23 sys + 66.30 cusr 7.26 csys = 75.34 CPU)
Result: PASS
PERL_DL_NONLAZY=1 /home/fly1200/ap1200-292396/bin/perl-static "-Iblib/lib" "-Iblib/arch" test.pl
test.pl
DBI test application $Revision: 12537 $
Switch: DBI 1.612 by Tim Bunce, 1.612
Available Drivers: AnyData, CSV, Chart, DBM, ExampleP, Excel, File, Gofer, LDAP, MVS_FTPSQL, Mock, Multi, Multiplex, ODBC, Ovrimos, PO, PgLite, PgPP, Proxy, SQLite, Sponge, Sprite, TSM, Template, TemplateSS, Wire10, 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.0027s / 60 = 0.0000s
Testing handle creation speed...
57142 NullP sth/s perl 5.012000 x86_64-linux-thread-multi (gcc 4.0.0 -O2) 0.000018s
test.pl done
TIMB/DBI-1.612.tar.gz
make test TEST_VERBOSE=1 -- OK
Tim Bunce <Tim.Bunce@pobox.com>
Database independent interface for Perl
>>> (cd /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa && tar cvf - DBI-1.612.ppd blib) | gzip -c >/home/fly1200/var/REPO/T/TI/TIMB/DBI-1.612.tar.gz
DBI-1.612.ppd
blib/
blib/script/
blib/script/dbiproxy
blib/script/dbiprof
blib/script/dbilogstrip
blib/lib/
blib/lib/DBI/
blib/lib/DBI/Const/
blib/lib/DBI/Const/GetInfo/
blib/lib/DBI/Const/GetInfo/ANSI.pm
blib/lib/DBI/Const/GetInfo/ODBC.pm
blib/lib/DBI/Const/GetInfoReturn.pm
blib/lib/DBI/Const/GetInfoType.pm
blib/lib/DBI/ProfileDumper.pm
blib/lib/DBI/SQL/
blib/lib/DBI/SQL/Nano.pm
blib/lib/DBI/FAQ.pm
blib/lib/DBI/ProfileSubs.pm
blib/lib/DBI/ProxyServer.pm
blib/lib/DBI/Gofer/
blib/lib/DBI/Gofer/Execute.pm
blib/lib/DBI/Gofer/Request.pm
blib/lib/DBI/Gofer/Response.pm
blib/lib/DBI/Gofer/Serializer/
blib/lib/DBI/Gofer/Serializer/DataDumper.pm
blib/lib/DBI/Gofer/Serializer/Base.pm
blib/lib/DBI/Gofer/Serializer/Storable.pm
blib/lib/DBI/Gofer/Transport/
blib/lib/DBI/Gofer/Transport/stream.pm
blib/lib/DBI/Gofer/Transport/pipeone.pm
blib/lib/DBI/Gofer/Transport/Base.pm
blib/lib/DBI/Util/
blib/lib/DBI/Util/_accessor.pm
blib/lib/DBI/Util/CacheMemory.pm
blib/lib/DBI/PurePerl.pm
blib/lib/DBI/Changes.pm
blib/lib/DBI/Roadmap.pm
blib/lib/DBI/ProfileData.pm
blib/lib/DBI/DBD/
blib/lib/DBI/DBD/SqlEngine.pm
blib/lib/DBI/DBD/Metadata.pm
blib/lib/DBI/DBD.pm
blib/lib/DBI/Profile.pm
blib/lib/DBI/ProfileDumper/
blib/lib/DBI/ProfileDumper/Apache.pm
blib/lib/DBI/W32ODBC.pm
blib/lib/dbixs_rev.pl
blib/lib/DBD/
blib/lib/DBD/Proxy.pm
blib/lib/DBD/Gofer/
blib/lib/DBD/Gofer/Policy/
blib/lib/DBD/Gofer/Policy/pedantic.pm
blib/lib/DBD/Gofer/Policy/classic.pm
blib/lib/DBD/Gofer/Policy/rush.pm
blib/lib/DBD/Gofer/Policy/Base.pm
blib/lib/DBD/Gofer/Transport/
blib/lib/DBD/Gofer/Transport/null.pm
blib/lib/DBD/Gofer/Transport/stream.pm
blib/lib/DBD/Gofer/Transport/pipeone.pm
blib/lib/DBD/Gofer/Transport/Base.pm
blib/lib/DBD/NullP.pm
blib/lib/DBD/File/
blib/lib/DBD/File/Developers.pod
blib/lib/DBD/File/Roadmap.pod
blib/lib/DBD/ExampleP.pm
blib/lib/DBD/Gofer.pm
blib/lib/DBD/DBM.pm
blib/lib/DBD/Sponge.pm
blib/lib/DBD/File.pm
blib/lib/Win32/
blib/lib/Win32/DBIODBC.pm
blib/lib/TASKS.pod
blib/lib/Bundle/
blib/lib/Bundle/DBI.pm
blib/lib/Roadmap.pod
blib/lib/DBI.pm
blib/arch/
blib/arch/auto/
blib/arch/auto/DBI/
blib/arch/auto/DBI/dbd_xsh.h
blib/arch/auto/DBI/dbi_sql.h
blib/arch/auto/DBI/dbivport.h
blib/arch/auto/DBI/DBI.so
blib/arch/auto/DBI/Driver_xst.h
blib/arch/auto/DBI/dbipport.h
blib/arch/auto/DBI/Driver.xst
blib/arch/auto/DBI/dbixs_rev.h
blib/arch/auto/DBI/DBIXS.h
blib/arch/auto/DBI/DBI.bs
blib/man1/
blib/man1/dbiproxy.1
blib/man1/dbiprof.1
blib/man1/dbilogstrip.1
blib/man3/
blib/man3/DBI::Gofer::Execute.3
blib/man3/DBD::Gofer.3
blib/man3/DBI::Const::GetInfoType.3
blib/man3/DBI::Gofer::Serializer::Base.3
blib/man3/Bundle::DBI.3
blib/man3/DBI::SQL::Nano.3
blib/man3/DBI::DBD::SqlEngine.3
blib/man3/DBI::Profile.3
blib/man3/DBD::Gofer::Policy::Base.3
blib/man3/DBI::Util::CacheMemory.3
blib/man3/DBD::Gofer::Policy::pedantic.3
blib/man3/DBI::ProfileData.3
blib/man3/DBD::Gofer::Transport::pipeone.3
blib/man3/DBD::Gofer::Transport::null.3
blib/man3/DBI::Gofer::Transport::stream.3
blib/man3/DBI::Gofer::Serializer::DataDumper.3
blib/man3/DBI::DBD.3
blib/man3/DBI::ProfileSubs.3
blib/man3/TASKS.3
blib/man3/DBI::ProxyServer.3
blib/man3/DBI::ProfileDumper::Apache.3
blib/man3/DBI::ProfileDumper.3
blib/man3/DBD::DBM.3
blib/man3/DBD::Gofer::Transport::stream.3
blib/man3/DBI::Const::GetInfo::ODBC.3
blib/man3/DBI::W32ODBC.3
blib/man3/DBI::Gofer::Serializer::Storable.3
blib/man3/DBI::Gofer::Transport::Base.3
blib/man3/DBI::Gofer::Request.3
blib/man3/DBI::Const::GetInfoReturn.3
blib/man3/DBD::Gofer::Policy::classic.3
blib/man3/DBI::Gofer::Response.3
blib/man3/Win32::DBIODBC.3
blib/man3/DBI::PurePerl.3
blib/man3/DBI::DBD::Metadata.3
blib/man3/DBI.3
blib/man3/Roadmap.3
blib/man3/DBI::Const::GetInfo::ANSI.3
blib/man3/DBI::Gofer::Transport::pipeone.3
blib/man3/DBD::Gofer::Policy::rush.3
blib/man3/DBD::Sponge.3
blib/man3/DBD::File::Roadmap.3
blib/man3/DBD::Proxy.3
blib/man3/DBD::File.3
blib/man3/DBD::Gofer::Transport::Base.3
blib/man3/DBD::File::Developers.3
blib/man3/DBI::FAQ.3
>>> mv /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/DBI-1.612.ppd /home/fly1200/var/REPO/T/TI/TIMB
Running test for module 'DBD::File'
Running make for T/TI/TIMB/DBI-1.612.tar.gz
Prepending /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/arch /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib to PERL5LIB for 'get'
Has already been unwrapped into directory /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa
Prepending /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/arch /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib to PERL5LIB for 'make'
Has already been made
Prepending /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/arch /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib to PERL5LIB for 'test'
Running make test
Has already been tested successfully
Running make for R/RE/REHSACK/SQL-Statement-1.28.tar.gz
Prepending /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/arch /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib to PERL5LIB for 'get'
Has already been unwrapped into directory /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu
Prepending /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/arch /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib to PERL5LIB for 'make'
CPAN.pm: Going to build R/RE/REHSACK/SQL-Statement-1.28.tar.gz
>>> make
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/Dialects/Role.pm blib/lib/SQL/Dialects/Role.pm
cp lib/SQL/Statement/Syntax.pod blib/lib/SQL/Statement/Syntax.pod
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
Manifying blib/man3/SQL::Dialects::ANSI.3
Manifying blib/man3/SQL::Statement::TermFactory.3
Manifying blib/man3/SQL::Parser.3
Manifying blib/man3/SQL::Statement::Util.3
Manifying blib/man3/SQL::Statement::Structure.3
Manifying blib/man3/SQL::Statement::GetInfo.3
Manifying blib/man3/SQL::Statement::Term.3
Manifying blib/man3/SQL::Dialects::Role.3
Manifying blib/man3/SQL::Statement::Syntax.3
Manifying blib/man3/SQL::Dialects::AnyData.3
Manifying blib/man3/SQL::Statement::RAM.3
Manifying blib/man3/SQL::Statement::Embed.3
Manifying blib/man3/SQL::Statement::Placeholder.3
Manifying blib/man3/SQL::Statement.3
Manifying blib/man3/SQL::Dialects::CSV.3
Manifying blib/man3/SQL::Eval.3
Manifying blib/man3/SQL::Statement::Operation.3
Manifying blib/man3/SQL::Statement::Roadmap.3
Manifying blib/man3/SQL::Statement::Function.3
Manifying blib/man3/SQL::Statement::Functions.3
REHSACK/SQL-Statement-1.28.tar.gz
make -- OK
Prepending /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/arch /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib to PERL5LIB for 'test'
Running make test
>>> make test TEST_VERBOSE=1
PERL_DL_NONLAZY=1 /home/fly1200/ap1200-292396/bin/perl-static "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib/lib', 'blib/arch')" t/*.t
t/00error.t ..........
1..6
SQL::Statement v.1.28
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.28
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.28
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
t/03executeDBD.t .....
SQL::Statement v.1.28
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)
ok 23 # skip No XBase installed
ok 24 - DROP TEMP TABLE
ok 25 - UPDATE with placeholders
ok 26 - UPDATE with placeholder updates correct
ok
t/04names.t ..........
1..5
SQL::Statement v.1.28
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
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)
ok 4 # skip No XBase installed
ok 5 - CREATE TABLE AS SELECT
ok
# SQL::Statement v1.28
# DBI v1.612
# 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.28
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.28
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.28
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.28
ok 1 - limit with order by
ok 2 - limit without order by
ok
t/11functions.t ......
1..23
SQL::Statement v.1.28
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.28
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.28
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/Statement.pm
ok 2 - POD test for blib/lib/SQL/Eval.pm
ok 3 - POD test for blib/lib/SQL/Parser.pm
ok 4 - POD test for blib/lib/SQL/Statement/RAM.pm
ok 5 - POD test for blib/lib/SQL/Statement/Placeholder.pm
ok 6 - POD test for blib/lib/SQL/Statement/TermFactory.pm
ok 7 - POD test for blib/lib/SQL/Statement/Function.pm
ok 8 - POD test for blib/lib/SQL/Statement/Embed.pod
ok 9 - POD test for blib/lib/SQL/Statement/GetInfo.pm
ok 10 - POD test for blib/lib/SQL/Statement/Util.pm
ok 11 - POD test for blib/lib/SQL/Statement/Structure.pod
ok 12 - POD test for blib/lib/SQL/Statement/Operation.pm
ok 13 - POD test for blib/lib/SQL/Statement/Term.pm
ok 14 - POD test for blib/lib/SQL/Statement/Syntax.pod
ok 15 - POD test for blib/lib/SQL/Statement/Functions.pm
ok 16 - POD test for blib/lib/SQL/Statement/Roadmap.pod
ok 17 - POD test for blib/lib/SQL/Dialects/ANSI.pm
ok 18 - POD test for blib/lib/SQL/Dialects/CSV.pm
ok 19 - POD test for blib/lib/SQL/Dialects/Role.pm
ok 20 - POD test for blib/lib/SQL/Dialects/AnyData.pm
ok
t/21pod_coverage.t ...
1..16
ok 1 - Pod coverage on SQL::Statement
ok 2 - Pod coverage on SQL::Eval
ok 3 - Pod coverage on SQL::Parser
ok 4 - Pod coverage on SQL::Statement::RAM
ok 5 - Pod coverage on SQL::Statement::Placeholder
ok 6 - Pod coverage on SQL::Statement::TermFactory
ok 7 - Pod coverage on SQL::Statement::Function
ok 8 - Pod coverage on SQL::Statement::GetInfo
ok 9 - Pod coverage on SQL::Statement::Util
ok 10 - Pod coverage on SQL::Statement::Operation
ok 11 - Pod coverage on SQL::Statement::Term
ok 12 - Pod coverage on SQL::Statement::Functions
ok 13 - Pod coverage on SQL::Dialects::ANSI
ok 14 - Pod coverage on SQL::Dialects::CSV
ok 15 - Pod coverage on SQL::Dialects::Role
ok 16 - Pod coverage on SQL::Dialects::AnyData
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,', 1279382678)
ok 5 - INSERT INTO log VALUES (2, 'bert', '/netbsd', '2006, 2007, 2008, 2009', 1279382678)
ok 6 - INSERT INTO log VALUES (3, 'bert', '/netbsd', 'The NetBSD Foundation, Inc. All rights reserved.', 1279382678)
ok 7 - INSERT INTO log VALUES (4, 'bert', '/netbsd', 'Copyright (c) 1982, 1986, 1989, 1991, 1993', 1279382678)
ok 8 - INSERT INTO log VALUES (5, 'bert', '/netbsd', 'The Regents of the University of California. All rights reserved.', 1279382678)
ok 9 - INSERT INTO log VALUES (6, 'bert', '/netbsd', '', 1279382678)
ok 10 - INSERT INTO log VALUES (7, 'bert', '/netbsd', 'NetBSD 5.99.21 (BERT) \#0: Mon Nov 30 08:16:07 CET 2009', 1279382678)
ok 11 - INSERT INTO log VALUES (8, 'ernie', 'rpc.statd', 'starting', 1279379078)
ok 12 - INSERT INTO log VALUES (9, 'ernie', 'savecore', 'no core dump', 1279375478)
ok 13 - INSERT INTO log VALUES (10, 'ernie', 'postfix/postfix-script', 'starting the Postfix mail system', 1279371878)
ok 14 - INSERT INTO log VALUES (11, 'ernie', 'rpcbind', 'connect from 127.0.0.1 to dump()', 1279368278)
ok 15 - INSERT INTO log VALUES (12, 'ernie', 'sshd', 'last message repeated 2 times', 1279364678)
ok 16 - INSERT INTO log VALUES (13, 'ernie', 'shutdown', 'poweroff by root:', 1279361078)
ok 17 - INSERT INTO log VALUES (14, 'ernie', 'shutdown', 'rebooted by root', 1279357478)
ok 18 - INSERT INTO log VALUES (15, 'ernie', 'sshd', 'Server listening on :: port 22.', 1279353878)
ok 19 - INSERT INTO log VALUES (16, 'ernie', 'sshd', 'Server listening on 0.0.0.0 port 22.', 1279350278)
ok 20 - INSERT INTO log VALUES (17, 'ernie', 'sshd', 'Received SIGHUP; restarting.', 1279346678)
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 ( 1279382678 - 5, 1279382678 + 5) ORDER BY id" (SELECT)
ok 28 - SELECT id,host,signature,message FROM log WHERE time_stamp BETWEEN ( 1279382678 - 5, 1279382678 + 5) ORDER BY id
ok 29 - $stmt->execute "SELECT id,host,signature,message FROM log WHERE time_stamp < (1279382678 - ( 4 * 60 )) ORDER BY id" (SELECT)
ok 30 - SELECT id,host,signature,message FROM log WHERE time_stamp < (1279382678 - ( 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 > (1279382678 - 5)) AND (time_stamp < (1279382678 + 5)) ORDER BY id" (SELECT)
ok 34 - SELECT id,host,signature,message FROM log WHERE (time_stamp > (1279382678 - 5)) AND (time_stamp < (1279382678 + 5)) ORDER BY id
ok 35 - $stmt->execute "SELECT MAX(time_stamp) FROM log WHERE time_stamp IN ( 1279382678 - (2*3600), 1279382678 - (4*3600))" (SELECT)
ok 36 - SELECT MAX(time_stamp) FROM log WHERE time_stamp IN ( 1279382678 - (2*3600), 1279382678 - (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: '1279371878'
ok
t/23dialects.t .......
1..2
ok 1
ok 2
ok
All tests successful.
Test Summary Report
-------------------
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=584, 4 wallclock secs ( 0.13 usr 0.03 sys + 3.90 cusr 0.29 csys = 4.35 CPU)
Result: PASS
REHSACK/SQL-Statement-1.28.tar.gz
make test TEST_VERBOSE=1 -- OK
Jens Rehsack <rehsack@cpan.org>
SQL parsing and processing engine
>>> (cd /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu && tar cvf - SQL-Statement-1.28.ppd blib) | gzip -c >/home/fly1200/var/REPO/R/RE/REHSACK/SQL-Statement-1.28.tar.gz
SQL-Statement-1.28.ppd
blib/
blib/lib/
blib/lib/SQL/
blib/lib/SQL/Statement/
blib/lib/SQL/Statement/RAM.pm
blib/lib/SQL/Statement/Placeholder.pm
blib/lib/SQL/Statement/TermFactory.pm
blib/lib/SQL/Statement/Function.pm
blib/lib/SQL/Statement/Embed.pod
blib/lib/SQL/Statement/GetInfo.pm
blib/lib/SQL/Statement/Util.pm
blib/lib/SQL/Statement/Structure.pod
blib/lib/SQL/Statement/Operation.pm
blib/lib/SQL/Statement/Term.pm
blib/lib/SQL/Statement/Syntax.pod
blib/lib/SQL/Statement/Functions.pm
blib/lib/SQL/Statement/Roadmap.pod
blib/lib/SQL/Statement.pm
blib/lib/SQL/Dialects/
blib/lib/SQL/Dialects/ANSI.pm
blib/lib/SQL/Dialects/CSV.pm
blib/lib/SQL/Dialects/Role.pm
blib/lib/SQL/Dialects/AnyData.pm
blib/lib/SQL/Eval.pm
blib/lib/SQL/Parser.pm
blib/man3/
blib/man3/SQL::Statement::RAM.3
blib/man3/SQL::Statement::Placeholder.3
blib/man3/SQL::Statement::Structure.3
blib/man3/SQL::Statement::Function.3
blib/man3/SQL::Statement::TermFactory.3
blib/man3/SQL::Dialects::Role.3
blib/man3/SQL::Statement::Operation.3
blib/man3/SQL::Dialects::AnyData.3
blib/man3/SQL::Dialects::CSV.3
blib/man3/SQL::Statement::Term.3
blib/man3/SQL::Statement::Embed.3
blib/man3/SQL::Eval.3
blib/man3/SQL::Dialects::ANSI.3
blib/man3/SQL::Statement::Roadmap.3
blib/man3/SQL::Statement::Syntax.3
blib/man3/SQL::Statement::Functions.3
blib/man3/SQL::Statement::GetInfo.3
blib/man3/SQL::Statement::Util.3
blib/man3/SQL::Statement.3
blib/man3/SQL::Parser.3
>>> mv /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/SQL-Statement-1.28.ppd /home/fly1200/var/REPO/R/RE/REHSACK
Running test for module 'DBI'
Running make for T/TI/TIMB/DBI-1.612.tar.gz
Prepending /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/blib/arch /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/blib/lib /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/arch /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib to PERL5LIB for 'get'
Has already been unwrapped into directory /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa
Prepending /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/blib/arch /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/blib/lib /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/arch /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib to PERL5LIB for 'make'
Has already been made
Prepending /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/blib/arch /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/blib/lib /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/arch /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib to PERL5LIB for 'test'
Running make test
Has already been tested successfully
Running make for R/RE/REHSACK/DBD-AnyData-0.110.tar.gz
Prepending /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/blib/arch /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/blib/lib /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/arch /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib to PERL5LIB for 'get'
Has already been unwrapped into directory /home/fly1200/var/cpan/build/DBD-AnyData-0.110-UwHvCr
Prepending /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/blib/arch /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/blib/lib /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/arch /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib to PERL5LIB for 'make'
CPAN.pm: Going to build R/RE/REHSACK/DBD-AnyData-0.110.tar.gz
>>> make
cp lib/DBD/AnyData.pm blib/lib/DBD/AnyData.pm
Manifying blib/man3/DBD::AnyData.3
REHSACK/DBD-AnyData-0.110.tar.gz
make -- OK
Prepending /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/blib/arch /home/fly1200/var/cpan/build/SQL-Statement-1.28-ALhBOu/blib/lib /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/arch /home/fly1200/var/cpan/build/DBI-1.612-WG2NAa/blib/lib to PERL5LIB for 'test'
Running make test
>>> make test TEST_VERBOSE=1
PERL_DL_NONLAZY=1 /home/fly1200/ap1200-292396/bin/perl-static "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib/lib', 'blib/arch')" t/*.t
# Testing DBD::AnyData 0.110, Perl 5.012000, /home/fly1200/ap1200-292396/bin/perl-static
t/00-load.t ...
1..1
ok 1 - use DBD::AnyData;
ok
t/01-basic.t ..
ok 1 - use DBI;
ok 2 - use DBD::AnyData;
# DBD::AnyData
# CSV ...
ok 3 - connect
ok 4 - CREATE test_CSV
ok 5 - INSERT 1. row into test_CSV
ok 6 - INSERT 2. row into test_CSV
ok 7 - INSERT 3. row into test_CSV
ok 8 - UPDATE test_CSV
ok 9 - DELETE FROM test_CSV
ok 10 - Single select
ok 11 - Multiple select
ok 12 - Names
ok 13 - rows
ok 14 - ad_convert
# Pipe ...
ok 15 - connect
ok 16 - CREATE test_Pipe
ok 17 - INSERT 1. row into test_Pipe
ok 18 - INSERT 2. row into test_Pipe
ok 19 - INSERT 3. row into test_Pipe
ok 20 - UPDATE test_Pipe
ok 21 - DELETE FROM test_Pipe
ok 22 - Single select
ok 23 - Multiple select
ok 24 - Names
ok 25 - rows
ok 26 - ad_convert
# Tab ...
ok 27 - connect
ok 28 - CREATE test_Tab
ok 29 - INSERT 1. row into test_Tab
ok 30 - INSERT 2. row into test_Tab
ok 31 - INSERT 3. row into test_Tab
ok 32 - UPDATE test_Tab
ok 33 - DELETE FROM test_Tab
ok 34 - Single select
ok 35 - Multiple select
ok 36 - Names
ok 37 - rows
ok 38 - ad_convert
# Fixed ...
ok 39 - connect
ok 40 - CREATE test_Fixed
ok 41 - INSERT 1. row into test_Fixed
ok 42 - INSERT 2. row into test_Fixed
ok 43 - INSERT 3. row into test_Fixed
ok 44 - UPDATE test_Fixed
ok 45 - DELETE FROM test_Fixed
ok 46 - Single select
ok 47 - Multiple select
ok 48 - Names
ok 49 - rows
ok 50 - ad_convert
# Paragraph ...
ok 51 - connect
ok 52 - CREATE test_Paragraph
ok 53 - INSERT 1. row into test_Paragraph
ok 54 - INSERT 2. row into test_Paragraph
ok 55 - INSERT 3. row into test_Paragraph
ok 56 - UPDATE test_Paragraph
ok 57 - DELETE FROM test_Paragraph
ok 58 - Single select
ok 59 - Multiple select
ok 60 - Names
ok 61 - rows
ok 62 - ad_convert
# ARRAY ...
ok 63 - connect
ok 64 - CREATE test_ARRAY
ok 65 - INSERT 1. row into test_ARRAY
ok 66 - INSERT 2. row into test_ARRAY
ok 67 - INSERT 3. row into test_ARRAY
ok 68 - UPDATE test_ARRAY
ok 69 - DELETE FROM test_ARRAY
ok 70 - Single select
ok 71 - Multiple select
ok 72 - Names
ok 73 - rows
1..73
ok
t/manifest.t .. skipped: Author tests not required for installation
t/pod.t .......
1..1
ok 1 - POD test for blib/lib/DBD/AnyData.pm
ok
All tests successful.
Files=4, Tests=75, 0 wallclock secs ( 0.03 usr 0.01 sys + 0.38 cusr 0.03 csys = 0.45 CPU)
Result: PASS
REHSACK/DBD-AnyData-0.110.tar.gz
make test TEST_VERBOSE=1 -- OK
Jens Rehsack <rehsack@cpan.org>
DBI access to XML, CSV and other formats
>>> (cd /home/fly1200/var/cpan/build/DBD-AnyData-0.110-UwHvCr && tar cvf - DBD-AnyData-0.110.ppd blib) | gzip -c >/home/fly1200/var/REPO/R/RE/REHSACK/DBD-AnyData-0.110.tar.gz
DBD-AnyData-0.110.ppd
blib/
blib/lib/
blib/lib/DBD/
blib/lib/DBD/AnyData.pm
blib/man3/
blib/man3/DBD::AnyData.3
>>> mv /home/fly1200/var/cpan/build/DBD-AnyData-0.110-UwHvCr/DBD-AnyData-0.110.ppd /home/fly1200/var/REPO/R/RE/REHSACK
Finished 2010-07-17T09:04:40