view release on metacpan or  search on metacpan

t/test-lib-slaughter-packages.t  view on Meta::CPAN

                "required method available - $method" );
        }

        #
        #
        # Sanity check by ensuring that a made-up method name is
        # invalid.
        #
        # This ensures we're not misusing UNIVERSAL:can
        #
        ok( !UNIVERSAL::can( $handle, "not_present" ),
            "Random methods aren't present." );
    }
}

t/test-lib-slaughter-transport.t  view on Meta::CPAN

        ok( $reported, "We received output from name()." );
        is( $reported, $name, "The name matches what we expect." );

        #
        #
        # Sanity check by ensuring that a made-up method name is
        # invalid.
        #
        # This ensures we're not misusing UNIVERSAL:can
        #
        ok( !UNIVERSAL::can( $handle, "not_present" ),
            "Random methods aren't present." );
    }
}