summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSteven Knight <knight@baldmt.com>2005-08-13 15:38:41 (GMT)
committerSteven Knight <knight@baldmt.com>2005-08-13 15:38:41 (GMT)
commite7bc4330bd90e5250174c41023f1a2b671479857 (patch)
tree3c3c852736edf4671dec3e09237fa920e3da2bec
parentb48f4cb7b1bc00ca606bd71191fcddcc99be53f6 (diff)
downloadSCons-e7bc4330bd90e5250174c41023f1a2b671479857.zip
SCons-e7bc4330bd90e5250174c41023f1a2b671479857.tar.gz
SCons-e7bc4330bd90e5250174c41023f1a2b671479857.tar.bz2
Allow access to both TARGET and SOURCE in hBcfunctions within CPPPATH expansion. (Stanislav Baranov)
-rw-r--r--test/Fortran/FORTRANPATH.py144
1 files changed, 125 insertions, 19 deletions
diff --git a/test/Fortran/FORTRANPATH.py b/test/Fortran/FORTRANPATH.py
index fc40bf1..618bea8 100644
--- a/test/Fortran/FORTRANPATH.py
+++ b/test/Fortran/FORTRANPATH.py
@@ -38,20 +38,28 @@ args = prog + ' ' + subdir_prog + ' ' + variant_prog
test = TestSCons.TestSCons()
-if not test.detect('F77', 'g77'):
+if not test.detect('_FORTRANG', 'g77'):
test.skip_test('Found no $F77 tool; skipping test.\n')
-test.subdir('include', 'subdir', ['subdir', 'include'], 'inc2')
+test.subdir('include',
+ 'subdir',
+ ['subdir', 'include'],
+ 'foobar',
+ 'inc2')
+
+
test.write('SConstruct', """
-env = Environment(FORTRANPATH = ['$FOO'], LIBS = %s, FOO='include')
+env = Environment(FORTRANPATH = ['$FOO', '${TARGET.dir}', '${SOURCE.dir}'],
+ LIBS = %s, FOO='include')
obj = env.Object(target='foobar/prog', source='subdir/prog.f')
env.Program(target='prog', source=obj)
SConscript('subdir/SConscript', "env")
BuildDir('variant', 'subdir', 0)
include = Dir('include')
-env = Environment(FORTRANPATH=[include], LIBS = %s)
+env = Environment(FORTRANPATH=[include, '#foobar', '#subdir'],
+ LIBS = %s)
SConscript('variant/SConscript', "env")
""" % (FTN_LIB, FTN_LIB))
@@ -77,6 +85,8 @@ r"""
PROGRAM PROG
PRINT *, 'subdir/prog.f'
include 'foo.f'
+ include 'sss.f'
+ include 'ttt.f'
STOP
END
""")
@@ -92,24 +102,54 @@ r"""
PRINT *, 'subdir/include/bar.f 1'
""")
+test.write(['subdir', 'sss.f'],
+r"""
+ PRINT *, 'subdir/sss.f'
+""")
+
+test.write(['subdir', 'ttt.f'],
+r"""
+ PRINT *, 'subdir/ttt.f'
+""")
+
test.run(arguments = args)
test.run(program = test.workpath(prog),
- stdout = " subdir/prog.f\n include/foo.f 1\n include/bar.f 1\n")
+ stdout = """\
+ subdir/prog.f
+ include/foo.f 1
+ include/bar.f 1
+ subdir/sss.f
+ subdir/ttt.f
+""")
test.run(program = test.workpath(subdir_prog),
- stdout = " subdir/prog.f\n subdir/include/foo.f 1\n subdir/include/bar.f 1\n")
+ stdout = """\
+ subdir/prog.f
+ subdir/include/foo.f 1
+ subdir/include/bar.f 1
+ subdir/sss.f
+ subdir/ttt.f
+""")
test.run(program = test.workpath(variant_prog),
- stdout = " subdir/prog.f\n include/foo.f 1\n include/bar.f 1\n")
+ stdout = """\
+ subdir/prog.f
+ include/foo.f 1
+ include/bar.f 1
+ subdir/sss.f
+ subdir/ttt.f
+""")
# Make sure we didn't duplicate the source file in the variant subdirectory.
test.must_not_exist(test.workpath('variant', 'prog.f'))
test.up_to_date(arguments = args)
+
+
test.write(['include', 'foo.f'],
r"""
PRINT *, 'include/foo.f 2'
@@ -119,19 +159,39 @@ r"""
test.run(arguments = args)
test.run(program = test.workpath(prog),
- stdout = " subdir/prog.f\n include/foo.f 2\n include/bar.f 1\n")
+ stdout = """\
+ subdir/prog.f
+ include/foo.f 2
+ include/bar.f 1
+ subdir/sss.f
+ subdir/ttt.f
+""")
test.run(program = test.workpath(subdir_prog),
- stdout = " subdir/prog.f\n subdir/include/foo.f 1\n subdir/include/bar.f 1\n")
+ stdout = """\
+ subdir/prog.f
+ subdir/include/foo.f 1
+ subdir/include/bar.f 1
+ subdir/sss.f
+ subdir/ttt.f
+""")
test.run(program = test.workpath(variant_prog),
- stdout = " subdir/prog.f\n include/foo.f 2\n include/bar.f 1\n")
+ stdout = """\
+ subdir/prog.f
+ include/foo.f 2
+ include/bar.f 1
+ subdir/sss.f
+ subdir/ttt.f
+""")
# Make sure we didn't duplicate the source file in the variant subdirectory.
test.must_not_exist(test.workpath('variant', 'prog.f'))
test.up_to_date(arguments = args)
+
+
#
test.write(['include', 'bar.f'],
r"""
@@ -141,34 +201,58 @@ r"""
test.run(arguments = args)
test.run(program = test.workpath(prog),
- stdout = " subdir/prog.f\n include/foo.f 2\n include/bar.f 2\n")
+ stdout = """\
+ subdir/prog.f
+ include/foo.f 2
+ include/bar.f 2
+ subdir/sss.f
+ subdir/ttt.f
+""")
test.run(program = test.workpath(subdir_prog),
- stdout = " subdir/prog.f\n subdir/include/foo.f 1\n subdir/include/bar.f 1\n")
+ stdout = """\
+ subdir/prog.f
+ subdir/include/foo.f 1
+ subdir/include/bar.f 1
+ subdir/sss.f
+ subdir/ttt.f
+""")
test.run(program = test.workpath(variant_prog),
- stdout = " subdir/prog.f\n include/foo.f 2\n include/bar.f 2\n")
+ stdout = """\
+ subdir/prog.f
+ include/foo.f 2
+ include/bar.f 2
+ subdir/sss.f
+ subdir/ttt.f
+""")
# Make sure we didn't duplicate the source file in the variant subdirectory.
test.must_not_exist(test.workpath('variant', 'prog.f'))
test.up_to_date(arguments = args)
+
+
# Change FORTRANPATH and make sure we don't rebuild because of it.
test.write('SConstruct', """
-env = Environment(FORTRANPATH = Split('inc2 include'), LIBS = %s)
+env = Environment(FORTRANPATH = Split('inc2 include ${TARGET.dir} ${SOURCE.dir}'),
+ LIBS = %s)
obj = env.Object(target='foobar/prog', source='subdir/prog.f')
env.Program(target='prog', source=obj)
SConscript('subdir/SConscript', "env")
BuildDir('variant', 'subdir', 0)
include = Dir('include')
-env = Environment(FORTRANPATH=['inc2', include], LIBS = %s)
+env = Environment(FORTRANPATH=['inc2', include, '#foobar', '#subdir'],
+ LIBS = %s)
SConscript('variant/SConscript', "env")
""" % (FTN_LIB, FTN_LIB))
test.up_to_date(arguments = args)
+
+
#
test.write(['inc2', 'foo.f'],
r"""
@@ -179,24 +263,46 @@ r"""
test.run(arguments = args)
test.run(program = test.workpath(prog),
- stdout = " subdir/prog.f\n inc2/foo.f 1\n include/bar.f 2\n")
+ stdout = """\
+ subdir/prog.f
+ inc2/foo.f 1
+ include/bar.f 2
+ subdir/sss.f
+ subdir/ttt.f
+""")
test.run(program = test.workpath(subdir_prog),
- stdout = " subdir/prog.f\n subdir/include/foo.f 1\n subdir/include/bar.f 1\n")
+ stdout = """\
+ subdir/prog.f
+ subdir/include/foo.f 1
+ subdir/include/bar.f 1
+ subdir/sss.f
+ subdir/ttt.f
+""")
test.run(program = test.workpath(variant_prog),
- stdout = " subdir/prog.f\n include/foo.f 2\n include/bar.f 2\n")
+ stdout = """\
+ subdir/prog.f
+ include/foo.f 2
+ include/bar.f 2
+ subdir/sss.f
+ subdir/ttt.f
+""")
test.up_to_date(arguments = args)
+
+
# Check that a null-string FORTRANPATH doesn't blow up.
test.write('SConstruct', """
env = Environment(FORTRANPATH = '', LIBS = %s)
-env.Library('foo', source = 'empty.f')
+env.Object('foo', source = 'empty.f')
""" % FTN_LIB)
test.write('empty.f', '')
test.run(arguments = '.')
+
+
test.pass_test()