#
# This file contains a collection of tests for one or more of the Tcl
# built-in commands.  Sourcing this file into Tcl runs the tests and
# generates output for errors.  No output means no errors were found.
#
# This file tests the Oratcl orabindexec command.
# NOTE: This test relies on the demo "emp" table (shipped with Oracle)
# to be created in the database.
#
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
# RCS: @(#) $Id: orabindex.test,v 1.4 1999/10/12 02:01:22 mtariq Exp $

source [file  join [pwd] [file dirname [info script]] defs.tcl]

test orabindex-1.0 {tests oratcl orabindex cmd} {
     set handle [oralogon $oracleuser/$oraclepw@$connstring]
     set cursor [oraopen $handle]
     orasql $cursor "select empno from emp where ename = :name" -parseonly
     orabindexec $cursor :name SMITH
     set result [orafetch $cursor]
     oralogoff $handle
     set result $result
} {7369}

::tcltest::cleanupTests

return
