mirror of
https://github.com/LadybirdBrowser/ladybird.git
synced 2025-01-01 07:35:02 +03:00
86 lines
2.0 KiB
Bash
86 lines
2.0 KiB
Bash
#!/bin/Shell
|
|
|
|
source $(dirname "$0")/test-commons.inc
|
|
|
|
# Length
|
|
|
|
if test "${length foo}" -ne 3 {
|
|
fail invalid length for bareword
|
|
}
|
|
|
|
if test "${length "foo"}" -ne 3 {
|
|
fail invalid length for literal string
|
|
}
|
|
|
|
if test "${length foobar}" -ne 6 {
|
|
fail length string always returns 3...\?
|
|
}
|
|
if test "${length string foo}" -ne 3 {
|
|
fail invalid length for bareword with explicit string mode
|
|
}
|
|
|
|
if test "${length list foo}" -ne 1 {
|
|
fail invalid length for bareword with explicit list mode
|
|
}
|
|
|
|
if test "${length (1 2 3 4)}" -ne 4 {
|
|
fail invalid length for list
|
|
}
|
|
|
|
if test "${length list (1 2 3 4)}" -ne 4 {
|
|
fail invalid length for list with explicit list mode
|
|
}
|
|
|
|
if test "${length_across (1 2 3 4)}" != "1 1 1 1" {
|
|
fail invalid length_across for list
|
|
}
|
|
|
|
if test "${length_across list ((1 2 3) (4 5))}" != "3 2" {
|
|
fail invalid length_across for list with explicit list mode
|
|
}
|
|
|
|
if test "${length_across string (foo test)}" != "3 4" {
|
|
fail invalid length_across for list of strings
|
|
}
|
|
|
|
# remove_suffix and remove_prefix
|
|
if test "${remove_suffix .txt foo.txt}" != "foo" {
|
|
fail remove_suffix did not remove suffix from a single entry
|
|
}
|
|
|
|
if test "${remove_suffix .txt (foo.txt bar.txt)}" != "foo bar" {
|
|
fail remove_suffix did not remove suffix from a list
|
|
}
|
|
|
|
if test "${remove_prefix fo foo.txt}" != "o.txt" {
|
|
fail remove_prefix did not remove prefix from a single entry
|
|
}
|
|
|
|
if test "${remove_prefix x (xfoo.txt xbar.txt)}" != "foo.txt bar.txt" {
|
|
fail remove_prefix did not remove prefix from a list
|
|
}
|
|
|
|
# regex_replace
|
|
if test "${regex_replace a e wall}" != "well" {
|
|
fail regex_replace did not replace single character
|
|
}
|
|
|
|
if test "${regex_replace a e waaaall}" != "weeeell" {
|
|
fail regex_replace did not replace multiple characters
|
|
}
|
|
|
|
if test "${regex_replace '(.)l' 'e\1' hall}" != "heal" {
|
|
fail regex_replace did not replace with pattern
|
|
}
|
|
|
|
# split
|
|
|
|
if test "${split 'x' "fooxbarxbaz"}" != "foo bar baz" {
|
|
fail split could not split correctly
|
|
}
|
|
|
|
if test "${split '' "abc"}" != "a b c" {
|
|
fail split count not split to all characters
|
|
}
|
|
pass
|