specify search argument in command line
authorDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 23 May 2011 12:20:01 +0000 (14:20 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 23 May 2011 12:20:01 +0000 (14:20 +0200)
t/CRM.t

diff --git a/t/CRM.t b/t/CRM.t
index b8456b7..a64edef 100755 (executable)
--- a/t/CRM.t
+++ b/t/CRM.t
@@ -9,7 +9,10 @@ use lib 'lib';
 
 use_ok 'APKPM::CRM';
 
+my $what = join(' ', @ARGV);
+$what  ||= 'test';
+
 ok my $o = APKPM::CRM->new, 'new';
 
-ok my $r = $o->search( 'job', 'test' ), 'search';
+ok my $r = $o->search( 'job', $what ), "search $what";
 diag dump($r);