1--[[ 2--***************************************************************************** 3--* Copyright (C) 1994-2016 Lua.org, PUC-Rio. 4--* 5--* Permission is hereby granted, free of charge, to any person obtaining 6--* a copy of this software and associated documentation files (the 7--* "Software"), to deal in the Software without restriction, including 8--* without limitation the rights to use, copy, modify, merge, publish, 9--* distribute, sublicense, and/or sell copies of the Software, and to 10--* permit persons to whom the Software is furnished to do so, subject to 11--* the following conditions: 12--* 13--* The above copyright notice and this permission notice shall be 14--* included in all copies or substantial portions of the Software. 15--* 16--* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 17--* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 18--* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 19--* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY 20--* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, 21--* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 22--* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. 23--***************************************************************************** 24--]] 25 26-- testing string library 27 28local maxi, mini = 0x7fffffffffffffff, 0x8000000000000000 29 30-- testing string.sub 31assert(string.sub("123456789",2,4) == "234") 32assert(string.sub("123456789",7) == "789") 33assert(string.sub("123456789",7,6) == "") 34assert(string.sub("123456789",7,7) == "7") 35assert(string.sub("123456789",0,0) == "") 36assert(string.sub("123456789",-10,10) == "123456789") 37assert(string.sub("123456789",1,9) == "123456789") 38assert(string.sub("123456789",-10,-20) == "") 39assert(string.sub("123456789",-1) == "9") 40assert(string.sub("123456789",-4) == "6789") 41assert(string.sub("123456789",-6, -4) == "456") 42assert(string.sub("123456789", mini, -4) == "123456") 43assert(string.sub("123456789", mini, maxi) == "123456789") 44assert(string.sub("123456789", mini, mini) == "") 45assert(string.sub("\000123456789",3,5) == "234") 46assert(("\000123456789"):sub(8) == "789") 47 48-- testing string.find 49assert(string.find("123456789", "345") == 3) 50a,b = string.find("123456789", "345") 51assert(string.sub("123456789", a, b) == "345") 52assert(string.find("1234567890123456789", "345", 3) == 3) 53assert(string.find("1234567890123456789", "345", 4) == 13) 54assert(string.find("1234567890123456789", "346", 4) == nil) 55assert(string.find("1234567890123456789", ".45", -9) == 13) 56assert(string.find("abcdefg", "\0", 5, 1) == nil) 57assert(string.find("", "") == 1) 58assert(string.find("", "", 1) == 1) 59assert(not string.find("", "", 2)) 60assert(string.find('', 'aaa', 1) == nil) 61assert(('alo(.)alo'):find('(.)', 1, 1) == 4) 62 63assert(string.len("") == 0) 64assert(string.len("\0\0\0") == 3) 65assert(string.len("1234567890") == 10) 66 67assert(#"" == 0) 68assert(#"\0\0\0" == 3) 69assert(#"1234567890" == 10) 70 71-- testing string.byte/string.char 72assert(string.byte("a") == 97) 73assert(string.byte("\xe4") > 127) 74assert(string.byte(string.char(255)) == 255) 75assert(string.byte(string.char(0)) == 0) 76assert(string.byte("\0") == 0) 77assert(string.byte("\0\0alo\0x", -1) == string.byte('x')) 78assert(string.byte("ba", 2) == 97) 79assert(string.byte("\n\n", 2, -1) == 10) 80assert(string.byte("\n\n", 2, 2) == 10) 81assert(string.byte("") == nil) 82assert(string.byte("hi", -3) == nil) 83assert(string.byte("hi", 3) == nil) 84assert(string.byte("hi", 9, 10) == nil) 85assert(string.byte("hi", 2, 1) == nil) 86assert(string.char() == "") 87assert(string.char(0, 255, 0) == "\0\255\0") 88assert(string.char(0, string.byte("\xe4"), 0) == "\0\xe4\0") 89assert(string.char(string.byte("\xe4l\0\195\179u", 1, -1)) == "\xe4l\0\195\179u") 90assert(string.char(string.byte("\xe4l\0\195\179u", 1, 0)) == "") 91assert(string.char(string.byte("\xe4l\0\195\179u", -10, 100)) == "\xe4l\0\195\179u") 92 93assert(string.upper("ab\0c") == "AB\0C") 94assert(string.lower("\0ABCc%$") == "\0abcc%$") 95assert(string.rep('teste', 0) == '') 96assert(string.rep('t\195\169s\00t\195\170', 2) == 't\195\169s\0t\195\170t\195\169s\000t\195\170') 97assert(string.rep('', 10) == '') 98 99-- repetitions with separator 100assert(string.rep('teste', 0, 'xuxu') == '') 101assert(string.rep('teste', 1, 'xuxu') == 'teste') 102assert(string.rep('\1\0\1', 2, '\0\0') == '\1\0\1\0\0\1\0\1') 103assert(string.rep('', 10, '.') == string.rep('.', 9)) 104 105assert(string.reverse"" == "") 106assert(string.reverse"\0\1\2\3" == "\3\2\1\0") 107assert(string.reverse"\0001234" == "4321\0") 108 109for i=0,30 do assert(string.len(string.rep('a', i)) == i) end 110 111 112x = '"\195\174lo"\n\\' 113assert(string.format('%q%s', x, x) == '"\\"\195\174lo\\"\\\n\\\\""\195\174lo"\n\\') 114assert(string.format('%q', "\0") == [["\0"]]) 115x = "\0\1\0023\5\0009" 116assert(string.format("\0%c\0%c%x\0", string.byte("\xe4"), string.byte("b"), 140) == 117 "\0\xe4\0b8c\0") 118assert(string.format('') == "") 119assert(string.format("%c",34)..string.format("%c",48)..string.format("%c",90)..string.format("%c",100) == 120 string.format("%c%c%c%c", 34, 48, 90, 100)) 121assert(string.format("%s\0 is not \0%s", 'not be', 'be') == 'not be\0 is not \0be') 122assert(string.format("%%%d %010d", 10, 23) == "%10 0000000023") 123x = string.format('"%-50s"', 'a') 124assert(#x == 52) 125assert(string.sub(x, 1, 4) == '"a ') 126 127assert(string.format("-%.20s.20s", string.rep("%", 2000)) == 128 "-"..string.rep("%", 20)..".20s") 129assert(string.format('"-%20s.20s"', string.rep("%", 2000)) == 130 string.format("%q", "-"..string.rep("%", 2000)..".20s")) 131 132-- format x tostring 133assert(string.format("%s %s", nil, true) == "nil true") 134assert(string.format("%s %.4s", false, true) == "false true") 135assert(string.format("%.3s %.3s", false, true) == "fal tru") 136 137 138-- testing large numbers for format 139do 140 local max, min = 0x7fffffff, -0x80000000 -- "large" for 32 bits 141 assert(string.sub(string.format("%8x", -1), -8) == "ffffffff") 142 assert(string.format("%x", max) == "7fffffff") 143 assert(string.sub(string.format("%x", min), -8) == "80000000") 144 assert(string.format("%d", max) == "2147483647") 145 assert(string.format("%d", min) == "-2147483648") 146 assert(string.format("%u", 0xffffffff) == "4294967295") 147 assert(string.format("%o", 0xABCD) == "125715") 148 149 max, min = 0x7fffffffffffffff, -0x8000000000000000 150 assert(string.format("0x%8X", 0x8f000003) == "0x8F000003") 151 assert(string.format("%d", 2^53) == "9007199254740992") 152 assert(string.format("%x", max) == "7fffffffffffffff") 153 assert(string.format("%x", min) == "8000000000000000") 154 assert(string.format("%d", max) == "9223372036854775807") 155 assert(string.format("%d", min) == "-9223372036854775808") 156end 157 158 159assert(table.concat{} == "") 160assert(table.concat({}, 'x') == "") 161assert(table.concat({'\0', '\0\1', '\0\1\2'}, '.\0.') == "\0.\0.\0\1.\0.\0\1\2") 162local a = {}; for i=1,300 do a[i] = "xuxu" end 163assert(table.concat(a, "123").."123" == string.rep("xuxu123", 300)) 164assert(table.concat(a, "b", 20, 20) == "xuxu") 165assert(table.concat(a, "", 20, 21) == "xuxuxuxu") 166assert(table.concat(a, "x", 22, 21) == "") 167assert(table.concat(a, "3", 299) == "xuxu3xuxu") 168assert(table.concat({}, "x", 2^31-1, 2^31-2) == "") 169assert(table.concat({}, "x", -2^31+1, -2^31) == "") 170assert(table.concat({}, "x", 2^31-1, -2^31) == "") 171assert(table.concat({[2^31-1] = "alo"}, "x", 2^31-1, 2^31-1) == "alo") 172 173a = {"a","b","c"} 174assert(table.concat(a, ",", 1, 0) == "") 175assert(table.concat(a, ",", 1, 1) == "a") 176assert(table.concat(a, ",", 1, 2) == "a,b") 177assert(table.concat(a, ",", 2) == "b,c") 178assert(table.concat(a, ",", 3) == "c") 179assert(table.concat(a, ",", 4) == "") 180 181 182-- tests for gmatch 183local a = 0 184for i in string.gmatch('abcde', '()') do assert(i == a+1); a=i end 185assert(a==6) 186 187t = {n=0} 188for w in string.gmatch("first second word", "%w+") do 189 t.n=t.n+1; t[t.n] = w 190end 191assert(t[1] == "first" and t[2] == "second" and t[3] == "word") 192 193t = {3, 6, 9} 194for i in string.gmatch ("xuxx uu ppar r", "()(.)%2") do 195 assert(i == table.remove(t, 1)) 196end 197assert(#t == 0) 198 199t = {} 200for i,j in string.gmatch("13 14 10 = 11, 15= 16, 22=23", "(%d+)%s*=%s*(%d+)") do 201 t[i] = j 202end 203a = 0 204for k,v in pairs(t) do assert(k+1 == v+0); a=a+1 end 205assert(a == 3) 206 207 208-- tests for gsub 209function f1(s, p) 210 p = string.gsub(p, "%%([0-9])", function (s) return "%" .. (s+1) end) 211 p = string.gsub(p, "^(^?)", "%1()", 1) 212 p = string.gsub(p, "($?)$", "()%1", 1) 213 local t = {string.match(s, p)} 214 return string.sub(s, t[1], t[#t] - 1) 215end 216 217assert(f1('alo alx 123 b\0o b\0o', '(..*) %1') == "b\0o b\0o") 218assert(f1('axz123= 4= 4 34', '(.+)=(.*)=%2 %1') == '3= 4= 4 3') 219assert(f1('=======', '^(=*)=%1$') == '=======') 220 221-- gsub with tables 222assert(string.gsub("alo alo", ".", {}) == "alo alo") 223assert(string.gsub("alo alo", "(.)", {a="AA", l=""}) == "AAo AAo") 224assert(string.gsub("alo alo", "(.).", {a="AA", l="K"}) == "AAo AAo") 225assert(string.gsub("alo alo", "((.)(.?))", {al="AA", o=false}) == "AAo AAo") 226 227assert(string.gsub("alo alo", "().", {2,5,6}) == "256 alo") 228 229t = {}; setmetatable(t, {__index = function (t,s) return string.upper(s) end}) 230assert(string.gsub("a alo b hi", "%w%w+", t) == "a ALO b HI") 231 232 233-- tests for match 234assert(string.match('==========', '^([=]*)=%1$') == nil) 235assert(string.match("alo xyzK", "(%w+)K") == "xyz") 236assert(string.match("254 K", "(%d*)K") == "") 237assert(string.match("alo ", "(%w*)$") == "") 238assert(string.match("alo ", "(%w+)$") == nil) 239assert(string.match("ab\0\1\2c", "[\0-\2]+") == "\0\1\2") 240 241return "OK" 242