← Back to branch summary

~ubuntu-branches/ubuntu/raring/libfile-spec-perl/raring

« back to all changes in this revision

Viewing changes to t/cwd.t

  • Committer: Bazaar Package Importer
  • Author(s): Damyan Ivanov
  • Date: 2008-01-14 12:42:45 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20080114124245-0t9wefk1cx22b72b
Tags: 3.2501-3
* Drop (>= 0.19) from libmodule-build-perl Build-Dependency oldstable has
  0.26 and versioned B-D breaks building with perl-modules 5.10 (which
  includes Module::Build)
* add ppport.h licensing/copyright to debian/copyright

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/cwd.t
173
173
 
174
174
    my $abs_path      =  Cwd::abs_path("linktest");
175
175
    my $fast_abs_path =  Cwd::fast_abs_path("linktest");
176
 
    my $want          =  File::Spec->catdir("t", $Test_Dir);
 
176
    my $want          =  quotemeta( File::Spec->rel2abs( $Test_Dir ) );
177
177
 
178
 
    like($abs_path,      qr|$want$|);
179
 
    like($fast_abs_path, qr|$want$|);
180
 
    like(Cwd::_perl_abs_path("linktest"), qr|$want$|) if $EXTRA_ABSPATH_TESTS;
 
178
    like($abs_path,      qr|$want$|i);
 
179
    like($fast_abs_path, qr|$want$|i);
 
180
    like(Cwd::_perl_abs_path("linktest"), qr|$want$|i) if $EXTRA_ABSPATH_TESTS;
181
181
 
182
182
    rmtree($test_dirs[0], 0, 0);
183
 
    unlink "linktest";
 
183
    1 while unlink "linktest";
184
184
}
185
185
 
186
186
if ($ENV{PERL_CORE}) {