From 64aeeafde6bf47fe1112d8408601111920d07f65 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Wed, 18 Apr 2012 14:59:47 +0200 Subject: [PATCH 1/1] make saerch query param to test script --- t/3-GoogleBooks.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/t/3-GoogleBooks.t b/t/3-GoogleBooks.t index 62156d0..0266d08 100755 --- a/t/3-GoogleBooks.t +++ b/t/3-GoogleBooks.t @@ -5,11 +5,13 @@ use strict; use Test::More tests => 14; +my $search = join(' ', @ARGV) || 'croatia'; + use_ok 'GoogleBooks'; ok( my $o = GoogleBooks->new(), 'new' ); -ok( my $hits = $o->search( 'croatia' ), 'search' ); +ok( my $hits = $o->search( $search ), "search: $search" ); like $hits, qr/^\d+$/, "hits: $hits"; foreach ( 1 .. 10 ) { -- 2.20.1