1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!perl -T
use Test::More qw(no_plan); ## no critic(ProhibitNoPlan)
use Device::USB;
use strict;
use warnings;
#
# No plan, because the number of tests depends on the number of
# busses and devices on the system.
#
my $usb = Device::USB->new();
ok( defined $usb, "Object successfully created" );
can_ok( $usb, "list_busses" );
my $busses = $usb->list_busses();
ok( defined $busses, "USB busses found" );
isa_ok( $busses, "ARRAY", "An array of busses returned." );
foreach my $bus (@{$busses})
{
isa_ok( $bus, "Device::USB::Bus" );
}
|
