Displaying 1 result from an estimated 1 matches for "pod_cont".
Did you mean:
op_cont
[PATCH v1 INCOMPLETE] tests: Implement script to check documented tool options match actual options.
2016 Jul 18
0
[PATCH v1 INCOMPLETE] tests: Implement script to check documented tool options match actual options.
...od2usage (2);
+pod2usage (1) if $help;
+
+die "$progname: missing argument: pod-arg-check.pl input.pod tool\n"
+ unless @ARGV == 2;
+my $pod = $ARGV[0];
+my $tool = $ARGV[1];
+
+my %ignore = ();
+$ignore{$_} = 1 foreach (split /,/, $ignore);
+
+# Open the man page and slurp it in.
+my $pod_content = "";
+open MAN, $pod or die "$progname: $pod: $!";
+{
+ local $/ = undef;
+ $pod_content = <MAN>;
+}
+close MAN;
+
+# Run the tool with --long-options and --short-options.
+my @tool_options = ();
+open PIPE, "$tool --long-options |"
+ or die "$p...