view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

	* MANIFEST: Fix up MANIFEST for readline-guide.pod

2014-05-13  Rocky Bernstein <rocky@cpan.org>

	* CHANGES, lib/Term/ReadLine/Perl5.pm,
	lib/Term/ReadLine/Perl5/readline.pm: Get ready for release 1.31

2014-05-13  Rocky Bernstein <rocky@cpan.org>

	* t/10test-filelist.t: Skip some tests if we don't have getpwuid,
	e.g. Strawberry Perl on Windows

2014-05-13  Rocky Bernstein <rocky@cpan.org>

	* lib/Term/ReadLine/Perl5/readline-guide.pod,
	lib/Term/ReadLine/Perl5/readline.pm,
	lib/Term/ReadLine/Perl5/readline.pod: readline.pod ->
	readline-guide.pod and go over it

2014-05-13  Rocky Bernstein <rocky@cpan.org>

Changes  view on Meta::CPAN

1.33 2014-05-19 Henry Frankel
- Fix up ~ expansion via getpwent. For example. ~ro now may expand
  to ~rocky and~root. More POD in readline.pm

1.32 2014-05-14
- Remove a tilde expand test until BINGOS gets back to me on why
  it fails on his setup

1.31 2014-05-13

- Fix tilde expansion test on systems without getpwuid and where
  the initial bsd_glob expansion includes "/";
- Term::ReadLine::Perl5::readline.pod -> Term::ReadLine::Perl5::readline-guide.pod

1.30 2014-05-11 Happy Mother's day!

- rl_filename_list no longer adds classifier '*', @', '=' suffixes,
  but does include '/' for directories. Term::ReadLine::GNU and GNU
  Readline do not add these either. rl_filename_list handles some full
  tilde expansions, e.g. ~ and ~root, but not partial ones like ~ro,
  like GNU Readline does.

t/10test-filelist.t  view on Meta::CPAN

@results  = run_filename_list(cwd);
ok(@results, "should get a result expanding cwd");

@results  = run_filename_list(__FILE__);
cmp_ok(scalar @results, '>', 0, 'Get at least one expansion');
is($results[0], __FILE__, 'First entry should match what we passed in');

note('Assume that whoever is logged in to run this has a home directory');

if ($Term::ReadLine::Perl5::readline::have_getpwent) {
    my $name = getpwuid($<); my $tilde_name = '~' . $name;

    @results  = run_filename_list($tilde_name, 1);
    cmp_ok(scalar(@results), '>', 0, "Expansion for my login $tilde_name");

    my @results2  = run_filename_list('~');
    cmp_ok(scalar(@results), '>', 0, "Expansion for my login $tilde_name");

  SKIP: {
      skip 'Until BINGOS gets back to us', 1;
      # Home directory could have a trailing "/"; remove that;