Ticket #1459: patch.txt

File patch.txt, 835 bytes (added by bojinlund, 22 months ago)

Patch

Line 
1Index: t/11_svn.t
2===================================================================
3--- t/11_svn.t  (revision 19529)
4+++ t/11_svn.t  (working copy)
5@@ -7,7 +7,7 @@
6 use Test::More;
7 
8 BEGIN {
9-   if ( -d '.svn' ) {
10+   if ( -d '.svn/props' || -d '.svn/prop-base') {
11        plan tests => 4;
12    } else {
13        plan skip_all => 'Not in an SVN checkout';
14Index: t/12_mime.t
15===================================================================
16--- t/12_mime.t (revision 19529)
17+++ t/12_mime.t (working copy)
18@@ -60,7 +60,7 @@
19 
20 # Detect the mime type using svn metadata
21 SKIP: {
22-   skip( "Not an SVN checkout", 3 ) unless -e '.svn';
23+   skip( "Not an SVN checkout", 3 ) unless -d '.svn/props' || -d '.svn/prop-base';
24 
25    my $file = catfile( 't', 'perl', 'zerolengthperl' );
26    ok( -f $file, "Found zero length perl file $file" );