ble.sh & z4h addition

1 files changed, 200 insertions, 0 deletions

diff --git a/.local/src/blesh/lib/core-test.sh b/.local/src/blesh/lib/core-test.sh
new file mode 100644
index 0000000..6adda33
--- /dev/null
+++ b/.local/src/blesh/lib/core-test.sh
@@ -0,0 +1,200 @@
+# this script is a part of blesh (https://github.com/akinomyoga/ble.sh) under BSD-3-Clause license
+function ble/test/getdir {
+  dir=$_ble_base_run/$$.test
+  [[ -d $dir ]] || ble/bin/mkdir -p "$dir"
+}
+_ble_test_dir=
+function ble/test/chdir {
+  local dir
+  ble/test/getdir
+  ble/util/getpid
+  _ble_test_dir=$dir/$BASHPID.d
+  [[ -d $_ble_test_dir ]] ||
+    ble/bin/mkdir -p "$_ble_test_dir"
+  cd "$_ble_test_dir"
+}
+function ble/test/rmdir {
+  [[ -d $_ble_test_dir ]] &&
+    ble/bin/rm -rf "$_ble_test_dir"
+  return 0
+}
+_ble_test_logfile_fd=
+function ble/test/log {
+  if [[ $_ble_test_logfile_fd ]]; then
+    ble/util/print "$1" >&$_ble_test_logfile_fd
+  fi
+  ble/util/print "$1"
+}
+function ble/test/log#open {
+  local file=$1
+  if ble/fd#alloc _ble_test_logfile_fd '>>$file'; then
+    local h10=----------
+    [[ -s $file ]] &&
+      ble/util/print "$h10$h10$h10$h10$h10$h10$h10" >&$_ble_test_logfile_fd
+    ble/util/print "[$(date +'%F %T %Z')] test: start logging" >&$_ble_test_logfile_fd
+  fi
+}
+function ble/test/log#close {
+  if [[ $_ble_test_logfile_fd ]]; then
+    ble/util/print "[$(date +'%F %T %Z')] test: end logging" >&$_ble_test_logfile_fd
+    ble/fd#close _ble_test_logfile_fd
+    _ble_test_logfile_fd=
+  fi
+}
+if ble/bin/.freeze-utility-path colored; then
+  function ble/test/diff.impl {
+    ble/bin/colored diff -u "$@"
+  }
+else
+  function ble/test/diff.impl {
+    diff -u "$@"
+  }
+fi
+function ble/test/diff {
+  local dir
+  ble/test/getdir
+  ble/util/getpid
+  local f1=$BASHPID.$1.expect
+  local f2=$BASHPID.$1.result
+  (
+    cd "$dir"
+    ble/util/print "$2" >| "$f1"
+    ble/util/print "$3" >| "$f2"
+    ble/util/assign ret 'ble/test/diff.impl "$f1" "$f2"'
+    ble/test/log "$ret"
+    >| "$f1" >| "$f2"
+  )
+}
+_ble_test_section_fd=
+_ble_test_section_file=
+_ble_test_section_title=section
+_ble_test_section_count=0
+function ble/test/start-section {
+  [[ $_ble_test_section_fd ]] && ble/test/end-section
+  _ble_test_section_title=$1
+  _ble_test_section_count=$2
+  local dir
+  ble/test/getdir
+  ble/util/getpid
+  _ble_test_section_file=$dir/$BASHPID
+  ble/fd#alloc _ble_test_section_fd '> "$_ble_test_section_file"'
+}
+function ble/test/end-section {
+  [[ $_ble_test_section_fd ]] || return 1
+  ble/fd#close _ble_test_section_fd
+  _ble_test_section_fd=
+  local ntest npass count=$_ble_test_section_count
+  local ntest nfail npass
+  builtin eval -- $(
+    ble/bin/awk '
+      BEGIN{test=0;fail=0;pass=0;}
+      /^test /{test++}
+      /^fail /{fail++}
+      /^pass /{pass++}
+      END{print "ntest="test" nfail="fail" npass="pass;}
+    ' "$_ble_test_section_file")
+  local sgr=$'\e[32m' sgr0=$'\e[m'
+  ((npass==ntest)) || sgr=$'\e[31m'
+  local ncrash=$((ntest-nfail-npass))
+  local nskip=$((count-ntest))
+  if ((ntest)); then
+    local percentage=$((npass*1000/ntest)) # Note: 切り捨て
+    ble/util/sprintf percentage '%6s' "$((percentage/10)).$((percentage%10))%" # "XXX.X%"
+  else
+    local percentage=---.-%
+  fi
+  ble/test/log "$sgr$percentage$sgr0 [section] $_ble_test_section_title: $sgr$npass/$ntest$sgr0 ($nfail fail, $ncrash crash, $nskip skip)"
+  ((npass==ntest))
+}
+function ble/test/section#incr {
+  local title=$1
+  [[ $_ble_test_section_fd ]] || return 1
+  ble/util/print "test $title" >&$_ble_test_section_fd
+}
+function ble/test/section#report {
+  local ext=$? title=$1
+  [[ $_ble_test_section_fd ]] || return 1
+  local code=fail; ((ext==0)) && code=pass
+  ble/util/print "$code $title" >&$_ble_test_section_fd
+}
+function ble/test/.read-arguments {
+  local _stdout _stderr _exit _ret
+  local qstdout qstderr qexit qret
+  local -a buff=()
+  while (($#)); do
+    local arg=$1; shift
+    case $arg in
+    ('#'*)
+      local ret; ble/string#trim "${arg#'#'}"
+      title=$ret ;;
+    (stdout[:=]*)
+      [[ $qstdout ]] && _stdout=$_stdout$'\n'
+      qstdout=1
+      _stdout=$_stdout${arg#*[:=]} ;;
+    (stderr[:=]*)
+      [[ $qstderr ]] && _stderr=$_stderr$'\n'
+      qstderr=1
+      _stderr=$_stderr${arg#*[:=]} ;;
+    (ret[:=]*)
+      qret=1
+      _ret=${arg#*[:=]} ;;
+    (exit[:=]*)
+      qexit=1
+      _exit=${arg#*[:=]} ;;
+    (code[:=]*)
+      ((${#buff[@]})) && ble/array#push buff $'\n'
+      ble/array#push buff "${arg#*[:=]}" ;;
+    (--depth=*)
+      caller_depth=${arg#*=} ;;
+    (--display-code=*)
+      display_code=${arg#*=} ;;
+    (*)
+      ((${#buff[@]})) && ble/array#push buff ' '
+      ble/array#push buff "$arg" ;;
+    esac
+  done
+  [[ $qstdout ]] && item_expect[0]=$_stdout
+  [[ $qstderr ]] && item_expect[1]=$_stderr
+  [[ $qexit   ]] && item_expect[2]=$_exit
+  [[ $qret    ]] && item_expect[3]=$_ret
+  ((${#item_expect[@]})) || item_expect[2]=0
+  IFS= builtin eval 'code="${buff[*]}"'
+}
+function ble/test {
+  local -a item_name=(stdout stderr exit ret)
+  local code title
+  local caller_depth=0 display_code=
+  local -a item_expect=()
+  ble/test/.read-arguments "$@"
+  local caller_lineno=${BASH_LINENO[caller_depth+0]}
+  local caller_source=${BASH_SOURCE[caller_depth+1]}
+  title="$caller_source:$caller_lineno${title+ ($title)}"
+  ble/test/section#incr "$title"
+  ble/util/assign stderr '
+    ble/util/assign stdout "$code" 2>&1'; exit=$?
+  local -a item_result=()
+  item_result[0]=$stdout
+  item_result[1]=$stderr
+  item_result[2]=$exit
+  item_result[3]=$ret
+  local i flag_error=
+  for i in "${!item_expect[@]}"; do
+    [[ ${item_result[i]} == "${item_expect[i]}" ]] && continue
+    if [[ ! $flag_error ]]; then
+      flag_error=1
+      ble/test/log $'\e[1m'"$title"$'\e[m: \e[91m'"${display_code:-$code}"$'\e[m'
+    fi
+    ble/test/diff "${item_name[i]}" "${item_expect[i]}" "${item_result[i]}"
+  done
+  if [[ $flag_error ]]; then
+    if [[ ! ${item_expect[1]+set} && $stderr ]]; then
+      ble/test/log "<STDERR>"
+      ble/test/log "$stderr"
+      ble/test/log "</STDERR>"
+    fi
+    ble/test/log
+  fi
+  [[ ! $flag_error ]]
+  ble/test/section#report "$title"
+  return 0
+}