Skip to content

Commit

Permalink
Remove locale specific tests
Browse files Browse the repository at this point in the history
These caused issues in various places, but test nothing useful.

Resolves #2194
Resolves #3979
  • Loading branch information
fingolfin committed May 13, 2020
1 parent 3214e54 commit 0b4c569
Show file tree
Hide file tree
Showing 2 changed files with 28 additions and 22 deletions.
16 changes: 8 additions & 8 deletions tst/testinstall/stringobj.tst
Original file line number Diff line number Diff line change
Expand Up @@ -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("");
Expand Down
34 changes: 20 additions & 14 deletions tst/testinstall/strings.tst
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -40,24 +40,22 @@ gap> PrintString(x);
"abc"
gap> String(x);
"abc"
gap> x:="\0xFF";
"\377"
gap> PrintString(x);
"\377"
gap> ViewString(x);
"\"\\377\""
gap> "\0x4a";
"J"
gap> x:="\0x4A";
"J"
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> x:="A string with Hex stuff \0x42 in it";
"A string with Hex stuff B in it"
gap> PrintString(x);
"A string with \377 Hex stuff B in it"
"A string with Hex stuff B in it"
gap> ViewString(x);
"\"A string with \\377 Hex stuff B in it\""
"\"A string with Hex stuff B in it\""
gap> x := "\n\t\c\\\"'";
"\n\t\c\\\"'"
gap> PrintString(x);
Expand Down Expand Up @@ -189,11 +187,19 @@ gap> PrintString(x);
"'a'"
gap> String(x);
"'a'"
gap> x:='\0x42';
gap> '\0x42';
'B'
gap> '\102';
'B'
gap> x:='\0xFF';
gap> '\0xFF';
'\377'
gap> '\0xff';
'\377'
gap> '\0xFf';
'\377'
gap> '\0xfF';
'\377'
gap> x:='\0xab';
gap> '\0xab';
'\253'

# Huge strings
Expand Down

0 comments on commit 0b4c569

Please sign in to comment.