Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Removed Test::Except for now; added App::Duckpan to fool metacpandb

  • Loading branch information...
commit 8e21f347177d0a1bb22c02045e98946e8dad14a7 1 parent bab884e
@Getty Getty authored
Showing with 4 additions and 37 deletions.
  1. +0 −1  dist.ini
  2. +4 −0 lib/App/DuckPAN.pm
  3. +0 −36 t/system_duckpan_query.t
View
1  dist.ini
@@ -68,7 +68,6 @@ Test::Script::Run = 0.05
File::chdir = 0.1008
Dir::Self = 0.10
File::FindLib = 0.001001
-Test::Expect = 0.31
File::HomeDir = 1.00
[UploadToDuckPAN]
View
4 lib/App/DuckPAN.pm
@@ -1,6 +1,10 @@
package App::DuckPAN;
# ABSTRACT: The DuckDuckGo DuckPAN client
+{ # Fooling CPAN
+ package App::Duckpan;
+}
+
use Moo;
use MooX::Cmd;
use MooX::Options;
View
36 t/system_duckpan_query.t
@@ -1,36 +0,0 @@
-#!/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.