class TestIbmDb2 < Test::Unit::TestCase

  def test_062
    assert_expect {
      conn = DB2::connect db,username,password
      create = 'CREATE TABLE t.t1( c1 integer, c2 varchar(40))'
      result = DB2::exec(conn, create) rescue nil
      create = 'CREATE TABLE t.t2( c1 integer, c2 varchar(40))'
      result = DB2::exec(conn, create) rescue nil
      create = 'CREATE TABLE t.t3( c1 integer, c2 varchar(40))'
      result = DB2::exec(conn, create) rescue nil
      create = 'CREATE TABLE t.t4( c1 integer, c2 varchar(40))'
      result = DB2::exec(conn, create) rescue nil
      if conn
        schema = 't'.upcase
        result = DB2::tables conn,NULL,schema
        while (row = DB2::fetch_both(result))
         str = row[1] + "/" + row[2] + "/" + row[3]
         puts "#{str}"
        end
      print "done!"
      else
        print "no connection: #{DB2::conn_errormsg()}"
      end
    }
  end

end

__END__
T/T1/TABLE
T/T2/TABLE
T/T3/TABLE
T/T4/TABLE
done!