Permalink
Browse files

use Dir::Self to load /bin/duckpan

  • Loading branch information...
majuscule committed Jan 30, 2013
1 parent 6442495 commit 4d4f3d6d38a6203f714898a654b009f5dc634908
Showing with 8 additions and 3 deletions.
  1. +1 −0 dist.ini
  2. +7 −3 t/01-cmds.t
View
@@ -65,6 +65,7 @@ Test::More = 0.98
Test::LoadAllModules = 0.021
File::Temp = 0.22
Test::Script::Run = 0.05
+Dir::Self = 0.10
[UploadToDuckPAN]
View
@@ -4,21 +4,25 @@ use strict;
use warnings;
use Test::More;
use Test::Expect;
+use Dir::Self;
+
+my $duckpan = __DIR__ . '/../bin/duckpan';
+my $test_dist = __DIR__ . '/test_dist';
expect_run(
- command => "cd t/test_dist && ../../bin/duckpan query",
+ command => "cd $test_dist && $duckpan query",
prompt => 'Query: ',
quit => '',
);
expect_run(
- command => "cd t/test_dist && ../../bin/duckpan query Goodie::TwoShoes",
+ command => "cd $test_dist && $duckpan query Goodie::TwoShoes",
prompt => 'Query: ',
quit => '',
);
expect_run(
- command => "cd t/test_dist && ../../bin/duckpan query Spice::NagaBhutJolokiaDax",
+ command => "cd $test_dist && $duckpan query Spice::NagaBhutJolokiaDax",
prompt => 'Query: ',
quit => '',
);

0 comments on commit 4d4f3d6

Please sign in to comment.