shlist

commit dc96fe9595835c6ad532c1d1922c83451f00030b
parent d3cb808b528b14a48ff79178b94a53d39baa914f
Author: kyle <kyle@0x30.net>
Date:   Sun, 10 Jan 2016 14:33:15 -0700

tests: two small test.pm tweaks

- use 1403 prefix for random phone numbers
- say "unexpected string" instead of "unexpected message" in fail_msg_ne

Diffstat:
M
server/tests/test.pm
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/server/tests/test.pm b/server/tests/test.pm
@@ -9,7 +9,7 @@ our @EXPORT = qw(rand_phnum fail fail_msg_ne fail_num_ne);
 
 my $string_gen = String::Random->new;
 sub rand_phnum {
-	return $string_gen->randpattern('nnnnnnnnnn');
+	return '1403' . $string_gen->randpattern('nnnnnnn');
 }
 
 sub fail {
@@ -25,7 +25,7 @@ sub fail_msg_ne {
 	return if ($arg1 eq $arg2);
 
 	my (undef, $file, $line) = caller;
-	print "$file:$line: expected message '$arg1' but got '$arg2'\n";
+	print "$file:$line: expected string '$arg1' but got '$arg2'\n";
 	exit 1;
 }