po: add missing \r escape on output

Author: kou

lib/gettext/po_entry.rb

@@ -241,11 +241,13 @@ class << self
         def escape(string)
           return "" if string.nil?
 
-          string.gsub(/([\\"\t\n])/) do
+          string.gsub(/([\\"\t\r\n])/) do
             special_character = $1
             case special_character
             when "\t"
               "\\t"
+            when "\r"
+              "\\r"
             when "\n"
               "\\n"
             else

test/test_po_entry.rb

@@ -233,13 +233,15 @@ def test_plural
       class TestEscape < self
         def test_normal
           entry = GetText::POEntry.new(:normal)
-          entry.msgid = "He said \"hello.\""
-          entry.msgstr = "Il a dit \"bonjour.\""
+          entry.msgid = "He said \"hello.\"\r\n"
+          entry.msgstr = "Il a dit \"bonjour.\"\r\n"
           entry.references = ["file1:1", "file2:10"]
           expected_po = <<-EOE
 #: file1:1 file2:10
-msgid "He said \\"hello.\\""
-msgstr "Il a dit \\"bonjour.\\""
+msgid ""
+"He said \\"hello.\\"\\r\\n"
+msgstr ""
+"Il a dit \\"bonjour.\\"\\r\\n"
 EOE
           assert_equal(expected_po, entry.to_s)
         end