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