1 files changed, 88 insertions, 0 deletions
diff --git a/test/52-lang-10-batslib_is_caller.bats b/test/52-lang-10-batslib_is_caller.bats
new file mode 100755
index 0000000..68fd59b
--- /dev/null
+++ b/test/52-lang-10-batslib_is_caller.bats
@@ -0,0 +1,88 @@
+#!/usr/bin/env bats
+
+load 'test_helper'
+
+
+# Test functions
+test_func_lvl_2() {
+  test_func_lvl_1 "$@"
+}
+
+test_func_lvl_1() {
+  test_func_lvl_0 "$@"
+}
+
+test_func_lvl_0() {
+  batslib_is_caller "$@"
+}
+
+
+#
+# Direct invocation
+#
+
+# Interface
+@test 'batslib_is_caller() <function>: returns 0 if the current function was called directly from <function>' {
+  run test_func_lvl_1 test_func_lvl_1
+  [ "$status" -eq 0 ]
+  [ "${#lines[@]}" -eq 0 ]
+}
+
+@test 'batslib_is_caller() <function>: returns 1 if the current function was not called directly from <function>' {
+  run test_func_lvl_0 test_func_lvl_1
+  [ "$status" -eq 1 ]
+  [ "${#lines[@]}" -eq 0 ]
+}
+
+# Correctness
+@test 'batslib_is_caller() <function>: the current function does not appear on the call stack' {
+  run test_func_lvl_0 test_func_lvl_0
+  [ "$status" -eq 1 ]
+  [ "${#lines[@]}" -eq 0 ]
+}
+
+
+#
+# Indirect invocation
+#
+
+# Options
+test_i_indirect() {
+  run test_func_lvl_2 "$@"
+  [ "$status" -eq 0 ]
+  [ "${#lines[@]}" -eq 0 ]
+}
+
+@test 'batslib_is_caller() -i <function>: enables indirect checking' {
+  test_i_indirect -i test_func_lvl_2
+}
+
+@test 'batslib_is_caller() --indirect <function>: enables indirect checking' {
+  test_i_indirect --indirect test_func_lvl_2
+}
+
+# Interface
+@test 'batslib_is_caller() --indirect <function>: returns 0 if the current function was called indirectly from <function>' {
+  run test_func_lvl_2 --indirect test_func_lvl_2
+  [ "$status" -eq 0 ]
+  [ "${#lines[@]}" -eq 0 ]
+}
+
+@test 'batslib_is_caller() --indirect <function>: returns 1 if the current function was not called indirectly from <function>' {
+  run test_func_lvl_1 --indirect test_func_lvl_2
+  [ "$status" -eq 1 ]
+  [ "${#lines[@]}" -eq 0 ]
+}
+
+# Correctness
+@test 'batslib_is_caller() --indirect <function>: direct invocation is a special case of indirect invocation with zero intermediate calls' {
+  run test_func_lvl_1 --indirect test_func_lvl_1
+  [ "$status" -eq 0 ]
+  [ "${#lines[@]}" -eq 0 ]
+}
+
+@test 'batslib_is_caller() --indirect <function>: the current function does not appear on the call stack' {
+  run test_func_lvl_0 --indirect test_func_lvl_0
+  [ "$status" -eq 1 ]
+  [ "${#lines[@]}" -eq 0 ]
+}