Update to 0.36
- New upstream release 0.36
- Fix tests that follow GLD changes
(https://github.com/gfx/mousex-getopt/pull/6)
- This release by GFUJI → update source URL and directory case
This commit is contained in:
Paul Howarth
parent
7b9021153b
commit
3e255b93e0
|
|
@ -1,61 +0,0 @@
|
|||
--- t/104_override_usage.t
|
||||
+++ t/104_override_usage.t
|
||||
@@ -43,10 +43,17 @@ use Test::Exception;
|
||||
my $exp = [
|
||||
'Unknown option: q
|
||||
',
|
||||
+ $Getopt::Long::Descriptive::VERSION < 0.099 ?
|
||||
qq{usage: 104_override_usage.t [-?] [long options...]
|
||||
\t-? --usage --help Prints this usage information.
|
||||
\t--foo A foo
|
||||
}
|
||||
+ :
|
||||
+ qq{usage: 104_override_usage.t [-?] [long options...]
|
||||
+\t-? --usage --help Prints this usage information.
|
||||
+\t--foo INT A foo
|
||||
+}
|
||||
+
|
||||
];
|
||||
|
||||
is_deeply \@MyScript::exception, $exp;
|
||||
--- t/107_no_auto_help.t
|
||||
+++ t/107_no_auto_help.t
|
||||
@@ -60,7 +60,7 @@ END {
|
||||
warning_like {
|
||||
throws_ok { Class->new_with_options }
|
||||
#usage: 107_no_auto_help.t [-?] [long options...]
|
||||
- qr/^usage: [\d\w]+\Q.t [-?] [long options...]\E.\s+\Q-? --usage --help Prints this usage information.\E.\s+--configfile/ms,
|
||||
+ qr/^usage: [\d\w]+\Q.t [-?] [long options...]\E.\s+\Q-? --usage --help\E\s+\QPrints this usage information.\E.\s+--configfile/ms,
|
||||
'usage information looks good';
|
||||
}
|
||||
qr/^Specified configfile \'this_value_unimportant\' does not exist, is empty, or is not readable$/,
|
||||
--- t/109_help_flag.t
|
||||
+++ t/109_help_flag.t
|
||||
@@ -40,7 +40,7 @@ foreach my $args ( ['--help'], ['--usage
|
||||
local @ARGV = @$args;
|
||||
|
||||
throws_ok { MyClass->new_with_options() }
|
||||
- qr/^usage: (?:[\d\w]+)\Q.t [-?] [long options...]\E.^\t\Q-? --usage --help Prints this usage information.\E$/ms,
|
||||
+ qr/^usage: (?:[\d\w]+)\Q.t [-?] [long options...]\E.^\t\Q-? --usage --help\E\s+\QPrints this usage information.\E$/ms,
|
||||
'Help request detected; usage information properly printed';
|
||||
}
|
||||
|
||||
--- t/110_sort_usage_by_attr_order.t
|
||||
+++ t/110_sort_usage_by_attr_order.t
|
||||
@@ -34,6 +34,16 @@ usage: 110_sort_usage_by_attr_order.t [-
|
||||
--bar Documentation for "bar"
|
||||
--baz Documentation for "baz"
|
||||
USAGE
|
||||
+if ( $Getopt::Long::Descriptive::VERSION >= 0.099 )
|
||||
+{
|
||||
+$expected = <<'USAGE';
|
||||
+usage: 110_sort_usage_by_attr_order.t [-?] [long options...]
|
||||
+ -? --usage --help Prints this usage information.
|
||||
+ --foo STR Documentation for "foo"
|
||||
+ --bar STR Documentation for "bar"
|
||||
+ --baz STR Documentation for "baz"
|
||||
+USAGE
|
||||
+}
|
||||
$expected =~ s/^[ ]{4}/\t/xmsg;
|
||||
is($obj->usage->text, $expected, 'Usage text has nicely sorted options');
|
||||
|
||||
|
|
@ -1,19 +1,15 @@
|
|||
Name: perl-MouseX-Getopt
|
||||
Summary: Mouse role for processing command line options
|
||||
Version: 0.35
|
||||
Release: 7%{?dist}
|
||||
Version: 0.36
|
||||
Release: 1%{?dist}
|
||||
License: GPL+ or Artistic
|
||||
# Hotfix release with different case, expected to revert to normal in subsequent releases
|
||||
#URL: http://search.cpan.org/dist/MouseX-Getopt/
|
||||
URL: http://search.cpan.org/dist/mousex-getopt/
|
||||
Source0: http://search.cpan.org/CPAN/authors/id/T/TO/TOKUHIROM/mousex-getopt-%{version}.tar.gz
|
||||
Patch0: mousex-getopt-0.35-G:L:D-0.099.patch
|
||||
URL: http://search.cpan.org/dist/MouseX-Getopt/
|
||||
Source0: http://search.cpan.org/CPAN/authors/id/G/GF/GFUJI/MouseX-Getopt-%{version}.tar.gz
|
||||
BuildArch: noarch
|
||||
# Module Build
|
||||
BuildRequires: perl
|
||||
BuildRequires: perl(CPAN::Meta)
|
||||
BuildRequires: perl(CPAN::Meta::Prereqs)
|
||||
BuildRequires: perl(File::Basename)
|
||||
BuildRequires: perl(File::Copy)
|
||||
BuildRequires: perl(File::Spec)
|
||||
BuildRequires: perl(Module::Build) >= 0.38
|
||||
BuildRequires: perl(strict)
|
||||
|
|
@ -52,12 +48,7 @@ This is a Mouse role that provides an alternate constructor for creating
|
|||
objects using parameters passed in from the command line.
|
||||
|
||||
%prep
|
||||
%setup -q -n mousex-getopt-%{version}
|
||||
|
||||
# Fix FTBFS with Geopt::Long::Descriptive ≥ 0.99 (#1189458)
|
||||
# https://github.com/gfx/mousex-getopt/issues/5
|
||||
# https://github.com/gfx/mousex-getopt/pull/6
|
||||
%patch0
|
||||
%setup -q -n MouseX-Getopt-%{version}
|
||||
|
||||
%build
|
||||
perl Build.PL --installdirs=vendor
|
||||
|
|
@ -70,7 +61,7 @@ perl Build.PL --installdirs=vendor
|
|||
./Build test
|
||||
|
||||
%files
|
||||
# Note: malformed LICENSE file in 0.35 not shipped
|
||||
# Note: malformed LICENSE file in 0.35 .. 0.36 not shipped
|
||||
# https://github.com/gfx/mousex-getopt/issues/2
|
||||
%doc Changes README.md
|
||||
%{perl_vendorlib}/MouseX/
|
||||
|
|
@ -86,6 +77,12 @@ perl Build.PL --installdirs=vendor
|
|||
%{_mandir}/man3/MouseX::Getopt::Strict.3*
|
||||
|
||||
%changelog
|
||||
* Thu Apr 2 2015 Paul Howarth <paul@city-fan.org> - 0.36-1
|
||||
- Update to 0.36
|
||||
- Fix tests that follow GLD changes
|
||||
(https://github.com/gfx/mousex-getopt/pull/6)
|
||||
- This release by GFUJI → update source URL and directory case
|
||||
|
||||
* Thu Feb 5 2015 Paul Howarth <paul@city-fan.org> - 0.35-7
|
||||
- Fix FTBFS with Geopt::Long::Descriptive ≥ 0.99 (#1189458)
|
||||
https://github.com/gfx/mousex-getopt/issues/5
|
||||
|
|
@ -116,7 +113,7 @@ perl Build.PL --installdirs=vendor
|
|||
* Thu Apr 17 2014 Paul Howarth <paul@city-fan.org> - 0.35-1
|
||||
- Update to 0.35
|
||||
- GLD 0.097 no longer defaults to no_ignore_case (CPAN RT#93593)
|
||||
- This release by TOKUHIROM -> update source URL and directory case
|
||||
- This release by TOKUHIROM → update source URL and directory case
|
||||
- Switch to Module::Build flow
|
||||
- Release tests no longer included
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue