### ----------------------------------------------------
### -- LibUSB
### -- Licenses: Artistic-2.0
### -- Authors: Travis Gibson
### -- File: t/01-basic.t
### ----------------------------------------------------
use v6;
use Test;
use LibUSB;

ok LibUSB.^can('init'), <Init>;

ok LibUSB.^can('open'), <Open>;

ok LibUSB.^can('close'), <Close>;

ok LibUSB.^can('exit'), <Exit>;

ok LibUSB.^can('control-transfer'), <Control Transfer>;

todo 'Bulk Transfer not implemented';
ok LibUSB.^can('bulk-transfer'), <Bulk Transfer>;

todo 'Interrupt Transfer not implemented';
ok LibUSB.^can('interrupt-transfer'), <Interrupt Transfer>;

lives-ok {
my LibUSB $dev .= new;

$dev.init;

$dev.exit;

}, <Load shared libusb library>;
done-testing;


