One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

View File Name : path-segments.t

use strict;
use warnings;

use Test::More 'no_plan';

use URI ();

{
    my $u = URI->new("http://www.example.org/a/b/c");

    is_deeply [$u->path_segments], ['', qw(a b c)], 'path_segments in list context';
    is $u->path_segments, '/a/b/c', 'path_segments in scalar context';

    is_deeply [$u->path_segments('', qw(z y x))], ['', qw(a b c)], 'set path_segments in list context';
    is $u->path_segments('/i/j/k'), '/z/y/x', 'set path_segments in scalar context';

    $u->path_segments('', qw(q r s));
    is $u->path_segments, '/q/r/s', 'set path_segments in void context';
}

{
    my $u = URI->new("http://www.example.org/abc");
    $u->path_segments('', '%', ';', '/');
    is $u->path_segments, '/%25/%3B/%2F', 'escaping special characters';
}

{
    my $u = URI->new("http://www.example.org/abc;param1;param2");
    my @ps = $u->path_segments;
    isa_ok $ps[1], 'URI::_segment';
    $u->path_segments(@ps);
    is $u->path_segments, '/abc;param1;param2', 'dealing with URI segments';
}