Merge branch 'cmd-tests'

dist.ini

@@ -65,6 +65,9 @@ Test::More = 0.98
 Test::LoadAllModules = 0.021
 File::Temp = 0.22
 Test::Script::Run = 0.05
+File::chdir = 0.1008
+Dir::Self = 0.10
+File::FindLib = 0.001001
 
 [UploadToDuckPAN]
 

t/lib/DDG/Goodie/TwoShoes.pm

@@ -0,0 +1,11 @@
+package DDG::Goodie::TwoShoes;
+
+use DDG::Goodie;
+
+triggers start => //;
+
+handle remainder => sub {
+    return;
+};
+
+1;

t/lib/DDG/Spice/NagaBhutJolokiaDax.pm

@@ -0,0 +1,12 @@
+package DDG::Spice::NagaBhutJolokiaDax;
+
+use DDG::Spice;
+
+triggers start => //;
+spice to => //;
+
+handle remainder => sub {
+    return;
+};
+
+1;

t/system_duckpan_query.t

@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More;
+use Test::Expect;
+use Test::Script::Run;
+use File::chdir;
+use Dir::Self;
+use File::FindLib '../lib';
+
+use Data::Dumper;
+
+my $query = join ' ', Test::Script::Run::get_perl_cmd('duckpan', 'query');
+
+chdir(__DIR__);
+
+expect_run(
+  command => $query,
+  prompt  => 'Query: ',
+  quit    => '',
+);
+
+expect_run(
+  command => "$query Goodie::TwoShoes",
+  prompt  => 'Query: ',
+  quit    => '',
+);
+
+expect_run(
+  command => "$query Spice::NagaBhutJolokiaDax",
+  prompt  => 'Query: ',
+  quit    => '',
+);
+
+done_testing;