110 lines
No EOL
4.4 KiB
Bash
110 lines
No EOL
4.4 KiB
Bash
#!/usr/bin/env bash
|
|
# test/unit.sh — unit test sections
|
|
# Tests pure functions directly — no binary, no state changes.
|
|
# Sourced by test.command.sh — do not execute directly.
|
|
|
|
# ============================================
|
|
# Helpers
|
|
# ============================================
|
|
|
|
function cmd::test::assert() {
|
|
local desc="${1:-}" result="${2:-}" expected="${3:-}"
|
|
if [[ "$result" == "$expected" ]]; then
|
|
test::pass "$desc"
|
|
else
|
|
test::fail "${desc} (expected '${expected}', got '${result}')"
|
|
fi
|
|
}
|
|
|
|
function cmd::test::assert_true() {
|
|
local desc="${1:-}"
|
|
shift
|
|
if "$@" 2>/dev/null; then
|
|
test::pass "$desc"
|
|
else
|
|
test::fail "$desc (expected true, got false)"
|
|
fi
|
|
}
|
|
|
|
function cmd::test::assert_false() {
|
|
local desc="${1:-}"
|
|
shift
|
|
if ! "$@" 2>/dev/null; then
|
|
test::pass "$desc"
|
|
else
|
|
test::fail "$desc (expected false, got true)"
|
|
fi
|
|
}
|
|
|
|
# ============================================
|
|
# Sections
|
|
# ============================================
|
|
|
|
function cmd::test::run_all_unit_sections() {
|
|
load_module subnet
|
|
load_module ip
|
|
load_module identity
|
|
|
|
cmd::test::unit_subnet
|
|
cmd::test::unit_ip
|
|
cmd::test::unit_identity
|
|
}
|
|
|
|
function cmd::test::unit_subnet() {
|
|
test::section "Unit: subnet CIDR utilities"
|
|
load_module subnet
|
|
|
|
# subnet::prefix
|
|
cmd::test::assert "subnet::prefix /24" "$(subnet::prefix '10.1.3.0/24')" "10.1.3"
|
|
cmd::test::assert "subnet::prefix /16" "$(subnet::prefix '10.1.0.0/16')" "10.1.0"
|
|
cmd::test::assert "subnet::mask /24" "$(subnet::mask '10.1.3.0/24')" "24"
|
|
cmd::test::assert "subnet::mask /16" "$(subnet::mask '10.1.0.0/16')" "16"
|
|
cmd::test::assert "subnet::base_ip" "$(subnet::base_ip '10.1.3.0/24')" "10.1.3.0"
|
|
|
|
# subnet::contains
|
|
cmd::test::assert_true "subnet::contains inside" subnet::contains "10.1.3.0/24" "10.1.3.5"
|
|
cmd::test::assert_true "subnet::contains boundary" subnet::contains "10.1.3.0/24" "10.1.3.254"
|
|
cmd::test::assert_false "subnet::contains outside" subnet::contains "10.1.3.0/24" "10.1.4.1"
|
|
cmd::test::assert_false "subnet::contains wrong net" subnet::contains "10.1.3.0/24" "192.168.1.1"
|
|
|
|
# subnet::is_valid_cidr
|
|
cmd::test::assert_true "is_valid_cidr valid" subnet::is_valid_cidr "10.1.3.0/24"
|
|
cmd::test::assert_true "is_valid_cidr /16" subnet::is_valid_cidr "10.1.0.0/16"
|
|
cmd::test::assert_false "is_valid_cidr no mask" subnet::is_valid_cidr "10.1.3.0"
|
|
cmd::test::assert_false "is_valid_cidr bad octet" subnet::is_valid_cidr "999.1.3.0/24"
|
|
cmd::test::assert_false "is_valid_cidr empty" subnet::is_valid_cidr ""
|
|
|
|
# subnet::ip_valid_for
|
|
cmd::test::assert_true "ip_valid_for valid host" subnet::ip_valid_for "10.1.3.0/24" "10.1.3.5"
|
|
cmd::test::assert_false "ip_valid_for network addr" subnet::ip_valid_for "10.1.3.0/24" "10.1.3.0"
|
|
cmd::test::assert_false "ip_valid_for broadcast" subnet::ip_valid_for "10.1.3.0/24" "10.1.3.255"
|
|
cmd::test::assert_false "ip_valid_for wrong subnet" subnet::ip_valid_for "10.1.3.0/24" "10.1.4.1"
|
|
cmd::test::assert_false "ip_valid_for invalid ip" subnet::ip_valid_for "10.1.3.0/24" "not-an-ip"
|
|
}
|
|
|
|
function cmd::test::unit_ip() {
|
|
test::section "Unit: ip validation"
|
|
load_module ip
|
|
|
|
cmd::test::assert_true "ip::is_valid plain" ip::is_valid "10.1.3.5"
|
|
cmd::test::assert_true "ip::is_valid cidr" ip::is_valid "10.1.3.0/24"
|
|
cmd::test::assert_false "ip::is_valid empty" ip::is_valid ""
|
|
cmd::test::assert_false "ip::is_valid hostname" ip::is_valid "phone-nuno"
|
|
cmd::test::assert_false "ip::is_valid bad oct" ip::is_valid "999.1.3.5"
|
|
|
|
cmd::test::assert_true "ip::is_cidr with mask" ip::is_cidr "10.1.3.0/24"
|
|
cmd::test::assert_false "ip::is_cidr without mask" ip::is_cidr "10.1.3.5"
|
|
}
|
|
|
|
function cmd::test::unit_identity() {
|
|
test::section "Unit: identity inference"
|
|
load_module identity
|
|
|
|
# _parse_peer_name via identity::infer
|
|
cmd::test::assert "infer phone-nuno" "$(identity::infer 'phone-nuno')" "nuno|phone|1"
|
|
cmd::test::assert "infer phone-nuno-2" "$(identity::infer 'phone-nuno-2')" "nuno|phone|2"
|
|
cmd::test::assert "infer desktop-zephyr" "$(identity::infer 'desktop-zephyr')" "zephyr|desktop|1"
|
|
cmd::test::assert "infer laptop-nuno" "$(identity::infer 'laptop-nuno')" "nuno|laptop|1"
|
|
cmd::test::assert "infer no convention" "$(identity::infer 'roboclean')" ""
|
|
cmd::test::assert "infer guest-zephyr" "$(identity::infer 'guest-zephyr')" ""
|
|
} |