← Back to branch summary

~ubuntu-branches/ubuntu/saucy/libfile-spec-perl/saucy-proposed

« back to all changes in this revision

Viewing changes to t/cwd.t

  • Committer: Bazaar Package Importer
  • Author(s): Damyan Ivanov, Martín Ferrari, gregor herrmann
  • Date: 2008-01-17 23:14:23 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20080117231423-ze9qr14qplbauhsy
Tags: 3.2700-1
[ Martín Ferrari ]
* New upstream release.
* debian/watch: added version mangle to cope with 2 and 4-digit long
  versions.
* debian/copyright: they have changed the copyright holder for the files
  grabbed from BSD, but the notice on the documentation remained. So I have
  put the two copyright holders (curse upstream).

[ gregor herrmann ]
* Add ${shlibs:Depends} to debian/control and dh_shlibdeps to debian/rules
  to fix a policy violation.
* New upstream release.
* debian/copyright: update years of copyright for ppport.h.
* debian/rules: install upstream changelog.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/cwd.t
135
135
# Cwd::chdir should also update $ENV{PWD}
136
136
dir_ends_with( $ENV{PWD}, $Test_Dir, 'Cwd::chdir() updates $ENV{PWD}' );
137
137
my $updir = File::Spec->updir;
138
 
Cwd::chdir $updir;
139
 
print "#$ENV{PWD}\n";
140
 
Cwd::chdir $updir;
141
 
print "#$ENV{PWD}\n";
142
 
Cwd::chdir $updir;
143
 
print "#$ENV{PWD}\n";
144
 
Cwd::chdir $updir;
145
 
print "#$ENV{PWD}\n";
146
 
Cwd::chdir $updir;
147
 
print "#$ENV{PWD}\n";
 
138
 
 
139
for (1..@test_dirs) {
 
140
  Cwd::chdir $updir;
 
141
  print "#$ENV{PWD}\n";
 
142
}
148
143
 
149
144
rmtree($test_dirs[0], 0, 0);
150
145
 
168
163
SKIP: {
169
164
    skip "no symlinks on this platform", 2+$EXTRA_ABSPATH_TESTS unless $Config{d_symlink};
170
165
 
 
166
    my $file = "linktest";
171
167
    mkpath([$Test_Dir], 0, 0777);
172
 
    symlink $Test_Dir, "linktest";
 
168
    symlink $Test_Dir, $file;
173
169
 
174
 
    my $abs_path      =  Cwd::abs_path("linktest");
175
 
    my $fast_abs_path =  Cwd::fast_abs_path("linktest");
176
 
    my $want          =  quotemeta( File::Spec->rel2abs( $Test_Dir ) );
 
170
    my $abs_path      =  Cwd::abs_path($file);
 
171
    my $fast_abs_path =  Cwd::fast_abs_path($file);
 
172
    my $want          =  quotemeta( File::Spec->rel2abs($Test_Dir) );
177
173
 
178
174
    like($abs_path,      qr|$want$|i);
179
175
    like($fast_abs_path, qr|$want$|i);
180
 
    like(Cwd::_perl_abs_path("linktest"), qr|$want$|i) if $EXTRA_ABSPATH_TESTS;
 
176
    like(Cwd::_perl_abs_path($file), qr|$want$|i) if $EXTRA_ABSPATH_TESTS;
181
177
 
182
178
    rmtree($test_dirs[0], 0, 0);
183
 
    1 while unlink "linktest";
 
179
    1 while unlink $file;
184
180
}
185
181
 
186
182
if ($ENV{PERL_CORE}) {