small coverage improvements

src/Convert/StringParam.hs

@@ -52,7 +52,7 @@ traverseDescriptionM other = return other
 
 -- utility pattern for candidate string parameter items
 pattern StringParam :: Identifier -> String -> ModuleItem
-pattern StringParam x s =
+pattern StringParam x s <-
     MIPackageItem (Decl (Param Parameter UnknownType x (String s)))
 
 -- write down which parameters may be variable-length strings

test/core/package_export_first.sv

+package P;
+    localparam X = 1;
+endpackage
+package Q;
+    export P::X;
+    import P::X;
+endpackage
+module top;
+    initial $display(Q::X);
+endmodule

test/core/package_export_first.v

+module top;
+    initial $display(1);
+endmodule

test/lex/utf8.sv

+module top;
+// 😬
+initial $display("Hi!");
+endmodule

test/nosim/dpi.sv

 module top;
 
+export "DPI-C" task t;
+
 /* From IEEE 1800-2017 Section 35.4 */
 
 export "DPI-C" f_plus = function \f+ ; // "f+" exported as "f_plus"

test/nosim/extern.sv

+extern module foo(input x, output y);