test: More than 4 journal letters in citation key

test/bib-keyinsert_test

@@ -98,6 +98,11 @@ testJournalLongName() {
   assertEquals ':zp' "$(bib-keyinsert -s $fileOne | getkey)"
 }
 
+testJournalLetters() {
+  echo -e '@Article{,\nJournal = {Proc. Natl. Acad. Sci. U.S.A.},' > $fileOne
+  assertEquals ':pnasusa' "$(bib-keyinsert $fileOne | getkey)"
+}
+
 testJournalAmpersand() {
   echo -e '@Article{,\nJournal = {Organic & Biomolecular Chemistry},' > $fileOne
   assertEquals ':obc' "$(bib-keyinsert $fileOne | getkey)"

test/bib-name_test

@@ -71,6 +71,11 @@ testJournalLongName() {
   assertEquals '__ZP' "$(bib-name -n -s $fileOne | getname)"
 }
 
+testJournalLetters() {
+  echo -e '@Article{,\nJournal = {Proc. Natl. Acad. Sci. U.S.A.},' > $fileOne
+  assertEquals '__PNASUSA' "$(bib-name -n $fileOne | getname)"
+}
+
 testJournalAmpersand() {
   echo -e '@Article{,\nJournal = {Organic & Biomolecular Chemistry},' > $fileOne
   assertEquals '__OBC' "$(bib-name -n $fileOne | getname)"