File: USB-LibUSB.t

package info (click to toggle)
libusb-libusb-perl 0.09-3
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 396 kB
  • sloc: perl: 727; makefile: 3
file content (14 lines) | stat: -rwxr-xr-x 313 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!perl -T

use warnings;
use strict;
use Data::Dumper;

use Test::More tests => 3;
BEGIN {use_ok('USB::LibUSB')};

my $version_hash = libusb_get_version();

is(ref $version_hash, 'HASH', "version hash");
diag("libusb_version: ", Dumper($version_hash));
is($version_hash->{major}, 1, "major version number is 1");