Author: jkeenan
Date: Fri Nov 16 17:29:34 2007
New Revision: 22849
Modified:
trunk/t/configure/124-auto_alignptrs-05.t
Log:
Test failing on some systems placed in TODO block per suggestion from
chromatic.
Modified: trunk/t/configure/124-auto_alignptrs-05.t
==============================================================================
--- trunk/t/configure/124-auto_alignptrs-05.t (original)
+++ trunk/t/configure/124-auto_alignptrs-05.t Fri Nov 16 17:29:34 2007
@@ -44,17 +44,22 @@
isa_ok( $step, $step_name );
ok( $step->description(), "$step_name has description" );
-{
- $conf->data->set('ptr_alignment' => undef);
- local $^O = q{linux} if ($^O eq q{hpux});
- my $ret;
- eval { $ret = $step->runstep($conf); };
- if ($@) {
- like($@, qr/Can't determine alignment/, #'
- "Got expected error message when runstep() failed");
- } else {
- like($step->result(), qr/bytes?/,
- "Expected result was set");
+TODO: {
+ # http://rt.perl.org/rt3/Ticket/Display.html?id=47391
+ local $TODO =
+ q<Reported failing where vendor-supplied Perl 5 Config.pm does not
match true state of system available for Parrot configuration>;
+ {
+ $conf->data->set('ptr_alignment' => undef);
+ local $^O = q{linux} if ($^O eq q{hpux});
+ my $ret;
+ eval { $ret = $step->runstep($conf); };
+ if ($@) {
+ like($@, qr/Can't determine alignment/, #'
+ "Got expected error message when runstep() failed");
+ } else {
+ like($step->result(), qr/bytes?/,
+ "Expected result was set");
+ }
}
}
