class TestIbmDb2 < Test::Unit::TestCase

  def test_020
    assert_expect do
      conn = DB2::connect database, user, password
      
      if conn
        
        stmt = DB2::exec conn, "SELECT count(*) FROM animals"
        res = DB2::fetch_array stmt
        rows = res[0]
        puts rows
        
        DB2::autocommit conn, DB2::AUTOCOMMIT_OFF
        ac = DB2::autocommit conn
        if ac != 0
          puts "Cannot set DB2::AUTOCOMMIT_OFF\nCannot run test"
          next
        end
        
        DB2::exec conn, "DELETE FROM animals"
        
        stmt = DB2::exec conn, "SELECT count(*) FROM animals"
        res = DB2::fetch_array stmt
        rows = res[0]
        puts rows
        
        DB2::rollback conn
        
        stmt = DB2::exec conn, "SELECT count(*) FROM animals"
        res = DB2::fetch_array stmt
        rows = res[0]
        puts rows
        DB2::close conn
      else
        puts "Connection failed."
      end
    end
  end

end

__END__
7
0
7