Fix #879 - Provide a correct MaxAliasLength for various dialects

Author: fredericDelaporte

src/NHibernate.Test/MappingTest/ColumnFixture.cs

@@ -54,16 +54,15 @@ public void GetAliasRespectsMaxAliasLength(string columnName)
 		{
 			var dialect = new GenericDialect();
 
-			// Verify test case assumption.
-			Assert.That(dialect.MaxAliasLength, Is.EqualTo(10));
+			// Test case is meant for a max length of 10, adjusts name if it is more.
+			columnName = AdjustColumnNameToMaxLength(columnName, dialect, 10);
 
 			var column = new Column(columnName);
 			string generatedAlias = column.GetAlias(dialect);
 
 			Assert.That(generatedAlias, Has.Length.LessThanOrEqualTo(dialect.MaxAliasLength));
 		}
 
-
 		[TestCase("xxxxyyyyz")]
 		[TestCase("xxxxyyyyzz")]
 		[TestCase("xxxxyyyyzzz")]
@@ -77,8 +76,8 @@ public void GetAliasWithTableSuffixRespectsMaxAliasLength(string columnName)
 		{
 			var dialect = new GenericDialect();
 
-			// Verify test case assumption.
-			Assert.That(dialect.MaxAliasLength, Is.EqualTo(10));
+			// Test case is meant for a max length of 10, adjusts name if it is more.
+			columnName = AdjustColumnNameToMaxLength(columnName, dialect, 10);
 
 			var table = new Table();
 			var column = new Column(columnName);
@@ -87,5 +86,14 @@ public void GetAliasWithTableSuffixRespectsMaxAliasLength(string columnName)
 
 			Assert.That(generatedAlias, Has.Length.LessThanOrEqualTo(dialect.MaxAliasLength));
 		}
+
+		private static string AdjustColumnNameToMaxLength(string columnName, GenericDialect dialect, int referenceMaxLength)
+		{
+			if (dialect.MaxAliasLength > referenceMaxLength)
+				columnName = new string('w', dialect.MaxAliasLength - referenceMaxLength) + columnName;
+			else if (dialect.MaxAliasLength < referenceMaxLength)
+				Assert.Fail("Dialect max alias length is too short for the test.");
+			return columnName;
+		}
 	}
 }

src/NHibernate.sln.DotSettings

@@ -19,6 +19,7 @@
 	<s:String x:Key="/Default/CodeStyle/Naming/CSharpNaming/PredefinedNamingRules/=PrivateConstants/@EntryIndexedValue">&lt;Policy Inspect="True" Prefix="" Suffix="" Style="aaBb" /&gt;</s:String>
 	<s:String x:Key="/Default/CodeStyle/Naming/CSharpNaming/PredefinedNamingRules/=PrivateInstanceFields/@EntryIndexedValue">&lt;Policy Inspect="True" Prefix="_" Suffix="" Style="aaBb" /&gt;</s:String>
 	<s:String x:Key="/Default/CodeStyle/Naming/CSharpNaming/PredefinedNamingRules/=PrivateStaticReadonly/@EntryIndexedValue">&lt;Policy Inspect="True" Prefix="" Suffix="" Style="AaBb" /&gt;</s:String>
+	<s:Boolean x:Key="/Default/Environment/SettingsMigration/IsMigratorApplied/=JetBrains_002EReSharper_002EPsi_002ECSharp_002ECodeStyle_002ECSharpAttributeForSingleLineMethodUpgrade/@EntryIndexedValue">True</s:Boolean>
 	<s:Boolean x:Key="/Default/Environment/SettingsMigration/IsMigratorApplied/=JetBrains_002EReSharper_002EPsi_002ECSharp_002ECodeStyle_002ESettingsUpgrade_002EAddAccessorOwnerDeclarationBracesMigration/@EntryIndexedValue">True</s:Boolean>
 	<s:Boolean x:Key="/Default/Environment/SettingsMigration/IsMigratorApplied/=JetBrains_002EReSharper_002EPsi_002ECSharp_002ECodeStyle_002ESettingsUpgrade_002EMigrateBlankLinesAroundFieldToBlankLinesAroundProperty/@EntryIndexedValue">True</s:Boolean>
 	<s:Boolean x:Key="/Default/Environment/SettingsMigration/IsMigratorApplied/=JetBrains_002EReSharper_002EPsi_002ECSharp_002ECodeStyle_002ESettingsUpgrade_002EMigrateThisQualifierSettings/@EntryIndexedValue">True</s:Boolean>

