This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Provide defined value for $TODO only where test is still failing.
authorJames E Keenan <jkeenan@cpan.org>
Sun, 20 Jan 2019 20:23:13 +0000 (15:23 -0500)
committerJames E Keenan <jkeenan@cpan.org>
Sun, 20 Jan 2019 20:25:22 +0000 (15:25 -0500)
Reflecting Test::Builder synch with CPAN for upstream bug fix:
https://github.com/Test-More/test-more/commit/9c269ff6e2b8a7be223ef1df7a254a09ec4dad2d

Provide description for previously TODO-ed test.

ext/XS-APItest/t/call_checker.t

index 9367096..d39a059 100644 (file)
@@ -5,9 +5,11 @@ use Test::More tests => 78;
 use XS::APItest;
 
 {
-    local $TODO = $^O eq "cygwin" ? "[perl #78502] function pointers don't match on cygwin" : "";
-    ok( eval { XS::APItest::test_cv_getset_call_checker(); 1 })
-      or diag $@;
+    local $TODO = "[perl #78502] function pointers don't match on cygwin"
+        if $^O eq "cygwin";
+    ok( eval { XS::APItest::test_cv_getset_call_checker(); 1 },
+        "test_cv_getset_call_checker() works as expected")
+        or diag $@;
 }
 
 my @z = ();