test with arbitrary number
authorDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 23 Mar 2011 21:38:49 +0000 (22:38 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 23 Mar 2011 21:38:49 +0000 (22:38 +0100)
t/VOICE.t

index d58d0f7..9440c35 100755 (executable)
--- a/t/VOICE.t
+++ b/t/VOICE.t
@@ -9,7 +9,9 @@ use lib 'lib';
 
 use_ok 'APKPM::VOICE';
 
+my $broj = shift @ARGV || '38547431277';
+
 ok my $o = APKPM::VOICE->new, 'new';
 
-ok my $r = $o->info( 'job', '38547431277' ), 'info';
+ok my $r = $o->info( 'job', $broj ), "info $broj";
 diag dump($r);