src/NHibernate/Dialect/DB2Dialect.cs

@@ -272,6 +272,10 @@ public override string ForUpdateString
 			get { return " for read only with rs"; }
 		}
 
+		// As of DB2 9.5 documentation, limit is 128 bytes which with Unicode names could mean only 32 characters.
+		/// <inheritdoc />
+		public override int MaxAliasLength => 32;
+
 		#region Overridden informational metadata
 
 		public override bool SupportsEmptyInList => false;

src/NHibernate/Dialect/Dialect.cs

@@ -2282,10 +2282,11 @@ public virtual string LowercaseFunction
 			get { return "lower"; }
 		}
 
-		public virtual int MaxAliasLength
-		{
-			get { return 10; }
-		}
+		// 18 is the smallest of all dialects we handle.
+		/// <summary>
+		/// The maximum length a SQL alias can have.
+		/// </summary>
+		public virtual int MaxAliasLength => 18;
 
 		/// <summary>
 		/// The syntax used to add a column to a table. Note this is deprecated

src/NHibernate/Dialect/FirebirdDialect.cs

@@ -520,6 +520,12 @@ private void RegisterTrigonometricFunctions()
 			RegisterFunction("tanh", new StandardSQLFunction("tanh", NHibernateUtil.Double));
 		}
 
+		// As of Firebird 2.5 documentation, limit is 30/31 (not all source are concordant), with some
+		// cases supporting more but considered as bugs and no more tolerated in v3.
+		// It seems it may be extended to 63 for Firebird v4.
+		/// <inheritdoc />
+		public override int MaxAliasLength => 30;
+
 		#region Informational metadata
 
 		/// <summary>

src/NHibernate/Dialect/InformixDialect.cs

@@ -457,6 +457,10 @@ public override string GetAddForeignKeyConstraintString(string constraintName, s
 
 			return res.ToString();
 		}
+
+		// Informix 7 is said on Internet to be limited to 18. (http://www.justskins.com/forums/length-of-columns-names-143294.html)
+		/// <inheritdoc />
+		public override int MaxAliasLength => 18;
 	}
 
 	public class IfxViolatedConstraintExtracter : TemplatedViolatedConstraintNameExtracter

src/NHibernate/Dialect/InformixDialect0940.cs

@@ -146,5 +146,8 @@ public override bool SupportsLimitOffset
             get { return false; }
         }
 
+        // Informix 9 is said on Internet to be limited to 128. (http://www.justskins.com/forums/length-of-columns-names-143294.html)
+        /// <inheritdoc />
+        public override int MaxAliasLength => 128;
     };
-}
+}

src/NHibernate/Dialect/IngresDialect.cs

@@ -53,6 +53,15 @@ public IngresDialect()
 			DefaultProperties[Environment.ConnectionDriver] = "NHibernate.Driver.IngresDriver";
 		}
 
+		// Ingres 10.2 supports 256 bytes (so worst unicode case would mean 64 characters), but I am unable to find
+		// the limit for older versions, excepted many various sites mention a 32 length limit.
+		// https://unifaceinfo.com/docs/0906/Uniface_Library_HTML/ulibrary/INS_NAMING_RULES_8EEFC1A489331BF969D2A8AA36AF2832.html
+		// There are traces of a ticket for increasing this in version 10: http://lists.ingres.com/pipermail/bugs/2010-May/000052.html
+		// This dialect seems to target version below 9, since there is Ingres9Dialect deriving from it.
+		// So sticking to 32.
+		/// <inheritdoc />
+		public override int MaxAliasLength => 32;
+
 		#region Overridden informational metadata
 
 		public override bool SupportsEmptyInList => false;

