#       $NetBSD: t_ipsec_l2tp.sh,v 1.10 2023/08/22 05:40:50 rin Exp $
#
# Copyright (c) 2017 Internet Initiative Japan Inc.
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
# ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
# PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
# BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#

SOCK_LOCAL=unix://ipsec_l2tp_local
SOCK_TUN_LOCAL=unix://ipsec_l2tp_tunel_local
SOCK_TUN_REMOTE=unix://ipsec_l2tp_tunnel_remote
SOCK_REMOTE=unix://ipsec_l2tp_remote
BUS_LOCAL=./bus_ipsec_local
BUS_TUNNEL=./bus_ipsec_tunnel
BUS_REMOTE=./bus_ipsec_remote

DEBUG=${DEBUG:-true}

make_l2tp_pktstr()
{
       local src=$1
       local dst=$2
       local proto=$3
       local ipproto=$4
       local mode=$5
       local proto_cap= proto_str=

       if [ $proto = esp ]; then
               proto_cap=ESP
       else
               proto_cap=AH
               if [ $ipproto = ipv4 ]; then
                       proto_str="ip-proto-115 102"
               else
                       proto_str="ip-proto-115"
               fi
       fi

       echo "$src > $dst: $proto_cap.+$proto_str"
}

wait_for_all_dad_completions()
{

       for sock in $SOCK_LOCAL $SOCK_TUN_LOCAL $SOCK_TUN_REMOTE $SOCK_REMOTE; do
               export RUMP_SERVER=$sock
               atf_check -s exit:0 rump.ifconfig -w 10
       done
}

