On 10/09/2010 14:29, Martin J. Evans wrote:
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
I managed to get hold of Craig Berry (BTW Craig, I bcc'ed you as I
wasn't sure you would want to see any followups but I wanted you to know
what I'd done) and he took a look at the latest development release of
DBI. He tried posting to dbi-dev but the email has not got through as
yet so I've copied it here:
=====
Tried to reply on dbi-dev yesterday but my message hasn't come through.
The main problem I see so far is that anything depending on DBD::DBM
doesn't work. For example, in running 85gofer.t, it creates a new,
empty, temporary directory (by calling rmtree and then mkdir on it),
then it does opendir/readdir on that empty directory in order to find
DSNs. Naturally it doesn't find any.
Here's the point where it's trying to find things that aren't there:
DBD::File::dr::data_sources(blib/lib/DBD/File.pm:143):
143: while (defined ($file = readdir ($dirh))) {
In my case, the directory is:
DB<9> x $dir
0 '/D0/CRAIG/DBI/test_output_1076/'
Maybe there is some prior step that is supposed to populate the
test_output_XXX directory?
=====
BTW, Thanks again Craig for helping us out here.
I'm still looking into issues in VMS but it is a slow process as I've
got a lot of other stuff to do and the machine I have access to is VERY
slow. I've also had problems with -Ipath not working on the command line
(only used where I would have used prove) and had to resort to setting a
logical for PERL5LIB.
Martin
