App-Licensecheck

 view release on metacpan or  search on metacpan

TODO.md  view on Meta::CPAN

    * parse new options --licensecheck-*
      and setting=value pairs in env vars LICENSECHECK LICENSECHECK_DIFF
    * by default output unified diff
    * if file B omitted, compute from file A
      (with minimal changes by default, or optionally optimized)
  * implement licensesort
    * parse options and arguments like sort
    * fail on any option supported by sort but unsupported here
    * parse new options --licensecheck-*
      and setting=value pairs in env vars LICENSECHECK LICENSECHECK_DIFF
      + file1-format - debian spdx (default: guess from passed file1)
      + paths-debian - with format=debian try debian/copyright:copyright)
      + merge-copyright-years
      + merge-copyright-holders
      + merge-license-expressions
      + merge-license-parts
      + sort-copyright-years
      + sort-copyright-holders
      + sort-copyright-sections
      + sort-license-expressions
      + sort-license-parts

t/20-script-encoding.t  view on Meta::CPAN

	};
	my $todo = todo 'String::Copyright documented to accept only strings';
	command {
		args   => [qw(t/encoding/copr-utf8.h)],
		stdout => $basic_utf8_as_latin1,
		stderr =>
			qr/ as raw bytes\nheader end matches file size\n(?:collected|resolved)/,
	};
	$todo = undef;
};
subtest 'Latin-1 in UTF-8 parsed by guessing returns chars' => sub {
	command {
		args   => [qw(--encoding Guess t/encoding/copr-utf8.h)],
		stdout => qr//,
		stderr =>
			qr/ as raw bytes\nheader end matches file size\n(?:collected|resolved)/,
	};
	my $todo = todo 'String::Copyright documented to accept only strings';
	command {
		args   => [qw(--encoding Guess t/encoding/copr-utf8.h)],
		stdout => $basic_utf8_as_latin1,

t/20-script-encoding.t  view on Meta::CPAN

	};
	my $todo = todo 'String::Copyright documented to accept only strings';
	command {
		args   => [qw(t/encoding/copr-iso8859.h)],
		stdout => $extended,
		stderr =>
			qr/ as raw bytes\nheader end matches file size\n(?:collected|resolved)/,
	};
	$todo = undef;
};
subtest 'Latin-1 in ISO 8859-1 parsed by guessing returns chars' => sub {
	command {
		args   => [qw(--encoding Guess t/encoding/copr-iso8859.h)],
		stdout => qr//,
		stderr =>
			qr/ as raw bytes\nheader end matches file size\n(?:collected|resolved)/,
	};
	my $todo = todo 'String::Copyright documented to accept only strings';
	command {
		args   => [qw(--encoding Guess t/encoding/copr-iso8859.h)],
		stdout => $extended,

t/20-script-encoding.t  view on Meta::CPAN

	};
	my $todo = todo 'String::Copyright documented to accept only strings';
	command {
		args   => [qw(t/encoding/README.gs550j)],
		stdout => $japanese_ujis_as_latin1,
		stderr =>
			qr/ as raw bytes\nheader end matches file size\n(?:collected|resolved)/,
	};
	$todo = undef;
};
subtest 'CJK in EUC-JP parsed by guessing returns mojibake' => sub {
	command {
		args   => [qw(--encoding Guess t/encoding/README.gs550j)],
		stdout => qr//,
		stderr =>
			qr/ as raw bytes\nheader end matches file size\n(?:collected|resolved)/,
	};
	my $todo = todo 'String::Copyright documented to accept only strings';
	command {
		args   => [qw(--encoding Guess t/encoding/README.gs550j)],
		stdout => $japanese_ujis_as_latin1,