Remove locale specific tests

These caused issues in various places, but test nothing useful. Resolves gap-system#2194 Resolves gap-system#3979
fingolfin · May 10, 2020 · c4b2ffb · c4b2ffb
1 parent 5c6ad86
commit c4b2ffb
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 25 deletions.
diff --git a/tst/testinstall/stringobj.tst b/tst/testinstall/stringobj.tst
@@ -38,14 +38,14 @@ gap> s;
 "Ilovepiespiespies"
 
 # Lowercase - Uppercase
-gap> List("abcxyzABCXYZ\n\t !019?\377\000$", LowercaseChar);
-"abcxyzabcxyz\n\t !019?\377\000$"
-gap> List("abcxyzABCXYZ\n\t !019?\377\000$", UppercaseChar);
-"ABCXYZABCXYZ\n\t !019?\377\000$"
-gap> UppercaseString("abcxyzABCXYZ\n\t !019?\377\000$");
-"ABCXYZABCXYZ\n\t !019?\377\000$"
-gap> LowercaseString("abcxyzABCXYZ\n\t !019?\377\000$");
-"abcxyzabcxyz\n\t !019?\377\000$"
+gap> List("abcxyzABCXYZ\n\t !019?\000$", LowercaseChar);
+"abcxyzabcxyz\n\t !019?\000$"
+gap> List("abcxyzABCXYZ\n\t !019?\000$", UppercaseChar);
+"ABCXYZABCXYZ\n\t !019?\000$"
+gap> UppercaseString("abcxyzABCXYZ\n\t !019?\000$");
+"ABCXYZABCXYZ\n\t !019?\000$"
+gap> LowercaseString("abcxyzABCXYZ\n\t !019?\000$");
+"abcxyzabcxyz\n\t !019?\000$"
 gap> UppercaseString("");
 ""
 gap> LowercaseString("");

diff --git a/tst/testinstall/strings.tst b/tst/testinstall/strings.tst
@@ -2,7 +2,7 @@
 ##
 ##  This file tests output methods (mainly for strings)
 ##
-#@local x, str
+#@local x, str, len
 gap> START_TEST("strings.tst");
 
 # FFE
@@ -40,24 +40,16 @@ gap> PrintString(x);
 "abc"
 gap> String(x);
 "abc"
-gap> x:="\0xFF";
-"\377"
-gap> PrintString(x);
-"\377"
-gap> ViewString(x);
-"\"\\377\""
+gap> x:="\0x42";
+"B"
 gap> x:="\0x42\0x23\0x10\0x10\0x10";
 "B#\020\020\020"
 gap> PrintString(x);
 "B#\020\020\020"
 gap> ViewString(x);
 "\"B#\\020\\020\\020\""
-gap> x:="A string with \0xFF Hex stuff \0x42 in it";
-"A string with \377 Hex stuff B in it"
-gap> PrintString(x);
-"A string with \377 Hex stuff B in it"
-gap> ViewString(x);
-"\"A string with \\377 Hex stuff B in it\""
+gap> x:="A string with Hex stuff \0x42 in it";
+"A string with Hex stuff B in it"
 gap> x := "\n\t\c\\\"'";
 "\n\t\c\\\"'"
 gap> PrintString(x);
@@ -187,10 +179,8 @@ gap> String(x);
 "'a'"
 gap> x:='\0x42';
 'B'
-gap> x:='\0xFF';
-'\377'
-gap> x:='\0xab';
-'\253'
+gap> x:='\102';
+'B'
 
 # Huge strings
 gap> for len in [10,100,1000,10000,100000] do