test_ipsec4_l2tp()
{
       local mode=$1
       local proto=$2
       local algo=$3
       local ip_local=10.0.0.1
       local ip_gwlo_tun=20.0.0.1
       local ip_gwre_tun=20.0.0.2
       local ip_remote=10.0.0.2
       local subnet_local=20.0.0.0
       local subnet_remote=20.0.0.0
       local tmpfile=./tmp
       local outfile=./out
       local str=
       local algo_args="$(generate_algo_args $proto $algo)"

       # See https://www.netbsd.org/docs/network/ipsec/#sample_vpn
       rump_server_crypto_start $SOCK_LOCAL
       rump_server_crypto_start $SOCK_TUN_LOCAL netipsec l2tp bridge
       rump_server_crypto_start $SOCK_TUN_REMOTE netipsec l2tp bridge
       rump_server_crypto_start $SOCK_REMOTE
       rump_server_add_iface $SOCK_LOCAL shmif0 $BUS_LOCAL
       rump_server_add_iface $SOCK_TUN_LOCAL shmif0 $BUS_LOCAL
       rump_server_add_iface $SOCK_TUN_LOCAL shmif1 $BUS_TUNNEL
       rump_server_add_iface $SOCK_TUN_REMOTE shmif0 $BUS_REMOTE
       rump_server_add_iface $SOCK_TUN_REMOTE shmif1 $BUS_TUNNEL
       rump_server_add_iface $SOCK_REMOTE shmif0 $BUS_REMOTE

       export RUMP_SERVER=$SOCK_LOCAL
       atf_check -s exit:0 rump.ifconfig shmif0 $ip_local/24

       export RUMP_SERVER=$SOCK_TUN_LOCAL
       atf_check -s exit:0 rump.ifconfig shmif0 up
       atf_check -s exit:0 rump.ifconfig shmif1 $ip_gwlo_tun/24
       rump_server_add_iface $SOCK_TUN_LOCAL l2tp0
       atf_check -s exit:0 rump.ifconfig l2tp0 \
           tunnel $ip_gwlo_tun $ip_gwre_tun
       atf_check -s exit:0 rump.ifconfig l2tp0 session 1234 4321
       atf_check -s exit:0 rump.ifconfig l2tp0 up
       rump_server_add_iface $SOCK_TUN_LOCAL bridge0
       atf_check -s exit:0 rump.ifconfig bridge0 up
       atf_check -s exit:0 $HIJACKING brconfig bridge0 add l2tp0
       atf_check -s exit:0 $HIJACKING brconfig bridge0 add shmif0

       export RUMP_SERVER=$SOCK_TUN_REMOTE
       atf_check -s exit:0 rump.ifconfig shmif0 up
       atf_check -s exit:0 rump.ifconfig shmif1 $ip_gwre_tun/24
       rump_server_add_iface $SOCK_TUN_REMOTE l2tp0
       atf_check -s exit:0 rump.ifconfig l2tp0 \
           tunnel $ip_gwre_tun $ip_gwlo_tun
       atf_check -s exit:0 rump.ifconfig l2tp0 session 4321 1234
       atf_check -s exit:0 rump.ifconfig l2tp0 up
       rump_server_add_iface $SOCK_TUN_REMOTE bridge0
       atf_check -s exit:0 rump.ifconfig bridge0 up
       atf_check -s exit:0 $HIJACKING brconfig bridge0 add l2tp0
       atf_check -s exit:0 $HIJACKING brconfig bridge0 add shmif0

       export RUMP_SERVER=$SOCK_REMOTE
       atf_check -s exit:0 rump.ifconfig shmif0 $ip_remote/24

       wait_for_all_dad_completions

       extract_new_packets $BUS_TUNNEL > $outfile

       export RUMP_SERVER=$SOCK_LOCAL
       atf_check -s exit:0 -o ignore rump.ping -c 1 -n -w 3 $ip_remote

       extract_new_packets $BUS_TUNNEL > $outfile
       atf_check -s exit:0 \
           -o match:"$ip_gwlo_tun > $ip_gwre_tun: +ip-proto-115" \
           cat $outfile
       atf_check -s exit:0 \
           -o match:"$ip_gwre_tun > $ip_gwlo_tun: +ip-proto-115" \
           cat $outfile

       if [ $mode = tunnel ]; then
               export RUMP_SERVER=$SOCK_TUN_LOCAL
               # from https://www.netbsd.org/docs/network/ipsec/
               cat > $tmpfile <<-EOF
               add $ip_gwlo_tun $ip_gwre_tun $proto 10000 $algo_args;
               add $ip_gwre_tun $ip_gwlo_tun $proto 10001 $algo_args;
               spdadd $subnet_local/24 $subnet_remote/24 any -P out ipsec
                   $proto/tunnel/$ip_gwlo_tun-$ip_gwre_tun/require;
               spdadd $subnet_remote/24 $subnet_local/24 any -P in ipsec
                   $proto/tunnel/$ip_gwre_tun-$ip_gwlo_tun/require;
               EOF
               $DEBUG && cat $tmpfile
               atf_check -s exit:0 -o empty $HIJACKING setkey -c < $tmpfile

               export RUMP_SERVER=$SOCK_TUN_REMOTE
               cat > $tmpfile <<-EOF
               add $ip_gwlo_tun $ip_gwre_tun $proto 10000 $algo_args;
               add $ip_gwre_tun $ip_gwlo_tun $proto 10001 $algo_args;
               spdadd $subnet_remote/24 $subnet_local/24 any -P out ipsec
                   $proto/tunnel/$ip_gwre_tun-$ip_gwlo_tun/require;
               spdadd $subnet_local/24 $subnet_remote/24 any -P in ipsec
                   $proto/tunnel/$ip_gwlo_tun-$ip_gwre_tun/require;
               EOF
               $DEBUG && cat $tmpfile
               atf_check -s exit:0 -o empty $HIJACKING setkey -c < $tmpfile
       else # transport mode
               export RUMP_SERVER=$SOCK_TUN_LOCAL
               # from https://www.netbsd.org/docs/network/ipsec/
               cat > $tmpfile <<-EOF
               add $ip_gwlo_tun $ip_gwre_tun $proto 10000 $algo_args;
               add $ip_gwre_tun $ip_gwlo_tun $proto 10001 $algo_args;
               spdadd $ip_gwlo_tun/32 $ip_gwre_tun/32 any -P out ipsec
                   $proto/transport//require;
               spdadd $ip_gwre_tun/32 $ip_gwlo_tun/32 any -P in ipsec
                   $proto/transport//require;
               EOF
               $DEBUG && cat $tmpfile
               atf_check -s exit:0 -o empty $HIJACKING setkey -c < $tmpfile

               export RUMP_SERVER=$SOCK_TUN_REMOTE
               cat > $tmpfile <<-EOF
               add $ip_gwlo_tun $ip_gwre_tun $proto 10000 $algo_args;
               add $ip_gwre_tun $ip_gwlo_tun $proto 10001 $algo_args;
               spdadd $ip_gwre_tun/32 $ip_gwlo_tun/32 any -P out ipsec
                   $proto/transport//require;
               spdadd $ip_gwlo_tun/32 $ip_gwre_tun/32 any -P in ipsec
                   $proto/transport//require;
               EOF
               $DEBUG && cat $tmpfile
               atf_check -s exit:0 -o empty $HIJACKING setkey -c < $tmpfile
       fi

       check_sa_entries $SOCK_TUN_LOCAL $ip_gwlo_tun $ip_gwre_tun
       check_sa_entries $SOCK_TUN_REMOTE $ip_gwlo_tun $ip_gwre_tun

       export RUMP_SERVER=$SOCK_LOCAL
       atf_check -s exit:0 -o ignore rump.ping -c 1 -n -w 3 $ip_remote

       extract_new_packets $BUS_TUNNEL > $outfile
       str=$(make_l2tp_pktstr $ip_gwlo_tun $ip_gwre_tun $proto ipv4 $mode)
       atf_check -s exit:0 -o match:"$str" cat $outfile
       str=$(make_l2tp_pktstr $ip_gwre_tun $ip_gwlo_tun $proto ipv4 $mode)
       atf_check -s exit:0 -o match:"$str" cat $outfile

       test_flush_entries $SOCK_TUN_LOCAL
       test_flush_entries $SOCK_TUN_REMOTE
}

