summaryrefslogtreecommitdiff
path: root/tests/scripts/options/symlinks
blob: 40d25648a939d1f40a6902b4254e6fa364f7a209 (plain)
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
#                                                                    -*-perl-*-

$description = "Test the -L option.";

$details = "Verify that symlink handling with and without -L works properly.";

# Only run these tests if the system sypports symlinks

# Apparently the Windows port of Perl reports that it does support symlinks
# (in that the symlink() function doesn't fail) but it really doesn't, so
# check for it explicitly.

if ($port_type eq 'W32' || !( eval { symlink("",""); 1 })) {
  # This test is N/A 
  -1;
} else {

  # Set up a symlink sym -> dep
  # We'll make both dep and targ older than sym
  $pwd =~ m%/([^/]+)$%;
  $dirnm = $1;
  &utouch(-10, 'dep');
  &utouch(-5, 'targ');
  symlink("../$dirnm/dep", 'sym');

  # Without -L, nothing should happen
  # With -L, it should update targ
  run_make_test('targ: sym ; @echo make $@ from $<', '',
                "#MAKE#: `targ' is up to date.");
  run_make_test(undef, '-L', "make targ from sym");

  # Now update dep; in all cases targ should be out of date.
  &touch('dep');
  run_make_test(undef, '', "make targ from sym");
  run_make_test(undef, '-L', "make targ from sym");

  # Now update targ; in all cases targ should be up to date.
  &touch('targ');
  run_make_test(undef, '', "#MAKE#: `targ' is up to date.");
  run_make_test(undef, '-L', "#MAKE#: `targ' is up to date.");

  # Add in a new link between sym and dep.  Be sure it's newer than targ.
  sleep(1);
  rename('dep', 'dep1');
  symlink('dep1', 'dep');

  # Without -L, nothing should happen
  # With -L, it should update targ
  run_make_test(undef, '', "#MAKE#: `targ' is up to date.");
  run_make_test(undef, '-L', "make targ from sym");

  rmfiles('targ', 'dep', 'sym', 'dep1');

  # Check handling when symlinks point to non-existent files.  Without -L we
  # should get an error: with -L we should use the timestamp of the symlink.

  symlink("../$dirname/dep", 'sym');
  run_make_test('targ: sym ; @echo make $@ from $<', '',
                "#MAKE#: *** No rule to make target `sym', needed by `targ'.  Stop.", 512);

  run_make_test('targ: sym ; @echo make $@ from $<', '-L',
                'make targ from sym');


  rmfiles('targ', 'sym');

  1;
}