Commit | Line | Data |
---|---|---|
a552ba59 NC |
1 | #!./perl -w |
2 | use strict; | |
3 | require './test.pl'; | |
4 | ||
5 | use Config; | |
6 | ||
7 | plan(2); | |
8 | ||
b8b46d9f | 9 | # Defiantly a white box test... |
a552ba59 NC |
10 | |
11 | # As we need to call it direct, we'll take advantage of its result ordering: | |
12 | my @to_check = qw(bincompat_options non_bincompat_options); | |
13 | my @V = map {s/^ //r} Internals::V(); | |
14 | ||
15 | while (my ($index, $sub) = each @to_check) { | |
102bfa85 | 16 | my $got = join ' ', sort &{Config->can($sub)}(); |
a552ba59 NC |
17 | is($got, $V[$index], "C source code has $sub in sorted order"); |
18 | } |