This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
XS-APItest/t/caller.t: mark two passing tests
authorDavid Mitchell <davem@iabyn.com>
Thu, 20 Jan 2011 16:30:55 +0000 (16:30 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 21 Jan 2011 13:46:02 +0000 (13:46 +0000)
There are four TODO tests in caller.t, relating to the hints hash returned
under the debugger. Since 20439bc77dfeec46d94a15cf108446039e26c995, two
of these tests has started to pass. I don't understand this area enough
to know whether that commit *should* have made them pass, but it
seems fairly consistent. So un-TODO just those two.

This means that under the debugger, we now expect to get a hints hash, but
that its contents are still wrong.

ext/XS-APItest/t/caller.t

index d3365ff..d7769e9 100644 (file)
@@ -27,6 +27,7 @@ sub try_caller {
     is_deeply \@c, [ @args, ($hhv) x 3 ], 
                                 "caller_cx for $n";
     if (defined $hhv) {
+       local $TODO; # these two work ok under the bebugger
         ok defined $hh,         "...with defined hinthash";
         is reftype $hh, "HASH", "...which is a HASH";
     }