New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Unicoss 10.0.0.6 and perl 5.6.0 #1814
Comments
From payner@ncisv11.NCIFCRF.GOVCreated by payner@ncifcrf.govI compiled perl 5.6 and it mostly works. However the make test op/64bitint..........FAILED at test 23 op/pack..............FAILED at test 10 Failed 5 test scripts out of 230, 97.83% okay. How important are these failures ? Has anyone ported perl 5.6 Perl Info
|
From [Unknown Contact. See original ticket]Robert Payne <payner@ncisv11.NCIFCRF.GOV> wrote
At least two of them are bugs in the tests. op/bop test 12: op/misc test 3: Two additional questions about this test: # NOTE: Please don't add tests to this file unless they *need* to be run in why is this test where it is? The attached patch fixes[*] these two tests. Whether it's the "right" [*] Of course, I've only checked it on platforms I have access to; Mike Guy Inline Patch--- ./t/op/bop.t.orig Tue Apr 18 17:34:38 2000
+++ ./t/op/bop.t Tue Apr 18 17:14:33 2000
@@ -39,7 +39,7 @@
do { use integer; 1 << ($bits - 1) } == -$cusp)
? "ok 11\n" : "not ok 11\n");
print ((($cusp >> 1) == ($cusp / 2) &&
- do { use integer; $cusp >> 1 } == -($cusp / 2))
+ do { use integer; abs($cusp >> 1) } == ($cusp / 2))
? "ok 12\n" : "not ok 12\n");
$Aaz = chr(ord("A") & ord("z"));
--- ./t/op/misc.t.orig Tue Apr 18 17:34:38 2000
+++ ./t/op/misc.t Tue Apr 18 17:57:47 2000
@@ -59,12 +59,12 @@
EXPECT
a := b := c
########
-use integer;
$cusp = ~0 ^ (~0 >> 1);
+use integer;
$, = " ";
-print +($cusp - 1) % 8, $cusp % 8, -$cusp % 8, ($cusp + 1) % 8, "!\n";
+print +($cusp - 1) % 8, $cusp % 8, -$cusp % 8, 8 | (($cusp + 1) % 8 + 7), "!\n";
EXPECT
--1 0 0 1 !
+7 0 0 8 !
########
$foo=undef; $foo->go;
EXPECT
End of patch |
From @jhi: Two additional questions about this test: I made the change when I made the bitops to be 64-bit where It's a pity that the behavior of % is so poorly (yeah, as poorly as in |
From [Unknown Contact. See original ticket]Jarkko Hietaniemi <jhi@iki.fi> wrote
That's a bit unfair to Perl's documentation. Actually % is very
Here perlop is a bit minimal. Mike Guy |
Migrated from rt.perl.org#3076 (status was 'resolved')
Searchable as RT3076$
The text was updated successfully, but these errors were encountered: