Permalink
Browse files

add NativeCall::TypeDiag tests for Oracle

  • Loading branch information...
abraxxa committed Dec 23, 2015
1 parent 8211ddc commit 5b9f438c3ab71e736f83210eee9ca18093ab7bd7
Showing with 26 additions and 0 deletions.
  1. +26 −0 xt/05_oraclenative.t
View
@@ -0,0 +1,26 @@
use v6;
use Test;
use NativeCall::TypeDiag;
use DBDish::Oracle::Native;
#my @headers = <oci.h>;
#my @libs = <-lclntsh>;
my @fun;
my %typ;
#Turn this False if something fail
$NativeCall::TypeDiag::silent = False;
for DBDish::Oracle::Native::EXPORT::DEFAULT::.keys -> $export {
if ::($export).REPR eq 'CStruct' {
%typ{$export} = ::($export);
}
if ::($export).does(Callable) and ::($export).^roles.perl ~~ /NativeCall/ {
@fun.push(::($export));
}
}
plan 1;
#ok diag-cstructs(:cheaders(@headers), :types(%typ), :clibs(@libs)), "CStruct definition are correct";
ok diag-functions(:functions(@fun)), "Functions signature are good";

0 comments on commit 5b9f438

Please sign in to comment.