1use Test2::V0 -no_srand => 1;
2use FFI::Platypus::Internal;
3
4subtest 'basic' => sub {
5
6  note "alpha order:";
7
8  foreach my $const (sort @FFI::Platypus::Internal::EXPORT)
9  {
10    pass sprintf("%-30s 0x%04x", $const, __PACKAGE__->$const);
11  }
12
13  note "value order:";
14
15  foreach my $const (sort { __PACKAGE__->$a <=> __PACKAGE__->$b } @FFI::Platypus::Internal::EXPORT)
16  {
17    pass sprintf("%-30s 0x%04x", $const, __PACKAGE__->$const);
18  }
19
20};
21
22done_testing;
23