Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge branch 'cmd-tests'

  • Loading branch information...
commit 1de0eb99a7a49c56afc1b0e46251c94b9acd62db 2 parents 941e38b + 722333b
@nospampleasemam nospampleasemam authored
View
3  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]
View
11 t/lib/DDG/Goodie/TwoShoes.pm
@@ -0,0 +1,11 @@
+package DDG::Goodie::TwoShoes;
+
+use DDG::Goodie;
+
+triggers start => //;
+
+handle remainder => sub {
+ return;
+};
+
+1;
View
12 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;
View
36 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;
Please sign in to comment.
Something went wrong with that request. Please try again.