#!/bin/bash
# vim: dict+=/usr/share/beakerlib/dictionary.vim cpt=.,w,b,u,t,i,k
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
#   runtest.sh of /CoreOS/libsemanage/Sanity/semanage-handle-functions
#   Description: Test functions from handle.h
#   Author: Jan Zarsky <jzarsky@redhat.com>
#
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
#   Copyright (c) 2017 Red Hat, Inc.
#
#   This program is free software: you can redistribute it and/or
#   modify it under the terms of the GNU General Public License as
#   published by the Free Software Foundation, either version 2 of
#   the License, or (at your option) any later version.
#
#   This program is distributed in the hope that it will be
#   useful, but WITHOUT ANY WARRANTY; without even the implied
#   warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
#   PURPOSE.  See the GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program. If not, see http://www.gnu.org/licenses/.
#
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# Include Beaker environment
. /usr/bin/rhts-environment.sh || exit 1
. /usr/share/beakerlib/beakerlib.sh || exit 1

PACKAGE="libsemanage"

rlJournalStart
    rlPhaseStartSetup
        rlAssertRpm ${PACKAGE}
        rlAssertRpm ${PACKAGE}-devel
        rlAssertRpm "glibc"
        rlAssertRpm "gcc"

        if rlIsRHEL ">=7" || rlIsFedora; then
            rlRun -l "gcc test_root.c           -o test_root            -lsemanage -Wall -Wextra -std=c99"
        fi

        rlRun -l "gcc test_handle_create.c  -o test_handle_create   -lsemanage -Wall -Wextra -Wno-unused-parameter -std=c99"
        rlRun -l "gcc test_access_check.c   -o test_access_check    -lsemanage -Wall -Wextra -std=c99"
        rlRun -l "gcc test_is_managed.c     -o test_is_managed      -lsemanage -Wall -Wextra -std=c99"
        rlRun -l "gcc test_connect.c        -o test_connect         -lsemanage -Wall -Wextra -std=c99"
        rlRun -l "gcc test_is_connected.c   -o test_is_connected    -lsemanage -Wall -Wextra -std=c99"
        rlRun -l "gcc test_mls_enabled.c    -o test_mls_enabled     -lsemanage -Wall -Wextra -std=c99"
        rlRun -l "gcc test_transaction.c    -o test_transaction     -lsemanage -Wall -Wextra -std=c99"

        ERR_FAIL=1
        ERR_ABORT=134
    rlPhaseEnd

    if rlIsRHEL ">=7" || rlIsFedora; then
    rlPhaseStartTest "semanage_root, semanage_test_root"
        rlRun "./test_root init"
        rlRun "./test_root handle"
        rlRun "./test_root conn"
        rlRun "./test_root init /somepath"
        rlRun "./test_root handle /somepath"
        rlRun "./test_root conn /somepath"
    rlPhaseEnd
    fi

    rlPhaseStartTest "semanage_handle_create, semanage_handle_destroy"
        rlRun "./test_handle_create init"
    rlPhaseEnd

    rlPhaseStartTest "semanage_access_check"
        rlRun "./test_access_check init" $ERR_ABORT
        rlRun "./test_access_check handle 2"
        rlRun "./test_access_check conn 2"
    rlPhaseEnd

    rlPhaseStartTest "semanage_is_managed"
        rlRun "./test_is_managed init" $ERR_ABORT
        rlRun "./test_is_managed handle 1"
        rlRun "./test_is_managed conn" $ERR_FAIL
    rlPhaseEnd

    rlPhaseStartTest "semanage_connect, semanage_disconnect"
        rlRun "./test_connect init" $ERR_ABORT
        rlRun "./test_connect init reversed" $ERR_ABORT
        rlRun "./test_connect handle"
        rlRun "./test_connect handle twice"
        rlRun "./test_connect handle reversed" $ERR_ABORT
        # why does it work??
        rlRun "./test_connect conn"
    rlPhaseEnd

    rlPhaseStartTest "semanage_is_connected"
        rlRun "./test_is_connected init" $ERR_ABORT
        rlRun "./test_is_connected handle 0"
        rlRun "./test_is_connected conn 1"
    rlPhaseEnd

    rlPhaseStartTest "semanage_mls_enabled"
        rlRun "./test_mls_enabled init" $ERR_ABORT
        rlRun "./test_mls_enabled handle" $ERR_ABORT
        rlRun "./test_mls_enabled conn 1"
    rlPhaseEnd

    rlPhaseStartTest "semanage_begin_transaction, semanage_commit"
        rlRun "./test_transaction init" $ERR_ABORT
        rlRun "./test_transaction init reversed" $ERR_ABORT
        rlRun "./test_transaction handle" $ERR_ABORT
        rlRun "./test_transaction handle reversed" $ERR_ABORT
        rlRun "./test_transaction conn"
        rlRun "./test_transaction conn twice"
        rlRun "./test_transaction conn reversed" $ERR_FAIL
    rlPhaseEnd

    rlPhaseStartCleanup
        rlRun "rm -f output test_root test_handle_create test_access_check \
               test_is_managed test_connect test_is_connected \
               test_mls_enabled test_transaction"
    rlPhaseEnd
rlJournalPrintText
rlJournalEnd