]> git.draconx.ca Git - dxcommon.git/blobdiff - tests/functions.at
help_print_optstring: Test fullwidth/halfwidth character output.
[dxcommon.git] / tests / functions.at
index ec7b6f3184078846c5cc57a2a9b858aa7ecfd7c1..fd1e10f5588460f36882c766285a5b56759011fa 100644 (file)
@@ -4,24 +4,6 @@ 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.
 dnl There is NO WARRANTY, to the extent permitted by law.
 
-m4_divert_push([PREPARE_TESTS])dnl
-test_run_tap () {
-  "$builddir/t/$1" > "$1.tap"
-  status=$?
-  cat "$1.tap"
-  prove -e cat "$1.tap"
-  return $status
-}
-m4_divert_pop([PREPARE_TESTS])
-
-m4_define([TEST_TAP], [AT_CHECK([test_run_tap "$1"], [0], [ignore])])
-m4_define([TEST_TAP_SIMPLE], [dnl
-AT_SETUP([$1])
-AT_KEYWORDS([$4])dnl
-m4_n([$3])dnl
-TEST_TAP([$2])
-AT_CLEANUP])
-
 AT_BANNER([Binary packing functions])
 
 TEST_TAP_SIMPLE([signed unpacking], [packtests], [], [pack])
@@ -128,6 +110,23 @@ AT_CHECK([m4_join([ ],
 
 AT_CLEANUP
 
+AT_SETUP([help_print_optstring (NLS fullwidth/halfwidth)])
+AT_KEYWORDS([help nls])
+
+AT_SKIP_IF([test ! -x "$builddir/t/helpopt3"])
+TEST_UTF8_LOCALE([locale_utf8])
+
+AT_CHECK([m4_join([ ],
+  [LC_ALL=$locale_utf8 "$builddir/t/helpopt3"],
+  [--全角],
+  [--ハンカク],
+  )], [0],
+[[  --全角   8
+  --ハンカク       8
+]])
+
+AT_CLEANUP
+
 AT_BANNER([Miscellaneous functions])
 
 TEST_TAP_SIMPLE([copyright_symbol], [copysym], [], [])