Andrew's git - gitweb.git/blob - t/Git-SVN/Utils/add_path_to

   1#!/usr/bin/env perl
   2
   3use strict;
   4use warnings;
   5
   6use Test::More 'no_plan';
   7
   8use Git::SVN::Utils qw(
   9        add_path_to_url
  10);
  11
  12# A reference cannot be a hash key, so we use an array.
  13my @tests = (
  14        ["http://x.com", "bar"]                 => 'http://x.com/bar',
  15        ["http://x.com", ""]                    => 'http://x.com',
  16        ["http://x.com/foo/", undef]            => 'http://x.com/foo/',
  17        ["http://x.com/foo/", "/bar/baz/"]      => 'http://x.com/foo/bar/baz/',
  18        ["http://x.com", 'per%cent']            => 'http://x.com/per%25cent',
  19);
  20
  21while(@tests) {
  22        my($have, $want) = splice @tests, 0, 2;
  23
  24        my $args = join ", ", map { qq['$_'] } map { defined($_) ? $_ : 'undef' } @$have;
  25        my $name = "add_path_to_url($args) eq $want";
  26        is add_path_to_url(@$have), $want, $name;
  27}