Re: Some VMS errors in DBI trunk

On 09/09/10 15:18, Martin J. Evans wrote:
> I ran DBI trunk on VMS (perl, v5.8.1 built for VMS_AXP) just to check it out. There were a lot of failures. I'm pushed for time right now so I've not yet had any time to properly investigate them. I've listed a few here (but not complete). If anyone has any insight into them I can try stuff out.
> 
> v20 $ perl -I[.blib.lib] -I[.blib.arch] [.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 s
> ame
> 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 88.
> # 
> 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(0x6228e4) ne DBI::db=HASH(0x6228e4)
> 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
> not ok 48
> #   Failed test at [.t]10examp.t line 159.
> 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
> Can't use an undefined value as an ARRAY reference at [.t]10examp.t line 179.
> # Looks like you planned 210 tests but ran 62.
> # Looks like you failed 1 test of 62 run.
> # Looks like your test exited with 512 just after 62.
> %SYSTEM-F-ABORT, abort
> 
> 
> 
> 
> v20 $ perl -I[.blib.lib] -I[.blib.arch] [.t]19fhtrace.t
> 1..27
> ok 1 - use DBI;
> Can't set DBI::db=HASH(0x38c68c)->{PrintWarn}: unrecognised attribute or invalid
>  value at /perl_root/lib/site_perl/DBD/ExampleP.pm line 230.
> # Looks like you planned 27 tests but ran 1.
> # Looks like your test exited with 1024 just after 1.
> %SYSTEM-F-ABORT, abort

This one was down to the fact that those -Is on the command line are not working.
It works when I set PERL5LIB instead.

> v20 $ perl -I[.blib.lib] -I[.blib.arch] [.t]42prof_data.t
> 1..31
> ok 1 - use DBI::ProfileDumper;
> ok 2 - use DBI::ProfileData;
> Odd number of elements in anonymous hash at /perl_root/lib/site_perl/DBI/Profile
> .pm line 497.
> ok 3 - Created connection isa DBI::db
> DBD::ExampleP::db do failed: Syntax error in select statement ("set dummy=1") at
>  [.t]42prof_data.t line 43.
> DBD::ExampleP::db do failed: Syntax error in select statement ("set dummy=1") at
>  [.t]42prof_data.t line 43.
> # Looks like you planned 31 tests but ran 3.
> # Looks like your test exited with 1024 just after 3.
> %SYSTEM-F-ABORT, abort

This was the -I problem as as well, 42prof_data.t is ok.

> v20 $ perl -I[.blib.lib] -I[.blib.arch] [.t]49dbd_file.t 
> ok 1 - use DBI;
> not ok 2 - use DBD::File;
> #   Failed test 'use DBD::File;'
> #   at [.t]49dbd_file.t line 18.
> #     Tried to use 'DBD::File'.
> #     Error:  Can't locate DBD/File.pm in @INC (@INC contains: /perl_root/lib/VM
> S_AXP/5_8_1 /perl_root/lib /perl_root/lib/site_perl/VMS_AXP perl_root:[lib.site_
> perl] /perl_root/lib/site_perl .) at (eval 5) line 2.
> # BEGIN failed--compilation aborted at (eval 5) line 2.
> install_driver(File) failed: Can't locate DBD/File.pm in @INC (@INC contains: /p
> erl_root/lib/VMS_AXP/5_8_1 /perl_root/lib /perl_root/lib/site_perl/VMS_AXP perl_
> root:[lib.site_perl] /perl_root/lib/site_perl .) at (eval 6) line 3.
> Perhaps the DBD::File perl module hasn't been fully installed,
> or perhaps the capitalisation of 'File' isn't right.
> Available drivers: examplep, nullp, proxy, sponge.
>  at [.t]49dbd_file.t line 30
> # Tests were run but no plan was declared and done_testing() was not seen.
> %SYSTEM-F-ABORT, abort

49dbd_file.t should have been:

v20 $ perl -I[.blib.lib] -I[.blib.arch] [.t]49dbd_file.t 
ok 1 - use DBI;
not ok 2 - use DBD::File;
#   Failed test 'use DBD::File;'
#   at [.t]49dbd_file.t line 18.
#     Tried to use 'DBD::File'.
#     Error:  DBI/DBD/SqlEngine.pm did not return a true value at (eval 7) line 
3.
# 	...propagated at /perl_root/lib/base.pm line 64.
# BEGIN failed--compilation aborted at /dka200/martin/dbi-1_614/blib/lib/DBD/Fil
e.pm line 34.
# Compilation failed in require at (eval 6) line 2.
# BEGIN failed--compilation aborted at (eval 6) line 2.
DBD::File initialisation failed: Can't locate object method "driver" via package
 "DBD::File" at /dka200/martin/dbi-1_614/blib/lib/DBI.pm line 814.

Perhaps the capitalisation of DBD 'File' isn't right. at [.t]49dbd_file.t line 3
0
# Tests were run but no plan was declared and done_testing() was not seen.
%SYSTEM-F-ABORT, abort

> There are more but this is really just to note what I've seen so far.
> 
> Martin

Martin
-- 
Martin J. Evans
Easysoft Limited
http://www.easysoft.com