Commit 44d41ca3fefe6483e2f000d5aa7a88dfdf60939e - libmousex-getopt-perl-upstream

Merge pull request #10 from pghmcfc/copied Cope with GLD output changes in version 0.100 FUJI Goro authored 7 years ago GitHub committed 7 years ago

2 changed file(s) with 17 addition(s) and 1 deletion(s). Raw diff Collapse all Expand all

-0

t/104_override_usage.t less more

48	48	\t--foo A foo
49	49	}
50	50	:
	51	$Getopt::Long::Descriptive::VERSION == 0.099 ?
51	52	qq{usage: 104_override_usage.t [-?] [long options...]
52	53	\t-? --usage --help Prints this usage information.
53	54	\t--foo INT A foo
	55	}
	56	:
	57	qq{usage: 104_override_usage.t [-?] [long options...]
	58	\t-? --usage --help Prints this usage information.
	59	\t--foo INT A foo
54	60	}
55	61
56	62	];

+11

-1

t/110_sort_usage_by_attr_order.t less more

33	33	--bar Documentation for "bar"
34	34	--baz Documentation for "baz"
35	35	USAGE
36		if ( $Getopt::Long::Descriptive::VERSION >= 0.099 )
	36	if ( $Getopt::Long::Descriptive::VERSION == 0.099 )
37	37	{
38	38	$expected = <<'USAGE';
39	39	usage: 110_sort_usage_by_attr_order.t [-?] [long options...]

43	43	--baz STR Documentation for "baz"
44	44	USAGE
45	45	}
	46	if ( $Getopt::Long::Descriptive::VERSION >= 0.100 )
	47	{
	48	$expected = <<'USAGE';
	49	usage: 110_sort_usage_by_attr_order.t [-?] [long options...]
	50	-? --usage --help Prints this usage information.
	51	--foo STR Documentation for "foo"
	52	--bar STR Documentation for "bar"
	53	--baz STR Documentation for "baz"
	54	USAGE
	55	}
46	56	$expected =~ s/^[ ]{4}/\t/xmsg;
47	57	is($obj->usage->text, $expected, 'Usage text has nicely sorted options');
48	58