require 'ibm_db2'
require 'stringio'
require 'test/unit'

class TestIbmDb2 < Test::Unit::TestCase

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

end

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