tests/name/extension.test


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

# file      : tests/name/extension.test
# copyright : Copyright (c) 2014-2018 Code Synthesis Ltd
# license   : MIT; see accompanying LICENSE file

.include ../common.test

+cat <<EOI >=build/root.build
define txt: file
txt{*}: extension = txt
EOI

: name
:
{
  test.arguments = --match-only update

  : unspecified
  :
  touch foo.txt;
  $* <'./: txt{foo}'

  : specified
  :
  touch foo.text;
  $* <'./: txt{foo.text}'

  : specified-none
  :
  touch foo;
  $* <'./: txt{foo.}'

  : specified-default
  :
  touch foo.test.txt;
  $* <'./: txt{foo.test...}'

  # Trailing dots are not allowed on Windows.
  #

  : specified-escape-one
  :
  if ($cxx.target.class != 'windows')
  {
    touch foo.;
    $* <'./: txt{foo..}'
  }

  : specified-escape-two
  :
  if ($cxx.target.class != 'windows')
  {
    touch foo..;
    $* <'./: txt{foo....}'
  }

  : specified-invalid
  :
  $* <'./: txt{foo.....}' 2>>EOE != 0
  <stdin>:1:5: error: invalid trailing dot sequence in target name 'foo.....'
  EOE
}

: pattern
:
{
  : specified-none
  :
  touch foo;
  $* <'print txt{fo?.}' >'txt{foo.}'

  : specified-default
  :
  touch foo.test.txt;
  $* <'print txt{fo?.test...}' >'txt{foo.test...}'

  # Trailing dots are not allowed on Windows.
  #

  : specified-escape
  :
  if ($cxx.target.class != 'windows')
  {
    touch foo.;
    $* <'print txt{fo?..}' >'txt{foo..}'
  }
}