Added svn-patchsites test.

git-svn-id: https://svn.macports.org/repository/macports/branches/gsoc13-tests@107747 d073be05-634f-4543-b044-5fe20cf6d1d6

tests/test/svn-and-patchsites/DESCRIPTION

@@ -0,0 +1,4 @@
+This test checks fetching using svn and downloading of patchfiles from
+the URL given by patch_sites.
+
+There is 1 test case which looks for errors in the output file.

tests/test/svn-and-patchsites/master

@@ -1,7 +0,0 @@
---->  Fetching distfiles for svn-and-patchsites
---->  Attempting to fetch patch-1.5.14.dgc.xlabel_ext.9 from http://home.uchicago.edu/~dgc/sw/mutt/
---->  Verifying checksums for svn-and-patchsites
---->  Extracting svn-and-patchsites
---->  Configuring svn-and-patchsites
---->  Building svn-and-patchsites
---->  Testing svn-and-patchsites

tests/test/svn-and-patchsites/test.tcl

@@ -0,0 +1,30 @@
+package require tcltest 2
+namespace import tcltest::*
+
+source [file dirname $argv0]/../library.tcl
+set path [file dirname [file normalize $argv0]]
+
+initial_setup
+
+proc svn-patch {} {
+    global output_file
+    global path
+
+    set svn "error*"
+    set line [get_line $path/$output_file $svn]
+    if {$line == -1} {
+        return "No error found."
+    } else {
+        return "Errors found in output file."
+    }
+}
+
+test svn-patchsites {
+    Regression test for svn-and-patchsites.
+} -body {
+    svn-patch
+} -result "No error found."
+
+
+cleanup
+cleanupTests