From f870cc33bcacf9872677dae83a5d781e72664fb9 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sun, 21 Jul 2013 18:50:38 -0400 Subject: apparently Test::Requires doesn't allow loading without importing --- t/fun/anon.t | 6 +++++- t/fun/basic.t | 6 +++++- t/fun/closure-proto.t | 6 +++++- t/fun/compile-time.t | 6 +++++- t/fun/defaults.t | 6 +++++- t/fun/name.t | 6 +++++- t/fun/package.t | 6 +++++- t/fun/recursion.t | 6 +++++- t/fun/slurpy-syntax-errors.t | 6 +++++- t/fun/slurpy.t | 6 +++++- t/fun/state.t | 6 +++++- t/try/basic.t | 6 +++++- t/try/context.t | 6 +++++- t/try/finally.t | 6 +++++- t/try/given_when.t | 6 +++++- t/try/syntax.t | 6 +++++- t/try/when.t | 6 +++++- 17 files changed, 85 insertions(+), 17 deletions(-) diff --git a/t/fun/anon.t b/t/fun/anon.t index 2d273f4..4fe94c5 100644 --- a/t/fun/anon.t +++ b/t/fun/anon.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/fun/lib'; -use Test::Requires 'Sub::Name'; +BEGIN { + if (!eval { require Sub::Name }) { + plan skip_all => "This test requires Sub::Name"; + } +} use Fun; diff --git a/t/fun/basic.t b/t/fun/basic.t index 06a724f..d09f99a 100644 --- a/t/fun/basic.t +++ b/t/fun/basic.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/fun/lib'; -use Test::Requires 'Sub::Name'; +BEGIN { + if (!eval { require Sub::Name }) { + plan skip_all => "This test requires Sub::Name"; + } +} use Fun; diff --git a/t/fun/closure-proto.t b/t/fun/closure-proto.t index 83ff3ad..ba309be 100644 --- a/t/fun/closure-proto.t +++ b/t/fun/closure-proto.t @@ -5,7 +5,11 @@ use warnings; use Test::More; use lib 't/fun/lib'; -use Test::Requires 'Sub::Name'; +BEGIN { + if (!eval { require Sub::Name }) { + plan skip_all => "This test requires Sub::Name"; + } +} use Fun; diff --git a/t/fun/compile-time.t b/t/fun/compile-time.t index 2fab3ed..77f21cf 100644 --- a/t/fun/compile-time.t +++ b/t/fun/compile-time.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/fun/lib'; -use Test::Requires 'Sub::Name'; +BEGIN { + if (!eval { require Sub::Name }) { + plan skip_all => "This test requires Sub::Name"; + } +} use Fun; diff --git a/t/fun/defaults.t b/t/fun/defaults.t index 923e545..0bbc7cb 100644 --- a/t/fun/defaults.t +++ b/t/fun/defaults.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/fun/lib'; -use Test::Requires 'Sub::Name'; +BEGIN { + if (!eval { require Sub::Name }) { + plan skip_all => "This test requires Sub::Name"; + } +} use Fun; diff --git a/t/fun/name.t b/t/fun/name.t index d5952d4..c1e713e 100644 --- a/t/fun/name.t +++ b/t/fun/name.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/fun/lib'; -use Test::Requires 'Sub::Name'; +BEGIN { + if (!eval { require Sub::Name }) { + plan skip_all => "This test requires Sub::Name"; + } +} use Carp; diff --git a/t/fun/package.t b/t/fun/package.t index 9c49066..66b2d7d 100644 --- a/t/fun/package.t +++ b/t/fun/package.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/fun/lib'; -use Test::Requires 'Sub::Name'; +BEGIN { + if (!eval { require Sub::Name }) { + plan skip_all => "This test requires Sub::Name"; + } +} use Fun; diff --git a/t/fun/recursion.t b/t/fun/recursion.t index 72bd23b..a12306c 100644 --- a/t/fun/recursion.t +++ b/t/fun/recursion.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/fun/lib'; -use Test::Requires 'Sub::Name'; +BEGIN { + if (!eval { require Sub::Name }) { + plan skip_all => "This test requires Sub::Name"; + } +} BEGIN { if (!eval { require 5.016; 1 }) { diff --git a/t/fun/slurpy-syntax-errors.t b/t/fun/slurpy-syntax-errors.t index 2a3aa14..31368a7 100644 --- a/t/fun/slurpy-syntax-errors.t +++ b/t/fun/slurpy-syntax-errors.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/fun/lib'; -use Test::Requires 'Sub::Name'; +BEGIN { + if (!eval { require Sub::Name }) { + plan skip_all => "This test requires Sub::Name"; + } +} use Fun; diff --git a/t/fun/slurpy.t b/t/fun/slurpy.t index 62a2d39..5b30f4f 100644 --- a/t/fun/slurpy.t +++ b/t/fun/slurpy.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/fun/lib'; -use Test::Requires 'Sub::Name'; +BEGIN { + if (!eval { require Sub::Name }) { + plan skip_all => "This test requires Sub::Name"; + } +} use Fun; diff --git a/t/fun/state.t b/t/fun/state.t index 68f2c17..7cb1a86 100644 --- a/t/fun/state.t +++ b/t/fun/state.t @@ -5,7 +5,11 @@ use warnings; use Test::More; use lib 't/fun/lib'; -use Test::Requires 'Sub::Name'; +BEGIN { + if (!eval { require Sub::Name }) { + plan skip_all => "This test requires Sub::Name"; + } +} use 5.10.0; use Fun; diff --git a/t/try/basic.t b/t/try/basic.t index cc837e3..3849dad 100644 --- a/t/try/basic.t +++ b/t/try/basic.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/try/lib'; -use Test::Requires 'Try::Tiny'; +BEGIN { + if (!eval { require Try::Tiny }) { + plan skip_all => "This test requires Try::Tiny"; + } +} use Try; diff --git a/t/try/context.t b/t/try/context.t index 76ac585..dd186e3 100644 --- a/t/try/context.t +++ b/t/try/context.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/try/lib'; -use Test::Requires 'Try::Tiny'; +BEGIN { + if (!eval { require Try::Tiny }) { + plan skip_all => "This test requires Try::Tiny"; + } +} use Try; diff --git a/t/try/finally.t b/t/try/finally.t index 15bdfb3..e6f4365 100644 --- a/t/try/finally.t +++ b/t/try/finally.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/try/lib'; -use Test::Requires 'Try::Tiny'; +BEGIN { + if (!eval { require Try::Tiny }) { + plan skip_all => "This test requires Try::Tiny"; + } +} use Try; diff --git a/t/try/given_when.t b/t/try/given_when.t index c3af21e..df7460a 100644 --- a/t/try/given_when.t +++ b/t/try/given_when.t @@ -5,7 +5,11 @@ use Test::More; use lib 't/try/lib'; use 5.014; -use Test::Requires 'Try::Tiny'; +BEGIN { + if (!eval { require Try::Tiny }) { + plan skip_all => "This test requires Try::Tiny"; + } +} no if $] >= 5.018, warnings => 'experimental::smartmatch'; diff --git a/t/try/syntax.t b/t/try/syntax.t index 6e4641c..e678782 100644 --- a/t/try/syntax.t +++ b/t/try/syntax.t @@ -4,7 +4,11 @@ use warnings; use Test::More; use lib 't/try/lib'; -use Test::Requires 'Try::Tiny'; +BEGIN { + if (!eval { require Try::Tiny }) { + plan skip_all => "This test requires Try::Tiny"; + } +} use Try; diff --git a/t/try/when.t b/t/try/when.t index 96754aa..749ad52 100644 --- a/t/try/when.t +++ b/t/try/when.t @@ -5,7 +5,11 @@ use Test::More; use lib 't/try/lib'; use 5.014; -use Test::Requires 'Try::Tiny'; +BEGIN { + if (!eval { require Try::Tiny }) { + plan skip_all => "This test requires Try::Tiny"; + } +} no if $] >= 5.018, warnings => 'experimental::smartmatch'; -- cgit v1.2.3-54-g00ecf