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
28
29
30
31
32
|
#!/usr/bin/perl
use 5.014002;
use warnings;
use Test::More;
use Test::Warnings;
use Net::CVE;
my $v = $Net::CVE::VERSION or BAIL_OUT ("Net::CVE does not return a VERSION");
ok ($v, "Net::CVE-$v");
ok (my $cr = Net::CVE->new, "New reporter");
isa_ok ($cr, "Net::CVE", "Of class Net::CVE");
can_ok ($cr, qw(
VERSION Version
new get data summary
status platforms vendor product
));
is (Net::CVE->Version, $v, "Version");
is (Net::CVE->VERSION, $v, "VERSION");
ok (Net::CVE->new, "new");
ok (Net::CVE->new (), "new ()");
ok (Net::CVE->new ( lang => "nl" ), "new ( lang => nl )");
ok (Net::CVE->new ({ lang => "nl" }), "new ({ lang => nl })");
done_testing;
|
