forked from Qortal/Brooklyn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
563 B
33 lines
563 B
#!/usr/bin/env perl |
|
# SPDX-License-Identifier: GPL-2.0 |
|
|
|
open (IN,"ktest.pl"); |
|
while (<IN>) { |
|
# hashes are now used |
|
if (/\$opt\{"?([A-Z].*?)(\[.*\])?"?\}/ || |
|
/^\s*"?([A-Z].*?)"?\s*=>\s*/ || |
|
/set_test_option\("(.*?)"/) { |
|
$opt{$1} = 1; |
|
} |
|
} |
|
close IN; |
|
|
|
open (IN, "sample.conf"); |
|
while (<IN>) { |
|
if (/^\s*#?\s*([A-Z]\S*)\s*=/) { |
|
$samp{$1} = 1; |
|
} |
|
} |
|
close IN; |
|
|
|
foreach $opt (keys %opt) { |
|
if (!defined($samp{$opt})) { |
|
print "opt = $opt\n"; |
|
} |
|
} |
|
|
|
foreach $samp (keys %samp) { |
|
if (!defined($opt{$samp})) { |
|
print "samp = $samp\n"; |
|
} |
|
}
|
|
|