ctests: useSystemFonts.pl -- revert changes in 1879fbedfb67cc6.

diff --git a/development/autotests/useSystemFonts.pl b/development/autotests/useSystemFonts.pl
index e9bbd08a1b59d66f0eb1d842c7821257190f6527..aeee3dafe913f65aaa2e0a8baecb1fd84accb1a6 100644 (file)
--- a/development/autotests/useSystemFonts.pl
+++ b/development/autotests/useSystemFonts.pl
@@ -86,9 +86,34 @@ if ($source =~ /\/([a-z][a-z](_[A-Z][A-Z])?)[\/_]/) {
 
 my $inputEncoding = undef;
 if ($fontT eq "systemF") {
-  if ($font{roman} eq "default") {
-    # Change non-tex fonts setting if it is "default".
-    # TODO: set in document (if required).
+  if ($lang =~ /^(ru|uk|sk|el)$/) {
+    $font{roman} = "DejaVu Serif";
+    $font{sans} = "DejaVu Sans";
+    $font{typewriter} = "DejaVu Sans Mono";
+  }
+  elsif ($lang =~ /^(he)$/) {
+    $font{roman} = "FreeSans";
+    $font{sans} = "FreeSans";
+    $font{typewriter} = "FreeSans";
+  }
+  elsif ($lang eq "fa") {
+    $font{roman} = "FreeFarsi";
+    $font{sans} = "FreeFarsi";
+    $font{typewriter} = "FreeFarsi Monospace";
+  }
+  elsif ($lang eq "ko" ) {
+    # $font{roman} = "NanumGothic"; # NanumMyeongjo, NanumGothic Eco, NanumGothicCoding
+    # $font{sans} = "NanumGothic";
+    # $font{typewriter} = "NanumGothic";
+  }
+  elsif ($lang eq "ar" ) {
+    # available in 'fonts-sil-scheherazade' package
+    $font{roman} = "Scheherazade";
+    $font{sans} = "Scheherazade";
+    $font{typewriter} = "Scheherazade";
+  }
+  else {
+    # default system fonts
     $font{roman} = "FreeSerif";
     $font{sans} = "FreeSans";
     $font{typewriter} = "FreeMono";