Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
devel:languages:perl
perl-Convert-ASN1
perl-Convert-ASN1-0.31-test.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File perl-Convert-ASN1-0.31-test.patch of Package perl-Convert-ASN1
Index: t/00prim.t =================================================================== --- t/00prim.t.orig +++ t/00prim.t @@ -178,9 +178,10 @@ my %BSTR = ( [pack("B*",'011011111101110111'), 7, pack("B*", '01101110')] ); -while(($result,$val) = each %BSTR) { - print "# BIT STRING ", unpack("B*", ref($val) ? $val->[0] : $val), - " ",(ref($val) ? $val->[1] : $val),"\n"; +foreach $result (sort(keys %BSTR)) { + $val = $BSTR{$result}; + print "# BIT STRING ", unpack("B*", ref($val) ? $val->[0] : $val), + " ",(ref($val) ? $val->[1] : $val),"\n"; btest $test++, $asn->prepare('bit BIT STRING') or warn $asn->error; stest $test++, $result, $asn->encode( bit => $val) or warn $asn->error;
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