src/NHibernate/Dialect/MsSql2000Dialect.cs

@@ -677,6 +677,11 @@ public override bool SupportsSqlBatches
 			get { return true; }
 		}
 
+		// Was 30 in "earlier version", without telling to which version the document apply.
+		// https://msdn.microsoft.com/en-us/library/ms191240.aspx#Anchor_3
+		/// <inheritdoc />
+		public override int MaxAliasLength => 30;
+
 		#region Overridden informational metadata
 
 		public override bool SupportsEmptyInList => false;

src/NHibernate/Dialect/MsSql2005Dialect.cs

@@ -103,6 +103,10 @@ public override string AppendLockHint(LockMode lockMode, string tableName)
 			return tableName;
 		}
 
+		// SQL Server 2005 supports 128.
+		/// <inheritdoc />
+		public override int MaxAliasLength => 128;
+
 		#region Overridden informational metadata
 
 		/// <summary>

src/NHibernate/Dialect/MsSqlCeDialect.cs

@@ -344,6 +344,10 @@ public override long TimestampResolutionInTicks
 			}
 		}
 
+		// SQL Server 3.5 supports 128.
+		/// <inheritdoc />
+		public override int MaxAliasLength => 128;
+
 		#region Informational metadata
 
 		/// <summary>

src/NHibernate/Dialect/MySQL5Dialect.cs

@@ -61,5 +61,10 @@ public override bool SupportsInsertSelectIdentity
 		{
 			get { return true; }
 		}
+
+		// At least MySQL 5 is said to support 64 characters for columns, but 5.7 supports 256 for aliases.
+		// 64 seems quite good enough, being conservative.
+		/// <inheritdoc />
+		public override int MaxAliasLength => 64;
 	}
 }

src/NHibernate/Dialect/Oracle12cDialect.cs

@@ -3,7 +3,7 @@
 namespace NHibernate.Dialect
 {
 	/// <summary> 
-	/// A dialect specifically for use with Oracle 10g.
+	/// A dialect specifically for use with Oracle 12c.
 	/// </summary>
 	/// <remarks>
 	/// The main difference between this dialect and <see cref="Oracle12cDialect"/>
@@ -38,5 +38,10 @@ public override SqlString GetLimitString(SqlString querySqlString, SqlString off
 
 			return result.ToSqlString();
 		}
+
+		// 128 since 12.2. https://stackoverflow.com/a/756569/1178314, will
+		// have to do a 12-2c dialect for exploiting it, or wait for 13.
+		// / <inheritdoc />
+		//public override int MaxAliasLength => 128;
 	}
-}
+}

src/NHibernate/Dialect/Oracle8iDialect.cs

@@ -533,6 +533,10 @@ public override long TimestampResolutionInTicks
 			}
 		}
 
+		// 30 before 12.1. https://stackoverflow.com/a/756569/1178314
+		/// <inheritdoc />
+		public override int MaxAliasLength => 30;
+
 		#region Overridden informational metadata
 
 		public override bool SupportsEmptyInList

src/NHibernate/Dialect/PostgreSQL81Dialect.cs

@@ -116,5 +116,9 @@ public override bool SupportsInsertSelectIdentity
 
 		/// <inheritdoc />
 		public override bool SupportsDateTimeScale => true;
+
+		// Said to be 63 bytes at least since v8.
+		/// <inheritdoc />
+		public override int MaxAliasLength => 63;
 	}
 }

src/NHibernate/Dialect/SQLiteDialect.cs

@@ -395,6 +395,10 @@ public override bool SupportsForeignKeyConstraintInAlterTable
 		/// </remarks>
 		public override bool SupportsConcurrentWritingConnections => false;
 
+		// Said to be unlimited. http://sqlite.1065341.n5.nabble.com/Max-limits-on-the-following-td37859.html
+		/// <inheritdoc />
+		public override int MaxAliasLength => 128;
+
 		[Serializable]
 		protected class SQLiteCastFunction : CastFunction
 		{
@@ -407,4 +411,4 @@ protected override bool CastingIsRequired(string sqlType)
 			}
 		}
 	}
-}
+}