dani
/
lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bad addresses for inet6 local link

This commit is contained in:
Xavier Guimard 2017-04-05 18:12:37 +00:00
parent d502fd4929
commit 9894853355
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
e2e-tests/populate.pl
View File

@ -63,7 +63,7 @@ foreach my $i ( 1 .. COUNT() ) {
#$string = 'dwho';
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
localtime(time-int(rand(4*3600)));
localtime( time - int( rand( 4 * 3600 ) ) );
my $ipAddr = (
int( rand(2) ) == 1
? join( '.',
@ -77,7 +77,10 @@ foreach my $i ( 1 .. COUNT() ) {
# Mix routable IPv6 addresses (2000::/3) and local ones (fe:80::/10)
(
int( rand(2) ) == 1
? sprintf( "%X", int( rand(8192) + 8192 ) )
? (
sprintf( "%X", int( rand(8192) + 8192 ) ),
sprintf( "%X", int( rand(65536) ) )
)
: sprintf( "fe80:%X", int( rand(16384) ) )
),
sprintf( "%X", int( rand(65536) ) ),
@ -85,7 +88,6 @@ foreach my $i ( 1 .. COUNT() ) {
sprintf( "%X", int( rand(65536) ) ),
sprintf( "%X", int( rand(65536) ) ),
sprintf( "%X", int( rand(65536) ) ),
sprintf( "%X", int( rand(65536) ) ),
sprintf( "%X", int( rand(65536) ) )
)
);