Ticket #1459: patch2.txt

File patch2.txt, 929 bytes (added by bojinlund, 23 months ago)

Patch handling 'svn not in PATH'

Line 
1Index: t/11_svn.t
2===================================================================
3--- t/11_svn.t  (revision 19670)
4+++ t/11_svn.t  (working copy)
5@@ -22,6 +22,7 @@
6 
7 SKIP: {
8    skip( "svn version 1.7.x is not supported by Padre::SVN", 3 ) if Padre::Util::SVN::local_svn_ver();
9+        skip( 'svn not in PATH', 3 ) unless File::Which::which('svn');
10 
11    my $t = catfile( 't', '11_svn.t' );
12    ok( -f $t, "Found file $t" );
13Index: t/12_mime.t
14===================================================================
15--- t/12_mime.t (revision 19670)
16+++ t/12_mime.t (working copy)
17@@ -61,6 +61,7 @@
18 # Detect the mime type using svn metadata
19 SKIP: {
20    skip( "Not an SVN checkout", 3 ) unless -e '.svn' || !Padre::Util::SVN::local_svn_ver();
21+        skip( 'svn not in PATH', 3 ) unless File::Which::which('svn');
22 
23    my $file = catfile( 't', 'perl', 'zerolengthperl' );
24    ok( -f $file, "Found zero length perl file $file" );