# New Ticket Created by Alexander Hartmaier # Please include the string: [perl #127001] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/Ticket/Display.html?id=127001 >
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.
