#!/usr/bin/env bash
set -e

proc encode_name {
  var name = $1
  var result = '"test_'"

  if [[ ! "$name" =~ [^[:alnum:]\ _-] ]] {
    set name = $(name//_/-5f)
    set name = $(name//-/-2d)
    set name = $(name// /_)
    set result = $name
  } else {
    var length = $(#name)
    var char = '', i = ''

    for ((i=0; i<length; i++)); do
      char="${name:$i:1}"
      if [ "$char" = " " ]; then
        result+="_"
      elif [[ "$char" =~ [[:alnum:]] ]]; then
        result+="$char"
      else
        result+="$(printf -- "-%02x" \'"$char")"
      fi
    done
  }

  echo $result
}

setglobal tests = ''()
setglobal index = '0'
setglobal pattern = ''^ *@test  *([^ ].*)  *\{ *(.*)$''

while env IFS= read -r line {
  let index+=1
  if [[ "$line" =~ $pattern ]] {
    setglobal quoted_name = $(BASH_REMATCH[1])
    setglobal body = $(BASH_REMATCH[2])
    setglobal name = $[eval echo $quoted_name]
    setglobal encoded_name = $[encode_name $name]
    tests["$(#tests[@])"]="$encoded_name"
    echo "$(encoded_name)() { bats_test_begin $(quoted_name) $(index); $(body)"
  } else {
    printf "%s\n" $line
  }
}

for test_name in [$(tests[@])] {
  echo "bats_test_function $(test_name)"
}