test_ipsec6_l2tp()
{
       local mode=$1
       local proto=$2
       local algo=$3
       local ip_local=fd00::1
       local ip_gwlo_tun=fc00::1
       local ip_gwre_tun=fc00::2
       local ip_remote=fd00::2
       local subnet_local=fc00::
       local subnet_remote=fc00::
       local tmpfile=./tmp
       local outfile=./out
       local str=
       local algo_args="$(generate_algo_args $proto $algo)"

       rump_server_crypto_start $SOCK_LOCAL netinet6
       rump_server_crypto_start $SOCK_TUN_LOCAL netipsec netinet6 l2tp bridge
       rump_server_crypto_start $SOCK_TUN_REMOTE netipsec netinet6 l2tp bridge
       rump_server_crypto_start $SOCK_REMOTE netinet6
       rump_server_add_iface $SOCK_LOCAL shmif0 $BUS_LOCAL
       rump_server_add_iface $SOCK_TUN_LOCAL shmif0 $BUS_LOCAL
       rump_server_add_iface $SOCK_TUN_LOCAL shmif1 $BUS_TUNNEL
       rump_server_add_iface $SOCK_TUN_REMOTE shmif0 $BUS_REMOTE
       rump_server_add_iface $SOCK_TUN_REMOTE shmif1 $BUS_TUNNEL
       rump_server_add_iface $SOCK_REMOTE shmif0 $BUS_REMOTE

       export RUMP_SERVER=$SOCK_LOCAL
       atf_check -s exit:0 rump.ifconfig shmif0 inet6 $ip_local/64

       export RUMP_SERVER=$SOCK_TUN_LOCAL
       atf_check -s exit:0 rump.ifconfig shmif0 up
       atf_check -s exit:0 rump.ifconfig shmif1 inet6 $ip_gwlo_tun/64
       rump_server_add_iface $SOCK_TUN_LOCAL l2tp0
       atf_check -s exit:0 rump.ifconfig l2tp0 \
           tunnel $ip_gwlo_tun $ip_gwre_tun
       atf_check -s exit:0 rump.ifconfig l2tp0 session 1234 4321
       atf_check -s exit:0 rump.ifconfig l2tp0 up
       rump_server_add_iface $SOCK_TUN_LOCAL bridge0
       atf_check -s exit:0 rump.ifconfig bridge0 up
       atf_check -s exit:0 $HIJACKING brconfig bridge0 add l2tp0
       atf_check -s exit:0 $HIJACKING brconfig bridge0 add shmif0

       export RUMP_SERVER=$SOCK_TUN_REMOTE
       atf_check -s exit:0 rump.ifconfig shmif0 up
       atf_check -s exit:0 rump.ifconfig shmif1 inet6 $ip_gwre_tun/64
       rump_server_add_iface $SOCK_TUN_REMOTE l2tp0
       atf_check -s exit:0 rump.ifconfig l2tp0 \
           tunnel $ip_gwre_tun $ip_gwlo_tun
       atf_check -s exit:0 rump.ifconfig l2tp0 session 4321 1234
       atf_check -s exit:0 rump.ifconfig l2tp0 up
       rump_server_add_iface $SOCK_TUN_REMOTE bridge0
       atf_check -s exit:0 rump.ifconfig bridge0 up
       atf_check -s exit:0 $HIJACKING brconfig bridge0 add l2tp0
       atf_check -s exit:0 $HIJACKING brconfig bridge0 add shmif0

       export RUMP_SERVER=$SOCK_REMOTE
       atf_check -s exit:0 rump.ifconfig shmif0 inet6 $ip_remote

       wait_for_all_dad_completions

       extract_new_packets $BUS_TUNNEL > $outfile

       export RUMP_SERVER=$SOCK_LOCAL
       atf_check -s exit:0 -o ignore rump.ping6 -c 1 -n -X 3 $ip_remote

       extract_new_packets $BUS_TUNNEL > $outfile
       atf_check -s exit:0 \
           -o match:"$ip_gwlo_tun > $ip_gwre_tun: +ip-proto-115" \
           cat $outfile
       atf_check -s exit:0 \
           -o match:"$ip_gwre_tun > $ip_gwlo_tun: +ip-proto-115" \
           cat $outfile

       if [ $mode = tunnel ]; then
               export RUMP_SERVER=$SOCK_TUN_LOCAL
               # from https://www.netbsd.org/docs/network/ipsec/
               cat > $tmpfile <<-EOF
               add $ip_gwlo_tun $ip_gwre_tun $proto 10000 $algo_args;
               add $ip_gwre_tun $ip_gwlo_tun $proto 10001 $algo_args;
               spdadd $subnet_local/64 $subnet_remote/64 any -P out ipsec
                   $proto/tunnel/$ip_gwlo_tun-$ip_gwre_tun/require;
               spdadd $subnet_remote/64 $subnet_local/64 any -P in ipsec
                   $proto/tunnel/$ip_gwre_tun-$ip_gwlo_tun/require;
               EOF
               $DEBUG && cat $tmpfile
               atf_check -s exit:0 -o empty $HIJACKING setkey -c < $tmpfile

               export RUMP_SERVER=$SOCK_TUN_REMOTE
               cat > $tmpfile <<-EOF
               add $ip_gwlo_tun $ip_gwre_tun $proto 10000 $algo_args;
               add $ip_gwre_tun $ip_gwlo_tun $proto 10001 $algo_args;
               spdadd $subnet_remote/64 $subnet_local/64 any -P out ipsec
                   $proto/tunnel/$ip_gwre_tun-$ip_gwlo_tun/require;
               spdadd $subnet_local/64 $subnet_remote/64 any -P in ipsec
                   $proto/tunnel/$ip_gwlo_tun-$ip_gwre_tun/require;
               EOF
               $DEBUG && cat $tmpfile
               atf_check -s exit:0 -o empty $HIJACKING setkey -c < $tmpfile
       else # transport mode
               export RUMP_SERVER=$SOCK_TUN_LOCAL
               # from https://www.netbsd.org/docs/network/ipsec/
               cat > $tmpfile <<-EOF
               add $ip_gwlo_tun $ip_gwre_tun $proto 10000 $algo_args;
               add $ip_gwre_tun $ip_gwlo_tun $proto 10001 $algo_args;
               spdadd $ip_gwlo_tun/128 $ip_gwre_tun/128 any -P out ipsec
                   $proto/transport//require;
               spdadd $ip_gwre_tun/128 $ip_gwlo_tun/128 any -P in ipsec
                   $proto/transport//require;
               EOF
               $DEBUG && cat $tmpfile
               atf_check -s exit:0 -o empty $HIJACKING setkey -c < $tmpfile

               export RUMP_SERVER=$SOCK_TUN_REMOTE
               cat > $tmpfile <<-EOF
               add $ip_gwlo_tun $ip_gwre_tun $proto 10000 $algo_args;
               add $ip_gwre_tun $ip_gwlo_tun $proto 10001 $algo_args;
               spdadd $ip_gwre_tun/128 $ip_gwlo_tun/128 any -P out ipsec
                   $proto/transport//require;
               spdadd $ip_gwlo_tun/128 $ip_gwre_tun/128 any -P in ipsec
                   $proto/transport//require;
               EOF
               $DEBUG && cat $tmpfile
               atf_check -s exit:0 -o empty $HIJACKING setkey -c < $tmpfile
       fi

       check_sa_entries $SOCK_TUN_LOCAL $ip_gwlo_tun $ip_gwre_tun
       check_sa_entries $SOCK_TUN_REMOTE $ip_gwlo_tun $ip_gwre_tun

       export RUMP_SERVER=$SOCK_LOCAL
       atf_check -s exit:0 -o ignore rump.ping6 -c 1 -n -X 3 $ip_remote

       extract_new_packets $BUS_TUNNEL > $outfile
       str=$(make_l2tp_pktstr $ip_gwlo_tun $ip_gwre_tun $proto ipv6 $mode)
       atf_check -s exit:0 -o match:"$str" cat $outfile
       str=$(make_l2tp_pktstr $ip_gwre_tun $ip_gwlo_tun $proto ipv6 $mode)
       atf_check -s exit:0 -o match:"$str" cat $outfile

       test_flush_entries $SOCK_TUN_LOCAL
       test_flush_entries $SOCK_TUN_REMOTE
}

