Permalink
Browse files

moved test lib & configured cmds test for dist bin

  • Loading branch information...
1 parent 307c8ac commit d38df62bca5d8b976580a9427e384264b48b889c @majuscule majuscule committed Feb 15, 2013
View
@@ -4,25 +4,30 @@ use strict;
use warnings;
use Test::More;
use Test::Expect;
+use Test::Script::Run;
+use File::chdir;
use Dir::Self;
-my $duckpan = __DIR__ . '/../bin/duckpan';
-my $test_dist = __DIR__ . '/test_dist';
+use Data::Dumper;
+
+my $query = join ' ', Test::Script::Run::get_perl_cmd('duckpan', 'query');
+
+chdir(__DIR__);
expect_run(
- command => "cd $test_dist && $duckpan query",
+ command => $query,
prompt => 'Query: ',
quit => '',
);
expect_run(
- command => "cd $test_dist && $duckpan query Goodie::TwoShoes",
+ command => "$query Goodie::TwoShoes",
prompt => 'Query: ',
quit => '',
);
expect_run(
- command => "cd $test_dist && $duckpan query Spice::NagaBhutJolokiaDax",
+ command => "$query Spice::NagaBhutJolokiaDax",
prompt => 'Query: ',
quit => '',
);

0 comments on commit d38df62

Please sign in to comment.