shlist

commit bc372439252338443b7651019d55a19c96db0945
parent 193b987688edb112fa91b9b5614c68f13b57c1b1
Author: kyle <kyle@getaddrinfo.net>
Date:   Wed, 30 Dec 2015 19:13:42 -0700

tests: add function to generate random phone number

Diffstat:
M
tests/test.pm
 | 
8
+++++++-

1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/tests/test.pm b/tests/test.pm
@@ -5,12 +5,13 @@ use warnings;
 use Errno;
 use Exporter qw(import);
 use IO::Socket::SSL;
+use String::Random;
 use Time::HiRes qw(usleep);
 
 require "msgs.pl";
 our (%msg_num, @msg_str);
 
-our @EXPORT = qw(new_socket fail send_msg recv_msg %msg_num @msg_str check_status);
+our @EXPORT = qw(new_socket fail send_msg recv_msg %msg_num @msg_str check_status rand_phnum);
 
 sub fail {
 	my (undef, $file, $line) = caller;
@@ -18,6 +19,11 @@ sub fail {
 	exit 1;
 }
 
+my $string_gen = String::Random->new;
+sub rand_phnum {
+	return $string_gen->randpattern('nnnnnnnnnn');
+}
+
 sub new_socket
 {
 	if (! defined $ENV{PORT}) {