[svn:parrot] r17365 - trunk/t/codingstd

[fperrad]

Author: fperrad
Date: Tue Mar  6 02:49:21 2007
New Revision: 17365

Modified:
   trunk/t/codingstd/line_endings.t

Log:
[t]
- test if modules SVK are present


Modified: trunk/t/codingstd/line_endings.t
==============================================================================
--- trunk/t/codingstd/line_endings.t    (original)
+++ trunk/t/codingstd/line_endings.t    Tue Mar  6 02:49:21 2007
@@ -15,6 +15,14 @@
     if ($@) {
         plan skip_all => 'SVN::Client not installed';
     }
+    eval {
+        require SVK;
+        require SVK::XD;
+        require SVK::Util;
+    };
+    if ($@) {
+        warn "SVK not installed\n";
+    }
 }
 
 # are we using svk?
@@ -127,15 +135,12 @@
 }
 
 sub is_svk_working_dir {
-    use SVK;
-    use SVK::XD;
-    use SVK::Util qw(catfile);
 
     # set up svk so that we can use it
-    my $svkpath = $ENV{SVKROOT} || catfile( $ENV{HOME}, ".svk" );
+    my $svkpath = $ENV{SVKROOT} || SVK::Util::catfile( $ENV{HOME}, ".svk" );
     my $xd = SVK::XD->new(
-        giantlock => catfile( $svkpath, 'lock' ),
-        statefile => catfile( $svkpath, 'config' ),
+        giantlock => SVK::Util::catfile( $svkpath, 'lock' ),
+        statefile => SVK::Util::catfile( $svkpath, 'config' ),
         svkpath   => $svkpath,
     );