← Back to branch summary

~ubuntu-branches/ubuntu/utopic/gridengine/utopic

« back to all changes in this revision

Viewing changes to source/3rdparty/qmake/tests/scripts/functions/join

  • Committer: Bazaar Package Importer
  • Author(s): Mark Hymers
  • Date: 2008-06-25 22:36:13 UTC
  • Revision ID: james.westby@ubuntu.com-20080625223613-tvd9xlhuoct9kyhm
Tags: upstream-6.2~beta2
Import upstream version 6.2~beta2

Show diffs side-by-side

added added

removed removed

Lines of Context:
source/3rdparty/qmake/tests/scripts/functions/join
 
1
$description = "The following test creates a makefile to test the join "
 
2
              ."function.";
 
3
 
 
4
$details = "";
 
5
 
 
6
# IF YOU NEED >1 MAKEFILE FOR THIS TEST, USE &get_tmpfile; TO GET
 
7
# THE NAME OF THE MAKEFILE.  THIS INSURES CONSISTENCY AND KEEPS TRACK OF
 
8
# HOW MANY MAKEFILES EXIST FOR EASY DELETION AT THE END.
 
9
# EXAMPLE: $makefile2 = &get_tmpfile;
 
10
 
 
11
 
 
12
open(MAKEFILE,"> $makefile");
 
13
 
 
14
# The Contents of the MAKEFILE ...
 
15
 
 
16
print MAKEFILE "string := \$(join a b c,foo      hacks .pl1) \n"
 
17
              ."all: \n"
 
18
              ."\t\@echo \$(string) \n";
 
19
 
 
20
# END of Contents of MAKEFILE
 
21
 
 
22
close(MAKEFILE);
 
23
 
 
24
&run_make_with_options($makefile,"",&get_logfile,0);
 
25
 
 
26
# Create the answer to what should be produced by this Makefile
 
27
$answer = "afoo bhacks c.pl1\n";
 
28
 
 
29
# COMPARE RESULTS
 
30
 
 
31
# In this call to compare output, you should use the call &get_logfile(1)
 
32
# to send the name of the last logfile created.  You may also use
 
33
# the special call &get_logfile(1) which returns the same as &get_logfile(1).
 
34
 
 
35
&compare_output($answer,&get_logfile(1));
 
36
 
 
37
# This tells the test driver that the perl test script executed properly.
 
38
1;
 
39
 
 
40
 
 
41
 
 
42
 
 
43
 
 
44