C# -> VB: partial classes' omitted accessibility modifier is not internal as by default

Author: Alexilia

ICSharpCode.CodeConverter/VB/CommonConversions.cs

@@ -406,7 +406,8 @@ public void ConvertBaseList(CSS.BaseTypeDeclarationSyntax type, List<InheritsSta
 
 
         private static IEnumerable<SyntaxToken> ConvertModifiersCore(IReadOnlyCollection<SyntaxToken> modifiers, TokenContext context, bool isConstructor) {
-            var needsExplicitVisibility = context != TokenContext.Local
+            var needsExplicitVisibility = !(modifiers.Any(x => x.IsKind(CS.SyntaxKind.PartialKeyword)) && context == TokenContext.Global)
+                && context != TokenContext.Local
                 && context != TokenContext.MemberInInterface
                 && context != TokenContext.MemberInProperty
                 && !modifiers.Any(x => x.IsCsVisibility(true, isConstructor)); //TODO Don't always treat as variable or const, pass in more context to detect this

Tests/VB/NamespaceLevelTests.cs

@@ -536,5 +536,18 @@ Implements System.ComponentModel.INotifyPropertyChanged
     Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
 End Class", conversion: EmptyNamespaceOptionStrictOff);
         }
+        [Fact]
+        public async Task PartialClass_OmitedModifier() {
+            await TestConversionCSharpToVisualBasic(
+@"public partial class Entities {
+}
+partial class Entities {
+}",
+@"Public Partial Class Entities
+End Class
+
+Partial Class Entities
+End Class");
+        }
     }
 }