Skip Menu |
Report information
Id: 127001
Status: open
Priority: 0/
Queue: perl6

Owner: Nobody
Requestors: abraxxa [at] cpan.org
Cc:
AdminCc:

Severity: (no value)
Tag: (no value)
Platform: (no value)
Patch Status: (no value)
VM: (no value)



Subject: CArray[CArray[int8]] fails type check
Download (untitled) / with headers
text/plain 2.8k
I wasn't able to come up with a failing test case as scripts aren't precompiled and I was told that it might have something to do with that. When running t/45-oracle.t from https://github.com/abraxxa/DBIish using perl6 -Ilib t/45-oracle-common.t the following failure occurs: # Testing DBDish::Oracle 1..70 ok 1 - Install driver ok 2 - DBDish::Oracle version 0.01 ok 3 - connect to XE ok 4 - drop table gave an expected error (did a previous test not clean up?) ok 5 - do: create table nom ok 6 - # SKIP err after successful create should be 0 ok 7 - errstr after successful create should be false ok 8 - insert without parameters called from do ok 9 - # SKIP $dbh.rows not implemented ok 10 - prepare an insert command with one string parameter ok 11 - execute one with one string parameter ok 12 - execute one with one string parameter should return 1 row affected ok 13 - $sth.rows for execute one with one string parameter should report 1 row affected ok 14 - prepare an insert command with one integer parameter ok 15 - execute one with one integer parameter ok 16 - execute one with one integer parameter should return 1 row affected ok 17 - $sth.rows for execute one with one integer parameter should report 1 row affected ok 18 - prepare an insert command with one float parameter ok 19 - execute one with one float parameter ok 20 - execute one with one float parameter should return 1 row affected ok 21 - $sth.rows for execute one with one float parameter should report 1 row affected ok 22 - prepare an insert command with parameters ok 23 - execute twice with parameters ok 24 - # SKIP $dbh.rows not implemented ok 25 - # SKIP $sth.bind_param_array() and $sth.execute_array() not implemented ok 26 - # SKIP $sth.bind_param_array() and $sth.execute_array() not implemented ok 27 - prepare a select command without parameters ok 28 - execute a prepared select statement without parameters ok 29 - fetchall_arrayref returns 6 rows ok 30 - selected data matches what was written ok 31 - Test the type of a Str field ok 32 - Test the type of an Int field not ok 33 - Test the type of a Float like field# TODO What type do we want to return for numeric? # Failed test 'Test the type of a Float like field' # at EVAL_0 line 178 Type check failed in assignment to $col_namep; expected NativeCall::Types::CArray[NativeCall::Types::CArray[int8]] but got NativeCall::Types::CArray[NativeCall::Types::CArray[int8]].new in block at /home/ahartmai/perl6/git/DBIish/lib/DBDish/Oracle/StatementHandle.pm6:494 in method column_names at /home/ahartmai/perl6/git/DBIish/lib/DBDish/Oracle/StatementHandle.pm6:484 in method _row at /home/ahartmai/perl6/git/DBIish/lib/DBDish/Oracle/StatementHandle.pm6:460 in method row at /home/ahartmai/perl6/git/DBIish/lib/DBDish/Role/StatementHandle.pm6:28 in block <unit> at EVAL_0:180 in block <unit> at t/45-oracle-common.t:39 perl6 was rakudobrewed from now, perl6::version=2015.11-756-g82e6ca2.
Download (untitled) / with headers
text/plain 149b
adding no precompilation; to DBDish::Oracle::StatementHandle works around the problem so the suspicion on IRC it's related to that seems to be true.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org