#!/bin/bash
# vim: dict=/usr/share/beakerlib/dictionary.vim cpt=.,w,b,u,t,i,k
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
#   runtest.sh of /tools/systemtap/Regression/RHEL6Feature-cpp-methods
#   Description: Tests C++ methods
#   Author: Petr Muller <pmuller@redhat.com>
#
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#
#   Copyright (c) 2010 Red Hat, Inc. All rights reserved.
#
#   This copyrighted material is made available to anyone wishing
#   to use, modify, copy, or redistribute it subject to the terms
#   and conditions of the GNU General Public License version 2.
#
#   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, write to the Free
#   Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
#   Boston, MA 02110-1301, USA.
#
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

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

PACKAGE="systemtap"

rlJournalStart

rlPhaseStartSetup
  rlRun "stap-prep" 0-255
  rlRun "g++ -O0 classes.cpp -o classes -g"

  rlIsRHEL 6 && COMPAT='--compatible=1.8'
  # rlIsRHEL 7 && cp -f golden.el7.out golden.out
  # rlIsRHEL 8 && cp -f golden.el8.out golden.out
rlPhaseEnd

rlPhaseStartTest
  rlRun "stap $COMPAT -c ./classes tracker.stp -o output.out"
  # Stop comparing literally against a golden file,
  # do a sanity check instead.  The literal golden file check
  # sort of regressed between rhel-8.2 and rhel-8.3
  # rlRun "diff golden.out output.out"
  rlRun "grep ^__ output.out | sort > summary.out"

  # RHEL6: covert hex to dec:
  rlRun "sed -i 's/0x0/0/' summary.out"
  rlRun "sed -i 's/0x46/70/' summary.out"

  # Sanity check
  rlRun "diff golden_summary.out summary.out" || (
      rlRun "cat golden_summary.out"
      rlRun "cat summary.out"
  )
rlPhaseEnd

rlPhaseStartCleanup
  rlFileSubmit golden.out
  rlFileSubmit output.out

  rlRun "rm -f output.out classes"
rlPhaseEnd

rlJournalPrintText
rlJournalEnd