Ticket 155: Fix for broken Perl test
I'm extending the uuid Port for OpenBSD and found a broken test for Perl.
The Problem and thus the solution look simple to me: string vs. integer comparison.
Very simple patch to fix it...
Regards,
Simon
--- uuid.ts Mon Jan 1 19:13:20 2007
+++ /tmp/uuid.ts Fri Jun 8 16:13:59 2007
@@ -89,7 +89,7 @@
and $len == UUID_LEN_STR), "uuid_export (5)");
$rc = uuid_export($uuid_ns, UUID_FMT_SIV, $ptr, $len);
ok(( $rc == UUID_RC_OK
- and $ptr eq "3789866285607910888100818383505376205"
+ and $ptr == "3789866285607910888100818383505376205"
and $len <= UUID_LEN_SIV), "uuid_export (6)");
$rc = uuid_destroy($uuid_ns);
Remarks:
Properties:
| Type: |
code |
|
Version: |
1.60 |
| Status: |
new |
|
Created: |
2007-Jun-08 16:25 |
| Severity: |
4 |
|
Last Change: |
2007-Jun-08 16:25 |
| Priority: |
2 |
|
Subsystem: |
uuid |
| Assigned To: |
rse |
|
Derived From: |
|
| Creator: |
anonymous |
