tests/test/script/builtin/touch.testscript


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

# file      : tests/test/script/builtin/touch.testscript
# copyright : Copyright (c) 2014-2019 Code Synthesis Ltd
# license   : MIT; see accompanying LICENSE file

.include ../common.testscript

: cleanup
:
{
  : enabled
  :
  $c <'touch a' && $b

  : disabled
  :
  $c <<EOI && $b
    touch --no-cleanup a;
    rm a
    EOI

  : existing
  :
  : Test that touching an existing file does not register cleanup. If it does
  : then the file would be removed while leaving the embedded scope, and so
  : the cleanup registered by the first touch would fail.
  :
  $c <<EOI && $b
    {
      +touch a
      {
        touch ../a
      }
    }
    EOI
}