diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-02-21 14:14:30 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-02-21 14:14:30 +0000 |
commit | c82d0e1e6a50cf66206d7e33fb271f6ee9f3395b (patch) | |
tree | 0d9fe7d03b9335977283e9e50f2b8fa72aaac52e /t/test.pl | |
parent | f977b7bb0e0946aca578868ac597c28bdbc2c2c2 (diff) | |
download | perl-c82d0e1e6a50cf66206d7e33fb271f6ee9f3395b.tar.gz |
Add skip_all_if_miniperl() to test.pl, and use it in 6 test scripts
All require dynamic loading to work, so all should be skipped under minitest.
Diffstat (limited to 't/test.pl')
-rw-r--r-- | t/test.pl | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -110,6 +110,10 @@ sub skip_all { exit(0); } +sub skip_all_if_miniperl { + skip_all(@_) if !defined &DynaLoader::boot_DynaLoader; +} + sub _ok { my ($pass, $where, $name, @mess) = @_; # Do not try to microoptimize by factoring out the "not ". |