1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
name: glob-bad-1
description:
Check that globbing isn't done when glob has syntax error
perl-setup:
mkdir("[x", 0777) || die "couldn't make directory [x - $!\n";
&touch("[x/foo");
stdin:
echo [*
echo *[x
echo [x/*
expected-stdout:
[*
*[x
[x/foo
---
name: glob-bad-2
description:
Check that symbolic links aren't stat()'d
perl-setup:
mkdir("dir", 0777) || die "couldn't make directory dir - $!\n";
&touch("dir/abc");
symlink("non-existent-file", "dir/abc");
stdin:
echo d*/*
echo d*/abc
expected-stdout:
dir/abc
dir/abc
---
name: glob-range-1
description:
Test range matching
perl-setup:
&touch(".bc", "abc", "bbc", "cbc", "-bc");
stdin:
echo [ab-]*
echo [-ab]*
echo [!-ab]*
echo [!ab]*
echo []ab]*
expected-stdout:
-bc abc bbc
-bc abc bbc
cbc
-bc cbc
abc bbc
---
name: glob-range-2
description:
Test range matching
(at&t ksh fails this; POSIX says invalid)
perl-setup:
&touch("abc");
stdin:
echo [a--]*
expected-stdout:
[a--]*
---
name: glob-range-3
description:
Check that globbing matches the right things...
perl-setup:
&touch("a\302c");
stdin:
echo a[Á-Ú]*
expected-stdout:
aÂc
---
name: glob-range-4
description:
Results unspecified according to POSIX
perl-setup:
&touch(".bc");
stdin:
echo [a.]*
expected-stdout:
[a.]*
---
name: glob-range-5
description:
Results unspecified according to POSIX
(at&t ksh treats this like [a-cc-e]*)
perl-setup:
&touch("abc", "bbc", "cbc", "dbc", "ebc", "-bc");
stdin:
echo [a-c-e]*
expected-stdout:
-bc abc bbc cbc ebc
---
|
