Hallo golomshtok,
Am 2001-11-01 um 22:49 schriebst du:
> the package is really useless on windows platform....and pointless too,
> since
> the same thing can be achieved with one function call - CoCreateGUID.....
> This package is really UNIX-specific as none of the UNIXes have built-in
> GUID
> generation capabilities.....I guess I should mention that in the package
> description....
> what is the best way to designate the package as "UNIX-only"?
> thank you,
> alex g
It is not that bad to use a function that isn't available on windows systems;)
> PS. If you need windows-based GUID generator, I can easily wrap
> CoCreateGUID into
> an XS wrapper....please, let me know....
Cygwin is not Windows;)
It is a Posix Layer which emulates Unix on Windows.
Are there other modules which depend on Data-UUID?
I solved the 'problem' with the missing gethostid().
I hardcoded the SID of my machine in 'my' source, so
it compiles, but then 'make test' was not successful
and I cannot say if it depends on this change.
Details:
....
use Test;
BEGIN { plan tests => 1 };
use Data::UUID;
ok(1); # If we made it this far, we're ok.
#########################
# Insert your test code below, the Test module is use()ed here so read
# its man page ( perldoc Test ) for help writing this test script.
ok($ug = new Data::UUID);
$uuid1 = $ug->create();
$uuid2 = $ug->to_hexstring($uuid1);
$uuid3 = $ug->from_string($uuid2);
ok(!$ug->compare($uuid1,$uuid3));
$uuid4 = $ug->to_b64string($uuid1);
$uuid5 = $ug->to_b64string($uuid3);
ok($uuid4 eq $uuid5);
$uuid6 = $ug->from_b64string($uuid4);
ok(!$ug->compare($uuid6,$uuid1));
There are 5 ok's in the test, but the first line states:
# change 'tests => 1' to 'tests => last_test_to_print';
In your test it is included:
BEGIN { plan tests => 1 };
Even if I change it, it shows me some ok's but after this:
$uuid6 = $ug->from_b64string($uuid4);
there is an error.
It fails and I get no 'ok' or 'not ok' form the last ok() call.
Ciao, Gerrit
--
=^..^=
