X-Git-Url: http://git.draconx.ca/gitweb/dxcommon.git/blobdiff_plain/843799dbec995b276a7d017bb32c053747b55400..cd475ab947ddc0338bd54406234f9cbfa5abe2fd:/tests/functions.at

diff --git a/tests/functions.at b/tests/functions.at
index 507c105..cfd5408 100644
--- a/tests/functions.at
+++ b/tests/functions.at
@@ -1,4 +1,4 @@
-dnl Copyright © 2015, 2021 Nick Bowler
+dnl Copyright © 2015, 2021-2022 Nick Bowler
 dnl
 dnl License WTFPL2: Do What The Fuck You Want To Public License, version 2.
 dnl This is free software: you are free to do what the fuck you want to.
@@ -66,7 +66,8 @@ AT_CHECK([m4_join([ ],
   [--quux -q '@<:@ARG@:>@'],
   [--hello-this-is-a-very-long-option 20],
   [--hello-this-is-a-very-long-option 50],
-  [--not-long 12])], [0],
+  [--not-long 12],
+  [--flagged -f \&])], [0],
 [[  --foo	7
   -b, --bar	11
   --baz=ARG	11
@@ -77,6 +78,38 @@ AT_CHECK([m4_join([ ],
 	0
   --hello-this-is-a-very-long-option	36
   --not-long	12
+  --flagged	11
+]])
+
+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],
+  [--flagged -f \&])], [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
+  -flagged	10
 ]])
 
 AT_CLEANUP