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
33
34
35
36
37
|
#!perl
use strict;
use warnings;
use Test::More;
use CSAF::Type;
my $TYPES = CSAF::Type::TYPE_CLASSES();
foreach my $name (sort keys %{$TYPES}) {
subtest "'$name' type" => sub {
SKIP: {
eval {
my $class = CSAF::Type->new(name => $name, value => {});
isa_ok($class, $TYPES->{$name}, "'$name' type using CSAF::Type->new");
};
skip "$name: $@", 1 if $@;
eval {
my $class = CSAF::Type->name($name, {});
isa_ok($class, $TYPES->{$name}, "'$name' type using CSAF::Type->name");
};
skip "$name: $@", 1 if $@;
}
};
}
done_testing();
|
