#!/usr/bin/env python # # __COPYRIGHT__ # # Permission is hereby granted, free of charge, to any person obtaining # a copy of this software and associated documentation files (the # "Software"), to deal in the Software without restriction, including # without limitation the rights to use, copy, modify, merge, publish, # distribute, sublicense, and/or sell copies of the Software, and to # permit persons to whom the Software is furnished to do so, subject to # the following conditions: # # The above copyright notice and this permission notice shall be included # in all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY # KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE # WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND # NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE # LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION # OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. # __revision__ = "__FILE__ __REVISION__ __DATE__ __DEVELOPER__" import os import sys import TestSCons _exe = TestSCons._exe FTN_LIB = TestSCons.fortran_lib prog = 'prog' + _exe subdir_prog = os.path.join('subdir', 'prog' + _exe) variant_prog = os.path.join('variant', 'prog' + _exe) args = prog + ' ' + subdir_prog + ' ' + variant_prog test = TestSCons.TestSCons() if not test.detect('F77', 'g77'): test.pass_test() test.subdir('include', 'subdir', ['subdir', 'include'], 'inc2') test.write('SConstruct', """ env = Environment(F77PATH = ['$FOO'], 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(F77PATH=[include], LIBS = %s) SConscript('variant/SConscript', "env") """ % (FTN_LIB, FTN_LIB)) test.write(['subdir', 'SConscript'], """ Import("env") env.Program(target='prog', source='prog.f') """) test.write(['include', 'foo.f'], r""" PRINT *, 'include/foo.f 1' INCLUDE 'bar.f' """) test.write(['include', 'bar.f'], r""" PRINT *, 'include/bar.f 1' """) test.write(['subdir', 'prog.f'], r""" PROGRAM PROG PRINT *, 'subdir/prog.f' include 'foo.f' STOP END """) test.write(['subdir', 'include', 'foo.f'], r""" PRINT *, 'subdir/include/foo.f 1' INCLUDE 'bar.f' """) test.write(['subdir', 'include', 'bar.f'], r""" PRINT *, 'subdir/include/bar.f 1' """) 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") test.run(program = test.workpath(subdir_prog), stdout = " subdir/prog.f\n subdir/include/foo.f 1\n subdir/include/bar.f 1\n") test.run(program = test.workpath(variant_prog), stdout = " subdir/prog.f\n include/foo.f 1\n include/bar.f 1\n") # 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' INCLUDE 'bar.f' """) 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") test.run(program = test.workpath(subdir_prog), stdout = " subdir/prog.f\n subdir/include/foo.f 1\n subdir/include/bar.f 1\n") test.run(program = test.workpath(variant_prog), stdout = " subdir/prog.f\n include/foo.f 2\n include/bar.f 1\n") # 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""" PRINT *, 'include/bar.f 2' """) 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") test.run(program = test.workpath(subdir_prog), stdout = " subdir/prog.f\n subdir/include/foo.f 1\n subdir/include/bar.f 1\n") test.run(program = test.workpath(variant_prog), stdout = " subdir/prog.f\n include/foo.f 2\n include/bar.f 2\n") # 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 F77PATH and make sure we don't rebuild because of it. test.write('SConstruct', """ env = Environment(F77PATH = Split('inc2 include'), 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(F77PATH=['inc2', include], LIBS = %s) SConscript('variant/SConscript', "env") """ % (FTN_LIB, FTN_LIB)) test.up_to_date(arguments = args) # test.write(['inc2', 'foo.f'], r""" PRINT *, 'inc2/foo.f 1' INCLUDE 'bar.f' """) 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") test.run(program = test.workpath(subdir_prog), stdout = " subdir/prog.f\n subdir/include/foo.f 1\n subdir/include/bar.f 1\n") test.run(program = test.workpath(variant_prog), stdout = " subdir/prog.f\n include/foo.f 2\n include/bar.f 2\n") test.up_to_date(arguments = args) # Check that a null-string F77PATH doesn't blow up. test.write('SConstruct', """ env = Environment(F77PATH = '', LIBS = %s) env.Library('foo', source = 'empty.f') """ % FTN_LIB) test.write('empty.f', '') test.run(arguments = '.') test.pass_test()