From fd974dcbdf5ff565ab0d9c1b051ee0aabd11b3e7 Mon Sep 17 00:00:00 2001 From: bayashi Date: Thu, 27 Feb 2020 13:39:06 +0900 Subject: [PATCH 1/3] aliases --- lib/Test/Arrow.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lib/Test/Arrow.pm b/lib/Test/Arrow.pm index 3a7f277..5cf9bb5 100644 --- a/lib/Test/Arrow.pm +++ b/lib/Test/Arrow.pm @@ -97,8 +97,6 @@ sub expected { $self; } -sub expect { shift->expected(@_) } - sub got { my ($self, $value) = @_; @@ -462,9 +460,14 @@ sub warnings { { no warnings 'once'; - *warn_ok = *warnings_ok; + *expect = *expected; + + *warn_ok = *warnings_ok; *warning_ok = *warnings_ok; + *warning = *warnings; + + *done = *done_testing; } 1; From c82ce09d4b7667255341030a30ea04a83cc4c04f Mon Sep 17 00:00:00 2001 From: bayashi Date: Thu, 27 Feb 2020 14:03:28 +0900 Subject: [PATCH 2/3] Fix compile test --- t/00_compile.t | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/t/00_compile.t b/t/00_compile.t index a75878b..991d7f4 100644 --- a/t/00_compile.t +++ b/t/00_compile.t @@ -1,6 +1,9 @@ -use strict; -use Test::More tests => 1; +eval { + require Test::Arrow; + Test::Arrow->import; +}; -BEGIN { - use_ok 'Test::Arrow'; -} +Test::Arrow->new->ok(!$@) + or Test::Arrow->diag($@); + +Test::Arrow->done; From 104b93a2fde7b1c0f24f3eb2a54c0542518d2800 Mon Sep 17 00:00:00 2001 From: bayashi Date: Thu, 27 Feb 2020 14:06:57 +0900 Subject: [PATCH 3/3] Fix POD for done method --- lib/Test/Arrow.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lib/Test/Arrow.pm b/lib/Test/Arrow.pm index 5cf9bb5..6a95541 100644 --- a/lib/Test/Arrow.pm +++ b/lib/Test/Arrow.pm @@ -747,6 +747,9 @@ Declare of done testing. B that you must never put C inside an C block. +=head3 done + +Alias of done_testing =head2 CONSTANTS