help: Add a single-dash long option mode.

[dxcommon.git] / tests / functions.at

diff --git a/tests/functions.at b/tests/functions.at
index 507c10571a3c79eae484baebd74d66a145e3cfac..dbbcf6db2527c6ff7bbee0ab8718ceda1a8edbf6 100644 (file)
--- a/tests/functions.at
+++ b/tests/functions.at
@@ -80,3 +80,32 @@ AT_CHECK([m4_join([ ],
 ]])
 
 AT_CLEANUP
+
+AT_SETUP([help_print_optstring (getopt_long_only)])
+
+AT_SKIP_IF([test ! -x "$builddir/t/helpopt2"])
+
+AT_CHECK([m4_join([ ],
+  ["$builddir/t/helpopt2"],
+  [--foo],
+  [--bar -b],
+  [--baz ARG],
+  [--baz -B ARG],
+  [--quux '@<:@ARG@:>@'],
+  [--quux -q '@<:@ARG@:>@'],
+  [--hello-this-is-a-very-long-option 20],
+  [--hello-this-is-a-very-long-option 50],
+  [--not-long 12])], [0],
+[[  -foo       6
+  -bar 6
+  -baz ARG     10
+  -baz ARG     10
+  -quux [ARG]  13
+  -quux [ARG]  13
+  -hello-this-is-a-very-long-option
+       0
+  -hello-this-is-a-very-long-option    35
+  -not-long    11
+]])
+
+AT_CLEANUP