#!/bin/sh

#

# Copyright (c) 2007, Oracle and/or its affiliates. All rights reserved.

# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

# 

# This code is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License version 2 only, as

# published by the Free Software Foundation.

# 

# This code 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

# version 2 for more details (a copy is included in the LICENSE file that

# accompanied this code).

# 

# You should have received a copy of the GNU General Public License version

# 2 along with this work; if not, write to the Free Software Foundation,

# Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

# 

# Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

# or visit www.oracle.com if you need additional information or have any

# questions.

#

#  

#  @test

#  @bug 4981536

#  @summary TTY: .jdbrc is read twice if jdb is run in the user's home dir

#  @author jjh

#  @run shell JdbReadTwiceTest.sh

#Set appropriate jdk 

if [ ! -z "$TESTJAVA" ] ; then

     jdk="$TESTJAVA"

else

     echo "--Error: TESTJAVA must be defined as the pathname of a jdk to test."

     exit 1

fi

if [ -z "$TESTCLASSES" ] ; then

     echo "--Error: TESTCLASSES must be defined."

     exit 1

fi

case `uname -s` in

    Linux)

      # Need this to convert to the /.automount/... form which

      # is what jdb will report when it reads an init file.

      echo TESTCLASSES=$TESTCLASSES

      TESTCLASSES=`(cd $TESTCLASSES; /bin/pwd)`

      echo TESTCLASSES=$TESTCLASSES

      ;;

esac

# All output will go under this dir.  We define HOME to

# be under here too, and pass it into jdb, to avoid problems

# with java choosing a value of HOME.

baseDir="$TESTCLASSES/jdbRead$$"

HOME="$baseDir/home"

mkdir -p "$HOME"

tmpResult="$baseDir/result"

fred="$baseDir/fred"

here="$baseDir"

jdbFiles="$HOME/jdb.ini $HOME/.jdbrc $here/jdb.ini $here/.jdbrc $tmpResult $fred"

cd $here

failed=

mkFiles()

{

    touch "$@"

}

doit()

{

    echo quit | $TESTJAVA/bin/jdb -J-Duser.home=$HOME > $tmpResult 2>&1

}

failIfNot()

{

    # $1 is the expected number of occurances of $2 in the jdb output.

    count=$1

    shift

    if [ -r c:/ ] ; then

       sed -e 's@\\@/@g' $tmpResult > $tmpResult.1

       mv $tmpResult.1 $tmpResult

    fi

    xx=`fgrep -i "$*" $tmpResult | wc -l`

    if [ $xx != $count ] ; then

        echo "Failed: Expected $count, got $xx: $*"

        echo "-----"

        cat $tmpResult

        echo "-----"

        failed=1

    else

        echo "Passed: Expected $count, got $xx: $*"

    fi        

}

clean()

{

    rm -f $jdbFiles

}

# Note:  If jdb reads a file, it outputs a message containing

#         from: filename

# If jdb can't read a file, it outputs a message containing

#         open: filename

echo

echo "+++++++++++++++++++++++++++++++++++"

echo "Verify each individual file is read"

mkFiles $HOME/jdb.ini

    doit

    failIfNot 1 "from $HOME/jdb.ini"

    clean

mkFiles $HOME/.jdbrc

    doit

    failIfNot 1 "from $HOME/.jdbrc"

    clean

mkFiles $here/jdb.ini

    doit

    failIfNot 1 "from $here/jdb.ini"

    clean

mkFiles $here/.jdbrc

    doit

    failIfNot 1 "from $here/.jdbrc"

    clean

cd $HOME

echo

echo "+++++++++++++++++++++++++++++++++++"

echo "Verify files are not read twice if cwd is ~"

mkFiles $HOME/jdb.ini

    doit

    failIfNot 1 "from $HOME/jdb.ini"

    clean

mkFiles $HOME/.jdbrc

    doit

    failIfNot 1 "from $HOME/.jdbrc"

    clean

cd $here

echo

echo "+++++++++++++++++++++++++++++++++++"

echo "If jdb.ini and both .jdbrc exist, don't read .jdbrc"

mkFiles $HOME/jdb.ini $HOME/.jdbrc

    doit

    failIfNot 1  "from $HOME/jdb.ini" 

    failIfNot 0  "from $HOME/.jdbrc"

    clean

echo

echo "+++++++++++++++++++++++++++++++++++"

echo "If files exist in both ~ and ., read both"

mkFiles $HOME/jdb.ini $here/.jdbrc

    doit

    failIfNot 1  "from $HOME/jdb.ini" 

    failIfNot 1  "from $here/.jdbrc"

    clean

mkFiles $HOME/.jdbrc $here/jdb.ini

    doit

    failIfNot 1  "from $HOME/.jdbrc"

    failIfNot 1  "from $here/jdb.ini"

    clean

if [ ! -r c:/ ] ; then

    # No symlinks on windows.

    echo

    echo "+++++++++++++++++++++++++++++++++++"

    echo "Don't read a . file that is a symlink to a ~ file"

    mkFiles $HOME/jdb.ini

    ln -s $HOME/jdb.ini $here/.jdbrc

    doit

    failIfNot 1  "from $HOME/jdb.ini"

    failIfNot 0  "from $here/.jdbrc"

    clean

fi

if [ ! -r c:/ ] ; then

    # No symlinks on windows.

    echo

    echo "+++++++++++++++++++++++++++++++++++"

    echo "Don't read a . file that is a target symlink of a ~ file"

    mkFiles $here/jdb.ini

    ln -s $here/jdbini $HOME/.jdbrc

    doit

    failIfNot 1  "from $here/jdb.ini"

    failIfNot 0  "from $HOME/.jdbrc"

    clean

fi

if [ ! -r c:/ ] ; then

    # Can't make a file unreadable under MKS.

    echo

    echo "+++++++++++++++++++++++++++++++++++"

    echo "Read an unreadable file - verify the read fails."

    # If the file exists, we try to read it.  The

    # read will fail.

    mkFiles $HOME/jdb.ini

        chmod a-r $HOME/jdb.ini

        doit

        failIfNot 1 "open: $HOME/jdb.ini"

        clean

fi

echo

echo "+++++++++++++++++++++++++++++++++++"

echo "Read a directory - verify the read fails"

# If the file (IE. directory) exists, we try to read it.  The

# read will fail.

mkdir $HOME/jdb.ini

    doit

    failIfNot 1 "open: $HOME/jdb.ini"

    rmdir $HOME/jdb.ini

echo "read $fred" > $here/jdb.ini

    echo

    echo "+++++++++++++++++++++++++++++++++++"

    echo "Verify the jdb read command still works"

    touch $fred

    doit

    failIfNot 1 "from $fred"

    if [ ! -r c:/ ] ; then

        # Can't make a file unreadable under MKS

        chmod a-r $fred

        doit

        failIfNot 1 "open: $fred"

    fi

    rm -f $fred

    mkdir $fred

    doit

    failIfNot 1 "open: $fred"

    rmdir $fred

clean

if [ "$failed" = 1 ] ; then

    echo "One or more tests failed"

    exit 1

fi

echo "All tests passed"