Index: tests/natools-chunked_strings-tests-coverage.adb
==================================================================
--- tests/natools-chunked_strings-tests-coverage.adb
+++ tests/natools-chunked_strings-tests-coverage.adb
@@ -443,10 +443,36 @@
 
       if CS_Name <= Smaller then
          Report_Result (Name, Reported);
          NT.Info (Report, "CS_Name <= Smaller");
       end if;
+
+      Report_Result (Name, Reported, NT.Success);
+   exception
+      when Error : others => NT.Report_Exception (Report, Name, Error);
+   end;
+
+   declare
+      Name : constant String := "Comparisons of Chunked_Strings with Strings";
+      CS_Name : constant Chunked_String := To_Chunked_String (Name);
+      Double_Name : constant String := Name & Name;
+      Reported : Boolean := False;
+   begin
+      if CS_Name >= Double_Name then
+         Report_Result (Name, Reported);
+         NT.Info (Report, "CS_Name >= Double_Name");
+      end if;
+
+      if Null_Chunked_String >= Name then
+         Report_Result (Name, Reported);
+         NT.Info (Report, "Null_Chunked_String >= Name");
+      end if;
+
+      if CS_Name <= "" then
+         Report_Result (Name, Reported);
+         NT.Info (Report, "CS_Name <= """"");
+      end if;
 
       Report_Result (Name, Reported, NT.Success);
    exception
       when Error : others => NT.Report_Exception (Report, Name, Error);
    end;