Post-rebase cleanup

rules/S6664/csharp/compliant.adoc

@@ -1,7 +1,7 @@
 
 [source,csharp,diff-id=1,diff-type=compliant]
 ----
-void MyMethod(List<MyObject> items) 
+void MyMethod(List<MyObject> items)
 {
     logger.Debug("The operation started");
     foreach(var item in items) 

rules/S6664/csharp/noncompliant.adoc

@@ -1,10 +1,10 @@
 
 [source,csharp,diff-id=1,diff-type=noncompliant]
 ----
-void MyMethod(List<MyObject> items) 
+void MyMethod(List<MyObject> items)
 {
     logger.Debug("The operation started");
-    foreach(var item in items) 
+    foreach(var item in items)
     {
         logger.Information($"Evaluating {item.Name}"); // Noncompliant
         var result = Evaluate(item);

rules/S6664/vbnet/compliant.adoc

@@ -0,0 +1,16 @@
+
+[source,vbnet,diff-id=1,diff-type=compliant]
+----
+Private Sub MyMethod(ByVal items As List(Of MyObject))
+    logger.Debug("The operation started")
+    For Each item In items
+        logger.Information($"Evaluating {item.Name}")
+        Dim result = Evaluate(item)
+        If item.Name Is String.Empty Then
+            logger.Error("Invalid item name")
+        End If
+        logger.Information($"End item evaluation with result: {result}")
+    Next
+    logger.Debug("The operation ended")
+End Sub
+----

rules/S6664/vbnet/example.adoc

@@ -0,0 +1,13 @@
+
+[source,vbnet]
+----
+Private Sub MyMethod(ByVal items As List(Of MyObject))
+    logger.Debug("The operation started")
+    For Each item In items
+        logger.Debug($"Evaluating {item.Name}")
+        Dim result = Evaluate(item)
+        logger.Debug($"Evaluating resulted in {result}")
+    Next
+    logger.Debug("The operation ended")
+End Sub
+----

rules/S6664/vbnet/metadata.json

@@ -0,0 +1,2 @@
+{
+}

rules/S6664/vbnet/noncompliant.adoc

@@ -0,0 +1,17 @@
+
+[source,vbnet,diff-id=1,diff-type=noncompliant]
+----
+Private Sub MyMethod(ByVal items As List(Of MyObject))
+    logger.Debug("The operation started")
+    For Each item In items
+        logger.Information($"Evaluating {item.Name}") ' Noncompliant
+        Dim result = Evaluate(item)
+        logger.Information($"Evaluating resulted in {result}") ' Secondary 1
+        If item.Name Is String.Empty Then
+            logger.Error("Invalid item name")
+        End If
+        logger.Information("End item evaluation") ' Secondary 2
+    Next
+    logger.Debug("The operation ended")
+End Sub
+----

rules/S6664/vbnet/rule.adoc

@@ -0,0 +1,3 @@
+:language: vbnet
+
+include::../rule.adoc[]