class TestIbmDb2 < Test::Unit::TestCase

  def test_03a
    assert_expect {
      conn = DB2::connect database, user, password
      if conn
        stmt = DB2::exec conn, "SELECT id, breed, name, weight FROM animals WHERE id = 0"
        while (DB2::fetch_row(stmt) == TRUE)
          breed = DB2::result stmt, 1
          var_dump( breed )
          name = DB2::result stmt, "NAME"
          var_dump( name )
          # following field does not exist in result set
          name = DB2::result( stmt, "PASSPORT" ) rescue nil
          var_dump( name )
        end
        DB2::close conn
      else
        puts "Connection failed."
      end
    }
  end

end

__END__
string(3) "cat"
string(16) "Pook            "
NULL