#!perl -T

use Test::More tests => 4;
use Device::USB;
use strict;
use warnings;

my $usb = Device::USB->new();

ok( defined $usb, "Object successfully created" );
can_ok( $usb, "find_busses", "find_devices" );

my $bus_changes = $usb->find_busses();
is( $usb->find_busses(), 0, "No bus changes since last call." );

my $device_changes = $usb->find_devices();
is( $usb->find_devices(), 0, "No device changes since last call." );