mirror of
https://github.com/fish-shell/fish-shell.git
synced 2024-11-27 19:53:36 +08:00
e8a6d31aea
string match is documented as setting an unset variable if a capture group is unmatched in an otherwise matched regex, and if the `--all` flag is not provided. However prior to this fix, it instead set a variable containing the empty string as a single value. Correct the implementation to match the documentation. Note that if the `--all` flag is provided we continue to set empty strings, which is documented.
96 lines
2.4 KiB
Fish
96 lines
2.4 KiB
Fish
#RUN: %fish %s
|
|
# Tests for importing named regex groups as fish variables
|
|
|
|
# Capture first match
|
|
echo "hello world" | string match --regex -q -- '(?<words>[^ ]+) ?'
|
|
printf "%s\n" $words
|
|
# CHECK: hello
|
|
|
|
# Capture multiple matches
|
|
echo "hello world" | string match --regex -q --all -- '(?<words>[^ ]+) ?'
|
|
printf "%s\n" $words
|
|
# CHECK: hello
|
|
# CHECK: world
|
|
|
|
# Capture multiple variables
|
|
echo "hello world"\n"snello snorld" | string match -rq -- '^(?<word1>[^ ]+) (?<word2>.*)$'
|
|
printf "%s\n" $word1 $word2
|
|
# CHECK: hello
|
|
# CHECK: world
|
|
|
|
# Clear variables on no match
|
|
set foo foo
|
|
echo foo | string match -rq -- '^(?<foo>bar)$'
|
|
echo $foo
|
|
# CHECK:
|
|
|
|
# Named group may be empty in some of the matches
|
|
set word
|
|
set punctuation
|
|
echo "hello world, boy!" | string match -a -qr -- '(?<word>[^ .,!;]+)(?<punctuation>[.,!;])?'
|
|
echo $word
|
|
# CHECK: hello world boy
|
|
printf "%s\n" $punctuation
|
|
# CHECK:
|
|
# CHECK: ,
|
|
# CHECK: !
|
|
|
|
# Same thing with multiple arguments
|
|
set word
|
|
set punctuation
|
|
printf '%s\n' "hello world, boy!" "shello shorld, shoy!" | string match -a -qr -- '(?<word>[^ .,!;]+)(?<punctuation>[.,!;])?'
|
|
echo $word
|
|
# CHECK: hello world boy
|
|
printf "%s\n" $punctuation
|
|
# CHECK:
|
|
# CHECK: ,
|
|
# CHECK: !
|
|
|
|
# Verify read-only variables may not be imported
|
|
echo hello | string match -rq "(?<version>.*)"
|
|
# CHECKERR: Modification of read-only variable "version" is not allowed
|
|
|
|
# Verify that the *first matching argument* is used.
|
|
string match -rq '(?<bee>b.*)' -- aaa ba ccc be
|
|
echo $bee
|
|
# CHECK: ba
|
|
|
|
# Verify the following regarding capture groups which are not matched:
|
|
# 1. Set no values if --all is not provided
|
|
# 2. Set an empty string value if --all is provided
|
|
set -e nums
|
|
set -e text
|
|
|
|
string match -r '(?<nums>\d+)|(?<text>[a-z]+)' -- xyz
|
|
# CHECK: xyz
|
|
# CHECK: xyz
|
|
set --show text
|
|
# CHECK: $text: set in global scope, unexported, with 1 elements
|
|
# CHECK: $text[1]: |xyz|
|
|
set --show nums
|
|
# CHECK: $nums: set in global scope, unexported, with 0 elements
|
|
|
|
string match -r --all '(?<nums>\d+)|(?<text>[a-z]+)' -- '111 aaa 222 bbb'
|
|
# CHECK: 111
|
|
# CHECK: 111
|
|
# CHECK: aaa
|
|
# CHECK: aaa
|
|
# CHECK: 222
|
|
# CHECK: 222
|
|
# CHECK: bbb
|
|
# CHECK: bbb
|
|
|
|
set --show nums
|
|
# CHECK: $nums: set in global scope, unexported, with 4 elements
|
|
# CHECK: $nums[1]: |111|
|
|
# CHECK: $nums[2]: ||
|
|
# CHECK: $nums[3]: |222|
|
|
# CHECK: $nums[4]: ||
|
|
|
|
set --show text
|
|
# CHECK: $text: set in global scope, unexported, with 4 elements
|
|
# CHECK: $text[1]: ||
|
|
# CHECK: $text[2]: |aaa|
|
|
# CHECK: $text[3]: ||
|
|
# CHECK: $text[4]: |bbb|
|