summaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/BitKeeper.py157
-rw-r--r--test/CVS.py125
-rw-r--r--test/RCS.py140
-rw-r--r--test/SCCS.py86
-rw-r--r--test/Subversion.py126
5 files changed, 634 insertions, 0 deletions
diff --git a/test/BitKeeper.py b/test/BitKeeper.py
new file mode 100644
index 0000000..7994a96
--- /dev/null
+++ b/test/BitKeeper.py
@@ -0,0 +1,157 @@
+#!/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__"
+
+"""
+Test fetching source files from BitKeeper.
+"""
+
+import os
+
+import TestSCons
+
+test = TestSCons.TestSCons()
+
+bk = test.where_is('bk')
+if not bk:
+ print "Could not find BitKeeper, skipping test(s)."
+ test.no_result(1)
+
+try:
+ login = os.getlogin()
+except AttributeError:
+ try:
+ login = os.environ['USER']
+ except KeyError:
+ login = 'USER'
+
+host = os.uname()[1]
+
+email = "%s@%s" % (login, host)
+
+test.subdir('BitKeeper', 'import', 'work1', 'work2', 'work3')
+
+# Set up the BitKeeper repository.
+bkroot = test.workpath('BitKeeper')
+bk_conf = test.workpath('bk.conf')
+
+# BitKeeper's licensing restrictions require a configuration file that
+# specifies you're not using it multi-user. This seems to be the
+# minimal configuration that satisfies these requirements.
+test.write(bk_conf, """\
+description:test project 'foo'
+logging:none
+email:%s
+single_user:%s
+single_host:%s
+""" % (email, login, host))
+
+# Plus, we need to set the external environment variable that gets it to
+# shut up and not prompt us to accept the license.
+os.environ['BK_LICENSE'] = 'ACCEPTED'
+
+test.run(chdir = bkroot,
+ program = bk,
+ arguments = 'setup -f -c %s foo' % bk_conf)
+
+test.write(['import', 'aaa.in'], "import/aaa.in\n")
+test.write(['import', 'bbb.in'], "import/bbb.in\n")
+test.write(['import', 'ccc.in'], "import/ccc.in\n")
+
+test.run(chdir = 'import',
+ program = bk,
+ arguments = 'import -q -f -tplain . %s/foo' % bkroot)
+
+# Test the most straightforward BitKeeper checkouts, using the module name.
+test.write(['work1', 'SConstruct'], """
+def cat(env, source, target):
+ target = str(target[0])
+ source = map(str, source)
+ f = open(target, "wb")
+ for src in source:
+ f.write(open(src, "rb").read())
+ f.close()
+env = Environment(BUILDERS={'Cat':Builder(action=cat)})
+env.Cat('aaa.out', 'foo/aaa.in')
+env.Cat('bbb.out', 'foo/bbb.in')
+env.Cat('ccc.out', 'foo/ccc.in')
+env.Cat('all', ['aaa.out', 'bbb.out', 'ccc.out'])
+env.SourceCode('.', env.BitKeeper(r'%s'))
+""" % bkroot)
+
+test.subdir(['work1', 'foo'])
+test.write(['work1', 'foo', 'bbb.in'], "work1/foo/bbb.in\n")
+
+test.run(chdir = 'work1',
+ arguments = '.',
+ stdout = test.wrap_stdout("""\
+bk get -p %s/foo/aaa.in > foo/aaa.in
+cat("aaa.out", "foo/aaa.in")
+cat("bbb.out", "foo/bbb.in")
+bk get -p %s/foo/ccc.in > foo/ccc.in
+cat("ccc.out", "foo/ccc.in")
+cat("all", ["aaa.out", "bbb.out", "ccc.out"])
+""" % (bkroot, bkroot)),
+ stderr = """\
+%s/foo/aaa.in 1.1: 1 lines
+%s/foo/ccc.in 1.1: 1 lines
+""" % (bkroot, bkroot))
+
+test.fail_test(test.read(['work1', 'all']) != "import/aaa.in\nwork1/foo/bbb.in\nimport/ccc.in\n")
+
+# Test BitKeeper checkouts when the module name is specified.
+test.write(['work2', 'SConstruct'], """
+def cat(env, source, target):
+ target = str(target[0])
+ source = map(str, source)
+ f = open(target, "wb")
+ for src in source:
+ f.write(open(src, "rb").read())
+ f.close()
+env = Environment(BUILDERS={'Cat':Builder(action=cat)},
+ BITKEEPERFLAGS='-q')
+env.Cat('aaa.out', 'aaa.in')
+env.Cat('bbb.out', 'bbb.in')
+env.Cat('ccc.out', 'ccc.in')
+env.Cat('all', ['aaa.out', 'bbb.out', 'ccc.out'])
+env.SourceCode('.', env.BitKeeper(r'%s', 'foo'))
+""" % bkroot)
+
+test.write(['work2', 'bbb.in'], "work2/bbb.in\n")
+
+test.run(chdir = 'work2',
+ arguments = '.',
+ stdout = test.wrap_stdout("""\
+bk get -q -p %s/foo/aaa.in > aaa.in
+cat("aaa.out", "aaa.in")
+cat("bbb.out", "bbb.in")
+bk get -q -p %s/foo/ccc.in > ccc.in
+cat("ccc.out", "ccc.in")
+cat("all", ["aaa.out", "bbb.out", "ccc.out"])
+""" % (bkroot, bkroot)))
+
+test.fail_test(test.read(['work2', 'all']) != "import/aaa.in\nwork2/bbb.in\nimport/ccc.in\n")
+
+test.pass_test()
diff --git a/test/CVS.py b/test/CVS.py
new file mode 100644
index 0000000..c94ae8b
--- /dev/null
+++ b/test/CVS.py
@@ -0,0 +1,125 @@
+#!/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__"
+
+"""
+Test fetching source files from CVS.
+"""
+
+import os
+
+import TestSCons
+
+test = TestSCons.TestSCons()
+
+cvs = test.where_is('cvs')
+if not cvs:
+ print "Could not find CVS, skipping test(s)."
+ test.no_result(1)
+
+test.subdir('CVS', 'import', 'work1', 'work2', 'work3')
+
+# Set up the CVS repository.
+cvsroot = test.workpath('CVS')
+
+os.environ['CVSROOT'] = cvsroot
+test.run(program = cvs, arguments = 'init')
+
+test.write(['import', 'aaa.in'], "import/aaa.in\n")
+test.write(['import', 'bbb.in'], "import/bbb.in\n")
+test.write(['import', 'ccc.in'], "import/ccc.in\n")
+
+test.run(chdir = 'import',
+ program = cvs,
+ arguments = '-q import -m "import" foo v v-r')
+
+# Test the most straightforward CVS checkouts, using the module name.
+test.write(['work1', 'SConstruct'], """
+def cat(env, source, target):
+ target = str(target[0])
+ source = map(str, source)
+ f = open(target, "wb")
+ for src in source:
+ f.write(open(src, "rb").read())
+ f.close()
+env = Environment(BUILDERS={'Cat':Builder(action=cat)},
+ CVSFLAGS='-Q')
+env.Cat('aaa.out', 'foo/aaa.in')
+env.Cat('bbb.out', 'foo/bbb.in')
+env.Cat('ccc.out', 'foo/ccc.in')
+env.Cat('all', ['aaa.out', 'bbb.out', 'ccc.out'])
+env.SourceCode('.', env.CVS(r'%s'))
+""" % cvsroot)
+
+test.subdir(['work1', 'foo'])
+test.write(['work1', 'foo', 'bbb.in'], "work1/foo/bbb.in\n")
+
+test.run(chdir = 'work1',
+ arguments = '.',
+ stdout = test.wrap_stdout("""\
+cvs -Q -d %s co -p foo/aaa.in > foo/aaa.in
+cat("aaa.out", "foo/aaa.in")
+cat("bbb.out", "foo/bbb.in")
+cvs -Q -d %s co -p foo/ccc.in > foo/ccc.in
+cat("ccc.out", "foo/ccc.in")
+cat("all", ["aaa.out", "bbb.out", "ccc.out"])
+""" % (cvsroot, cvsroot)))
+
+test.fail_test(test.read(['work1', 'all']) != "import/aaa.in\nwork1/foo/bbb.in\nimport/ccc.in\n")
+
+# Test CVS checkouts when the module name is specified.
+test.write(['work2', 'SConstruct'], """
+def cat(env, source, target):
+ target = str(target[0])
+ source = map(str, source)
+ f = open(target, "wb")
+ for src in source:
+ f.write(open(src, "rb").read())
+ f.close()
+env = Environment(BUILDERS={'Cat':Builder(action=cat)},
+ CVSFLAGS='-q')
+env.Cat('aaa.out', 'aaa.in')
+env.Cat('bbb.out', 'bbb.in')
+env.Cat('ccc.out', 'ccc.in')
+env.Cat('all', ['aaa.out', 'bbb.out', 'ccc.out'])
+env.SourceCode('.', env.CVS(r'%s', 'foo'))
+""" % cvsroot)
+
+test.write(['work2', 'bbb.in'], "work2/bbb.in\n")
+
+test.run(chdir = 'work2',
+ arguments = '.',
+ stdout = test.wrap_stdout("""\
+cvs -q -d %s co -p foo/aaa.in > aaa.in
+cat("aaa.out", "aaa.in")
+cat("bbb.out", "bbb.in")
+cvs -q -d %s co -p foo/ccc.in > ccc.in
+cat("ccc.out", "ccc.in")
+cat("all", ["aaa.out", "bbb.out", "ccc.out"])
+""" % (cvsroot, cvsroot)))
+
+test.fail_test(test.read(['work2', 'all']) != "import/aaa.in\nwork2/bbb.in\nimport/ccc.in\n")
+
+test.pass_test()
diff --git a/test/RCS.py b/test/RCS.py
new file mode 100644
index 0000000..6c0e597
--- /dev/null
+++ b/test/RCS.py
@@ -0,0 +1,140 @@
+#!/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__"
+
+"""
+Test fetching source files from RCS.
+"""
+
+import os.path
+
+import TestSCons
+
+test = TestSCons.TestSCons()
+
+rcs = test.where_is('rcs')
+if not rcs:
+ print "Could not find RCS, skipping test(s)."
+ test.no_result(1)
+
+ci = test.where_is('ci')
+if not ci:
+ print "Could not find `ci' command, skipping test(s)."
+ test.no_result(1)
+
+# Test checkouts from local RCS files
+test.subdir('work1')
+
+for file in ['aaa.in', 'bbb.in', 'ccc.in']:
+ test.write(['work1', file], "work1/%s\n" % file)
+ args = "-f -t%s %s" % (file, file)
+ test.run(chdir = 'work1', program = ci, arguments = args, stderr = None)
+
+test.no_result(os.path.exists(test.workpath('work1', 'aaa.in')))
+test.no_result(os.path.exists(test.workpath('work1', 'bbb.in')))
+test.no_result(os.path.exists(test.workpath('work1', 'ccc.in')))
+
+test.write(['work1', 'SConstruct'], """
+def cat(env, source, target):
+ target = str(target[0])
+ source = map(str, source)
+ f = open(target, "wb")
+ for src in source:
+ f.write(open(src, "rb").read())
+ f.close()
+env = Environment(BUILDERS={'Cat':Builder(action=cat)})
+env.Cat('aaa.out', 'aaa.in')
+env.Cat('bbb.out', 'bbb.in')
+env.Cat('ccc.out', 'ccc.in')
+env.Cat('all', ['aaa.out', 'bbb.out', 'ccc.out'])
+env.SourceCode('.', env.RCS())
+""")
+
+test.write(['work1', 'bbb.in'], "checked-out work1/bbb.in\n")
+
+test.run(chdir = 'work1',
+ arguments = '.',
+ stdout = test.wrap_stdout("""\
+co -p aaa.in,v > aaa.in
+cat("aaa.out", "aaa.in")
+cat("bbb.out", "bbb.in")
+co -p ccc.in,v > ccc.in
+cat("ccc.out", "ccc.in")
+cat("all", ["aaa.out", "bbb.out", "ccc.out"])
+"""),
+ stderr = """\
+aaa.in,v --> standard output
+revision 1.1
+ccc.in,v --> standard output
+revision 1.1
+""")
+
+test.fail_test(test.read(['work1', 'all']) != "work1/aaa.in\nchecked-out work1/bbb.in\nwork1/ccc.in\n")
+
+# Test RCS checkouts from an RCS subdirectory.
+test.subdir('work2', ['work2', 'RCS'])
+
+for file in ['aaa.in', 'bbb.in', 'ccc.in']:
+ test.write(['work2', file], "work2/%s\n" % file)
+ args = "-f -t%s %s" % (file, file)
+ test.run(chdir = 'work2', program = ci, arguments = args, stderr = None)
+
+test.no_result(os.path.exists(test.workpath('work2', 'aaa.in')))
+test.no_result(os.path.exists(test.workpath('work2', 'bbb.in')))
+test.no_result(os.path.exists(test.workpath('work2', 'ccc.in')))
+
+test.write(['work2', 'SConstruct'], """
+def cat(env, source, target):
+ target = str(target[0])
+ source = map(str, source)
+ f = open(target, "wb")
+ for src in source:
+ f.write(open(src, "rb").read())
+ f.close()
+env = Environment(BUILDERS={'Cat':Builder(action=cat)},
+ RCSFLAGS='-q')
+env.Cat('aaa.out', 'aaa.in')
+env.Cat('bbb.out', 'bbb.in')
+env.Cat('ccc.out', 'ccc.in')
+env.Cat('all', ['aaa.out', 'bbb.out', 'ccc.out'])
+env.SourceCode('.', env.RCS())
+""")
+
+test.write(['work2', 'bbb.in'], "checked-out work2/bbb.in\n")
+
+test.run(chdir = 'work2',
+ arguments = '.',
+ stdout = test.wrap_stdout("""\
+co -q -p aaa.in,v > aaa.in
+cat("aaa.out", "aaa.in")
+cat("bbb.out", "bbb.in")
+co -q -p ccc.in,v > ccc.in
+cat("ccc.out", "ccc.in")
+cat("all", ["aaa.out", "bbb.out", "ccc.out"])
+"""))
+
+test.fail_test(test.read(['work2', 'all']) != "work2/aaa.in\nchecked-out work2/bbb.in\nwork2/ccc.in\n")
+
+test.pass_test()
diff --git a/test/SCCS.py b/test/SCCS.py
new file mode 100644
index 0000000..a25f222
--- /dev/null
+++ b/test/SCCS.py
@@ -0,0 +1,86 @@
+#!/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__"
+
+"""
+Test fetching source files from SCCS.
+"""
+
+import TestSCons
+
+test = TestSCons.TestSCons()
+
+sccs = test.where_is('sccs')
+if not sccs:
+ print "Could not find SCCS, skipping test(s)."
+ test.no_result(1)
+
+# Test checkouts from local SCCS files.
+test.subdir('work1')
+
+test.preserve()
+
+for file in ['aaa.in', 'bbb.in', 'ccc.in']:
+ test.write(['work1', file], "work1/%s\n" % file)
+ args = "create %s" % file
+ test.run(chdir = 'work1', program = sccs, arguments = args, stderr = None)
+ test.unlink(['work1', file])
+ test.unlink(['work1', ','+file])
+
+test.write(['work1', 'SConstruct'], """
+def cat(env, source, target):
+ target = str(target[0])
+ source = map(str, source)
+ f = open(target, "wb")
+ for src in source:
+ f.write(open(src, "rb").read())
+ f.close()
+env = Environment(BUILDERS={'Cat':Builder(action=cat)})
+env.Cat('aaa.out', 'aaa.in')
+env.Cat('bbb.out', 'bbb.in')
+env.Cat('ccc.out', 'ccc.in')
+env.Cat('all', ['aaa.out', 'bbb.out', 'ccc.out'])
+env.SourceCode('.', env.SCCS())
+""")
+
+test.write(['work1', 'bbb.in'], "checked-out work1/bbb.in\n")
+
+test.run(chdir = 'work1',
+ arguments = '.',
+ stdout = test.wrap_stdout("""\
+sccs get aaa.in
+cat("aaa.out", "aaa.in")
+cat("bbb.out", "bbb.in")
+sccs get ccc.in
+cat("ccc.out", "ccc.in")
+cat("all", ["aaa.out", "bbb.out", "ccc.out"])
+"""), stderr = """\
+aaa.in 1.1: 1 lines
+ccc.in 1.1: 1 lines
+""")
+
+test.fail_test(test.read(['work1', 'all']) != "work1/aaa.in\nchecked-out work1/bbb.in\nwork1/ccc.in\n")
+
+test.pass_test()
diff --git a/test/Subversion.py b/test/Subversion.py
new file mode 100644
index 0000000..648a131
--- /dev/null
+++ b/test/Subversion.py
@@ -0,0 +1,126 @@
+#!/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__"
+
+"""
+Test fetching source files from Subversion.
+"""
+
+import TestSCons
+
+test = TestSCons.TestSCons()
+
+svn = test.where_is('svn')
+if not svn:
+ print "Could not find Subversion, skipping test(s)."
+ test.no_result(1)
+
+svnadmin = test.where_is('svnadmin')
+if not svn:
+ print "Could not find Subversion, skipping test(s)."
+ test.no_result(1)
+
+test.subdir('Subversion', 'import', 'work1', 'work2', 'work3')
+
+# Set up the Subversion repository.
+svnrootpath = test.workpath('Subversion')
+svnrooturl = 'file://' + svnrootpath
+
+test.run(program = svnadmin, arguments = 'create %s' % svnrootpath)
+
+test.write(['import', 'aaa.in'], "import/aaa.in\n")
+test.write(['import', 'bbb.in'], "import/bbb.in\n")
+test.write(['import', 'ccc.in'], "import/ccc.in\n")
+
+test.run(chdir = 'import',
+ program = svn,
+ arguments = 'import %s . foo -m"import foo"' % svnrooturl)
+
+# Test the most straightforward Subversion checkouts, using the module name.
+test.write(['work1', 'SConstruct'], """
+def cat(env, source, target):
+ target = str(target[0])
+ source = map(str, source)
+ f = open(target, "wb")
+ for src in source:
+ f.write(open(src, "rb").read())
+ f.close()
+env = Environment(BUILDERS={'Cat':Builder(action=cat)})
+env.Cat('aaa.out', 'foo/aaa.in')
+env.Cat('bbb.out', 'foo/bbb.in')
+env.Cat('ccc.out', 'foo/ccc.in')
+env.Cat('all', ['aaa.out', 'bbb.out', 'ccc.out'])
+env.SourceCode('.', env.Subversion(r'%s'))
+""" % svnrooturl)
+
+test.subdir(['work1', 'foo'])
+test.write(['work1', 'foo', 'bbb.in'], "work1/foo/bbb.in\n")
+
+test.run(chdir = 'work1',
+ arguments = '.',
+ stdout = test.wrap_stdout("""\
+svn cat %s/foo/aaa.in > foo/aaa.in
+cat("aaa.out", "foo/aaa.in")
+cat("bbb.out", "foo/bbb.in")
+svn cat %s/foo/ccc.in > foo/ccc.in
+cat("ccc.out", "foo/ccc.in")
+cat("all", ["aaa.out", "bbb.out", "ccc.out"])
+""" % (svnrooturl, svnrooturl)))
+
+test.fail_test(test.read(['work1', 'all']) != "import/aaa.in\nwork1/foo/bbb.in\nimport/ccc.in\n")
+
+# Test Subversion checkouts when the module name is specified.
+test.write(['work2', 'SConstruct'], """
+def cat(env, source, target):
+ target = str(target[0])
+ source = map(str, source)
+ f = open(target, "wb")
+ for src in source:
+ f.write(open(src, "rb").read())
+ f.close()
+env = Environment(BUILDERS={'Cat':Builder(action=cat)})
+env.Cat('aaa.out', 'aaa.in')
+env.Cat('bbb.out', 'bbb.in')
+env.Cat('ccc.out', 'ccc.in')
+env.Cat('all', ['aaa.out', 'bbb.out', 'ccc.out'])
+env.SourceCode('.', env.Subversion(r'%s', 'foo'))
+""" % svnrooturl)
+
+test.write(['work2', 'bbb.in'], "work2/bbb.in\n")
+
+test.run(chdir = 'work2',
+ arguments = '.',
+ stdout = test.wrap_stdout("""\
+svn cat %s/foo/aaa.in > aaa.in
+cat("aaa.out", "aaa.in")
+cat("bbb.out", "bbb.in")
+svn cat %s/foo/ccc.in > ccc.in
+cat("ccc.out", "ccc.in")
+cat("all", ["aaa.out", "bbb.out", "ccc.out"])
+""" % (svnrooturl, svnrooturl)))
+
+test.fail_test(test.read(['work2', 'all']) != "import/aaa.in\nwork2/bbb.in\nimport/ccc.in\n")
+
+test.pass_test()