src/kmk/tests/scripts/targets/clean


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

#                                                                    -*-perl-*-

$description = "The following test creates a makefile to delete a \n"
              ."file in the directory.  It tests to see if make will \n"
              ."NOT execute the command unless the rule is given in \n"
              ."the make command line.";

$example = "EXAMPLE_FILE";

open(MAKEFILE,"> $makefile");

# The Contents of the MAKEFILE ...

print MAKEFILE "all: \n";
print MAKEFILE "\t\@echo This makefile did not clean the dir... good\n";
print MAKEFILE "clean: \n";
print MAKEFILE "\t$delete_command EXAMPLE_FILE\n";

# END of Contents of MAKEFILE

close(MAKEFILE);

&touch($example);


&run_make_with_options($makefile,"",&get_logfile,0);

# Create the answer to what should be produced by this Makefile
$answer = "This makefile did not clean the dir... good\n";

&compare_output($answer,&get_logfile(1)) || &error ("abort");


$answer = "$delete_command $example\n";
&run_make_with_options($makefile,"clean",&get_logfile,0);
if (-f $example) {
  $test_passed = 0;
}
&compare_output($answer,&get_logfile(1)) || &error ("abort");

1;