Skip to content
This repository has been archived by the owner on Oct 15, 2022. It is now read-only.

Commit

Permalink
moved test lib & configured cmds test for dist bin
Browse files Browse the repository at this point in the history
  • Loading branch information
majuscule committed Feb 18, 2013
1 parent 307c8ac commit d38df62
Show file tree
Hide file tree
Showing 3 changed files with 10 additions and 5 deletions.
15 changes: 10 additions & 5 deletions t/01-cmds.t
Original file line number Diff line number Diff line change
Expand Up @@ -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 => '',
);
Expand Down
File renamed without changes.

0 comments on commit d38df62

Please sign in to comment.