test_ipsec_l2tp_common()
{
       local ipproto=$1
       local mode=$2
       local proto=$3
       local algo=$4

       if [ $ipproto = ipv4 ]; then
               test_ipsec4_l2tp $mode $proto $algo
       else
               test_ipsec6_l2tp $mode $proto $algo
       fi
}

add_test_ipsec_l2tp()
{
       local ipproto=$1
       local mode=$2
       local proto=$3
       local algo=$4
       local _algo=$(echo $algo | sed 's/-//g')
       local name= desc=

       name="ipsec_l2tp_${ipproto}_${mode}_${proto}_${_algo}"
       desc="Tests of l2tp/IPsec ($ipproto) ${mode} mode with $proto ($algo)"

       atf_test_case ${name} cleanup
       eval "
           ${name}_head() {
               atf_set descr \"$desc\"
               atf_set require.progs rump_server setkey
           }
           ${name}_body() {
               test_ipsec_l2tp_common $ipproto $mode $proto $algo
               rump_server_destroy_ifaces
           }
           ${name}_cleanup() {
               \$DEBUG && dump
               cleanup
           }
       "
       atf_add_test_case ${name}
}

atf_init_test_cases()
{
       local algo=

       for algo in $ESP_ENCRYPTION_ALGORITHMS_MINIMUM; do
               add_test_ipsec_l2tp ipv4 tunnel esp $algo
               add_test_ipsec_l2tp ipv6 tunnel esp $algo
               add_test_ipsec_l2tp ipv4 transport esp $algo
               add_test_ipsec_l2tp ipv6 transport esp $algo
       done

       for algo in $AH_AUTHENTICATION_ALGORITHMS_MINIMUM; do
               add_test_ipsec_l2tp ipv4 tunnel ah $algo
               add_test_ipsec_l2tp ipv6 tunnel ah $algo
               add_test_ipsec_l2tp ipv4 transport ah $algo
               add_test_ipsec_l2tp ipv6 transport ah $algo
       done
}