private doctests for string to pytest

Author: mmatera

mathics/builtin/string/characters.py

@@ -25,18 +25,6 @@ class Characters(Builtin):
 
     >> Characters["abc"]
      = {a, b, c}
-
-    #> \\.78\\.79\\.7A
-     = xyz
-
-    #> \\:0078\\:0079\\:007A
-     = xyz
-
-    #> \\101\\102\\103\\061\\062\\063
-     = ABC123
-
-    #> \\[Alpha]\\[Beta]\\[Gamma]
-     = \u03B1\u03B2\u03B3
     """
 
     attributes = A_LISTABLE | A_PROTECTED
@@ -142,12 +130,6 @@ class LetterQ(Builtin):
 
     >> LetterQ["Welcome to Mathics"]
      = False
-
-    #> LetterQ[""]
-     = True
-
-    #> LetterQ["\\[Alpha]\\[Beta]\\[Gamma]\\[Delta]\\[Epsilon]\\[Zeta]\\[Eta]\\[Theta]"]
-     = True
     """
 
     rules = {

mathics/builtin/string/charcodes.py

@@ -57,26 +57,12 @@ class ToCharacterCode(Builtin):
     >> ToCharacterCode[{"ab", "c"}]
      = {{97, 98}, {99}}
 
-    #> ToCharacterCode[{"ab"}]
-     = {{97, 98}}
-
-    #> ToCharacterCode[{{"ab"}}]
-     : String or list of strings expected at position 1 in ToCharacterCode[{{ab}}].
-     = ToCharacterCode[{{ab}}]
-
     >> ToCharacterCode[{"ab", x}]
      : String or list of strings expected at position 1 in ToCharacterCode[{ab, x}].
      = ToCharacterCode[{ab, x}]
 
     >> ListPlot[ToCharacterCode["plot this string"], Filling -> Axis]
      = -Graphics-
-
-    #> ToCharacterCode[x]
-     : String or list of strings expected at position 1 in ToCharacterCode[x].
-     = ToCharacterCode[x]
-
-    #> ToCharacterCode[""]
-     = {}
     """
 
     messages = {
@@ -167,42 +153,6 @@ class FromCharacterCode(Builtin):
 
     >> ToCharacterCode["abc 123"] // FromCharacterCode
      = abc 123
-
-    #> #1 == ToCharacterCode[FromCharacterCode[#1]] & [RandomInteger[{0, 65535}, 100]]
-     = True
-
-    #> FromCharacterCode[{}] // InputForm
-     = ""
-
-    #> FromCharacterCode[65536]
-     : A character code, which should be a non-negative integer less than 65536, is expected at position 1 in {65536}.
-     = FromCharacterCode[65536]
-    #> FromCharacterCode[-1]
-     : Non-negative machine-sized integer expected at position 1 in FromCharacterCode[-1].
-     = FromCharacterCode[-1]
-    #> FromCharacterCode[444444444444444444444444444444444444]
-     : Non-negative machine-sized integer expected at position 1 in FromCharacterCode[444444444444444444444444444444444444].
-     = FromCharacterCode[444444444444444444444444444444444444]
-
-    #> FromCharacterCode[{100, 101, -1}]
-     : A character code, which should be a non-negative integer less than 65536, is expected at position 3 in {100, 101, -1}.
-     = FromCharacterCode[{100, 101, -1}]
-    #> FromCharacterCode[{100, 101, 65536}]
-     : A character code, which should be a non-negative integer less than 65536, is expected at position 3 in {100, 101, 65536}.
-     = FromCharacterCode[{100, 101, 65536}]
-    #> FromCharacterCode[{100, 101, x}]
-     : A character code, which should be a non-negative integer less than 65536, is expected at position 3 in {100, 101, x}.
-     = FromCharacterCode[{100, 101, x}]
-    #> FromCharacterCode[{100, {101}}]
-     : A character code, which should be a non-negative integer less than 65536, is expected at position 2 in {100, {101}}.
-     = FromCharacterCode[{100, {101}}]
-
-    #> FromCharacterCode[{{97, 98, 99}, {100, 101, x}}]
-     : A character code, which should be a non-negative integer less than 65536, is expected at position 3 in {100, 101, x}.
-     = FromCharacterCode[{{97, 98, 99}, {100, 101, x}}]
-    #> FromCharacterCode[{{97, 98, x}, {100, 101, x}}]
-     : A character code, which should be a non-negative integer less than 65536, is expected at position 3 in {97, 98, x}.
-     = FromCharacterCode[{{97, 98, x}, {100, 101, x}}]
     """
 
     messages = {

mathics/builtin/string/operations.py

@@ -180,87 +180,19 @@ class StringInsert(Builtin):
     >> StringInsert["noting", "h", 4]
      = nothing
 
-    #> StringInsert["abcdefghijklm", "X", 15]
-     : Cannot insert at position 15 in abcdefghijklm.
-     = StringInsert[abcdefghijklm, X, 15]
-
-    #> StringInsert[abcdefghijklm, "X", 4]
-     : String or list of strings expected at position 1 in StringInsert[abcdefghijklm, X, 4].
-     = StringInsert[abcdefghijklm, X, 4]
-
-    #> StringInsert["abcdefghijklm", X, 4]
-     : String expected at position 2 in StringInsert[abcdefghijklm, X, 4].
-     = StringInsert[abcdefghijklm, X, 4]
-
-    #> StringInsert["abcdefghijklm", "X", a]
-     : Position specification a in StringInsert[abcdefghijklm, X, a] is not a machine-sized integer or a list of machine-sized integers.
-     = StringInsert[abcdefghijklm, X, a]
-
-    #> StringInsert["abcdefghijklm", "X", 0]
-     : Cannot insert at position 0 in abcdefghijklm.
-     =  StringInsert[abcdefghijklm, X, 0]
-
     >> StringInsert["note", "d", -1]
      = noted
 
     >> StringInsert["here", "t", -5]
      = there
 
-    #> StringInsert["abcdefghijklm", "X", -15]
-     : Cannot insert at position -15 in abcdefghijklm.
-     = StringInsert[abcdefghijklm, X, -15]
-
     >> StringInsert["adac", "he", {1, 5}]
      = headache
 
-    #> StringInsert["abcdefghijklm", "X", {1, -1, 14, -14}]
-     = XXabcdefghijklmXX
-
-    #> StringInsert["abcdefghijklm", "X", {1, 0}]
-     : Cannot insert at position 0 in abcdefghijklm.
-     = StringInsert[abcdefghijklm, X, {1, 0}]
-
-    #> StringInsert["", "X", {1}]
-     = X
-
-    #> StringInsert["", "X", {1, -1}]
-     = XX
-
-    #> StringInsert["", "", {1}]
-     = #<--#
-
-    #> StringInsert["", "X", {1, 2}]
-     : Cannot insert at position 2 in .
-     = StringInsert[, X, {1, 2}]
-
-    #> StringInsert["abcdefghijklm", "", {1, 2, 3, 4 ,5, -6}]
-     = abcdefghijklm
-
-    #> StringInsert["abcdefghijklm", "X", {}]
-     = abcdefghijklm
-
     >> StringInsert[{"something", "sometimes"}, " ", 5]
      = {some thing, some times}
 
-    #> StringInsert[{"abcdefghijklm", "Mathics"}, "X", 13]
-     : Cannot insert at position 13 in Mathics.
-     = {abcdefghijklXm, StringInsert[Mathics, X, 13]}
-
-    #> StringInsert[{"", ""}, "", {1, 1, 1, 1}]
-     = {, }
-
-    #> StringInsert[{"abcdefghijklm", "Mathics"}, "X", {0, 2}]
-     : Cannot insert at position 0 in abcdefghijklm.
-     : Cannot insert at position 0 in Mathics.
-     = {StringInsert[abcdefghijklm, X, {0, 2}], StringInsert[Mathics, X, {0, 2}]}
-
-    #> StringInsert[{"abcdefghijklm", Mathics}, "X", {1, 2}]
-     : String or list of strings expected at position 1 in StringInsert[{abcdefghijklm, Mathics}, X, {1, 2}].
-     = StringInsert[{abcdefghijklm, Mathics}, X, {1, 2}]
-
-    #> StringInsert[{"", "Mathics"}, "X", {1, 1, -1}]
-     = {XXX, XXMathicsX}
-
+    Insert dot as millar separators
     >> StringInsert["1234567890123456", ".", Range[-16, -4, 3]]
      = 1.234.567.890.123.456"""
 
@@ -468,34 +400,6 @@ class StringPosition(Builtin):
     >> StringPosition[data, "uranium"]
      = {{299, 305}, {870, 876}, {1538, 1544}, {1671, 1677}, {2300, 2306}, {2784, 2790}, {3093, 3099}}
 
-    #> StringPosition["123ABCxyABCzzzABCABC", "ABC", -1]
-     : Non-negative integer or Infinity expected at position 3 in StringPosition[123ABCxyABCzzzABCABC, ABC, -1].
-     = StringPosition[123ABCxyABCzzzABCABC, ABC, -1]
-
-    ## Overlaps
-    #> StringPosition["1231221312112332", RegularExpression["[12]+"]]
-     = {{1, 2}, {2, 2}, {4, 7}, {5, 7}, {6, 7}, {7, 7}, {9, 13}, {10, 13}, {11, 13}, {12, 13}, {13, 13}, {16, 16}}
-    #> StringPosition["1231221312112332", RegularExpression["[12]+"], Overlaps -> False]
-     = {{1, 2}, {4, 7}, {9, 13}, {16, 16}}
-    #> StringPosition["1231221312112332", RegularExpression["[12]+"], Overlaps -> x]
-     = {{1, 2}, {4, 7}, {9, 13}, {16, 16}}
-    #> StringPosition["1231221312112332", RegularExpression["[12]+"], Overlaps -> All]
-     : Overlaps -> All option is not currently implemented in Mathics.
-     = {{1, 2}, {2, 2}, {4, 7}, {5, 7}, {6, 7}, {7, 7}, {9, 13}, {10, 13}, {11, 13}, {12, 13}, {13, 13}, {16, 16}}
-
-    #> StringPosition["21211121122", {"121", "11"}]
-     = {{2, 4}, {4, 5}, {5, 6}, {6, 8}, {8, 9}}
-    #> StringPosition["21211121122", {"121", "11"}, Overlaps -> False]
-     = {{2, 4}, {5, 6}, {8, 9}}
-
-    #> StringPosition[{"abc", "abcda"}, "a"]
-     = {{{1, 1}}, {{1, 1}, {5, 5}}}
-
-    #> StringPosition[{"abc"}, "a", Infinity]
-     = {{{1, 1}}}
-
-    #> StringPosition["abc"]["123AabcDEabc"]
-     = {{5, 7}, {10, 12}}
     """
 
     messages = {
@@ -639,51 +543,6 @@ class StringReplace(_StringFind):
     >> StringReplace[{"xyxyxxy", "yxyxyxxxyyxy"}, "xy" -> "A"]
      = {AAxA, yAAxxAyA}
 
-    #> StringReplace["abcabc", "a" -> "b", Infinity]
-     = bbcbbc
-    #> StringReplace[x, "a" -> "b"]
-     : String or list of strings expected at position 1 in StringReplace[x, a -> b].
-     = StringReplace[x, a -> b]
-    #> StringReplace["xyzwxyzwaxyzxyzw", x]
-     : x is not a valid string replacement rule.
-     = StringReplace[xyzwxyzwaxyzxyzw, x]
-    #> StringReplace["xyzwxyzwaxyzxyzw", x -> y]
-     : Element x is not a valid string or pattern element in x.
-     = StringReplace[xyzwxyzwaxyzxyzw, x -> y]
-    #> StringReplace["abcabc", "a" -> "b", -1]
-     : Non-negative integer or Infinity expected at position 3 in StringReplace[abcabc, a -> b, -1].
-     = StringReplace[abcabc, a -> b, -1]
-    #> StringReplace["abc", "b" -> 4]
-     : String expected.
-     = a <> 4 <> c
-
-    #> StringReplace["01101100010", "01" .. -> "x"]
-     = x1x100x0
-
-    #> StringReplace["abc abcb abdc", "ab" ~~ _ -> "X"]
-     = X Xb Xc
-
-    #> StringReplace["abc abcd abcd",  WordBoundary ~~ "abc" ~~ WordBoundary -> "XX"]
-     = XX abcd abcd
-
-    #> StringReplace["abcd acbd", RegularExpression["[ab]"] -> "XX"]
-     = XXXXcd XXcXXd
-
-    #> StringReplace["abcd acbd", RegularExpression["[ab]"] ~~ _ -> "YY"]
-     = YYcd YYYY
-
-    #> StringReplace["abcdabcdaabcabcd", {"abc" -> "Y", "d" -> "XXX"}]
-     = YXXXYXXXaYYXXX
-
-
-    #> StringReplace["  Have a nice day.  ", (StartOfString ~~ Whitespace) | (Whitespace ~~ EndOfString) -> ""] // FullForm
-     = "Have a nice day."
-
-    #> StringReplace["xyXY", "xy" -> "01"]
-     = 01XY
-    #> StringReplace["xyXY", "xy" -> "01", IgnoreCase -> True]
-     = 0101
-
     StringReplace also can be used as an operator:
     >> StringReplace["y" -> "ies"]["city"]
      = cities
@@ -764,45 +623,11 @@ class StringRiffle(Builtin):
     >> StringRiffle[{"a", "b", "c", "d", "e"}]
      = a b c d e
 
-    #> StringRiffle[{a, b, c, "d", e, "f"}]
-     = a b c d e f
-
-    ## 1st is not a list
-    #> StringRiffle["abcdef"]
-     : List expected at position 1 in StringRiffle[abcdef].
-     : StringRiffle called with 1 argument; 2 or more arguments are expected.
-     = StringRiffle[abcdef]
-
-    #> StringRiffle[{"", "", ""}] // FullForm
-     = "  "
-
-    ## This form is not supported
-    #> StringRiffle[{{"a", "b"}, {"c", "d"}}]
-     : Sublist form in position 1 is is not implemented yet.
-     = StringRiffle[{{a, b}, {c, d}}]
-
     >> StringRiffle[{"a", "b", "c", "d", "e"}, ", "]
      = a, b, c, d, e
 
-    #> StringRiffle[{"a", "b", "c", "d", "e"}, sep]
-     : String expected at position 2 in StringRiffle[{a, b, c, d, e}, sep].
-     = StringRiffle[{a, b, c, d, e}, sep]
-
     >> StringRiffle[{"a", "b", "c", "d", "e"}, {"(", " ", ")"}]
      = (a b c d e)
-
-    #> StringRiffle[{"a", "b", "c", "d", "e"}, {" ", ")"}]
-     : String expected at position 2 in StringRiffle[{a, b, c, d, e}, { , )}].
-     = StringRiffle[{a, b, c, d, e}, { , )}]
-    #> StringRiffle[{"a", "b", "c", "d", "e"}, {left, " ", "."}]
-     : String expected at position 2 in StringRiffle[{a, b, c, d, e}, {left,  , .}].
-     = StringRiffle[{a, b, c, d, e}, {left,  , .}]
-
-    ## This form is not supported
-    #> StringRiffle[{"a", "b", "c"}, "+", "-"]
-    ## Mathematica result: a+b+c, but we are not support multiple separators
-     :  Multiple separators form is not implemented yet.
-     = StringRiffle[{a, b, c}, +, -]
     """
 
     attributes = A_PROTECTED | A_READ_PROTECTED
@@ -919,14 +744,6 @@ class StringSplit(Builtin):
     >> StringSplit["x", "x"]
      = {}
 
-    #> StringSplit[x]
-     : String or list of strings expected at position 1 in StringSplit[x].
-     = StringSplit[x, Whitespace]
-
-    #> StringSplit["x", x]
-     : Element x is not a valid string or pattern element in x.
-     = StringSplit[x, x]
-
     Split using a delmiter that has nonzero list of 12's
     >> StringSplit["12312123", "12"..]
      = {3, 3}
@@ -1043,25 +860,6 @@ class StringTake(Builtin):
     StringTake also supports standard sequence specifications
     >> StringTake["abcdef", All]
      = abcdef
-
-    #> StringTake["abcd", 0] // InputForm
-    = ""
-    #> StringTake["abcd", {3, 2}] // InputForm
-    = ""
-    #> StringTake["", {1, 0}] // InputForm
-    = ""
-
-    #> StringTake["abc", {0, 0}]
-    : Cannot take positions 0 through 0 in "abc".
-    = StringTake[abc, {0, 0}]
-
-    #> StringTake[{2, 4},2]
-     : String or list of strings expected at position 1.
-     = StringTake[{2, 4}, 2]
-
-    #> StringTake["kkkl",Graphics[{}]]
-     : Integer or a list of sequence specifications expected at position 2.
-     = StringTake[kkkl, -Graphics-]
     """
 
     messages = {