view release on metacpan or  search on metacpan

t/aion/fs.t  view on Meta::CPAN

local ($::_g0 = do {path "Work1:Documents/Letters/Letter1.txt"}, $::_e0 = do {$path}); ::is_deeply $::_g0, $::_e0, '    path "Work1:Documents/Letters/Letter1.txt" # --> $path' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

local ($::_g0 = do {path {volume => "Work", file => "Letter1.pm", ext => "txt"}}, $::_e0 = "Work:Letter1.txt"); ::ok $::_g0 eq $::_e0, '    path {volume => "Work", file => "Letter1.pm", ext => "txt"} # => Work:Letter1.txt' or ::diag ::_string_diff($:...
}

{
    local $^O = "cygwin";

    my $path = {
        path   => "/cygdrive/c/Documents/Letters/Letter1.txt",
        dir    => "/cygdrive/c/Documents/Letters/",
        volume => "c",
        folder => "Documents/Letters",
        file   => "Letter1.txt",
        name   => "Letter1",
        ext    => "txt",
    };

local ($::_g0 = do {path "/cygdrive/c/Documents/Letters/Letter1.txt"}, $::_e0 = do {$path}); ::is_deeply $::_g0, $::_e0, '    path "/cygdrive/c/Documents/Letters/Letter1.txt" # --> $path' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef ...

local ($::_g0 = do {path {volume => "c", file => "Letter1.pm", ext => "txt"}}, $::_e0 = "/cygdrive/c/Letter1.txt"); ::ok $::_g0 eq $::_e0, '    path {volume => "c", file => "Letter1.pm", ext => "txt"} # => /cygdrive/c/Letter1.txt' or ::diag ::_string...
}

{
    local $^O = "dos";

    my $path = {
        path   => 'c:\Documents\Letters\Letter1.txt',
        dir    => 'c:\Documents\Letters\\',
        volume => 'c',
        folder => '\Documents\Letters',
        file   => 'Letter1.txt',
        name   => 'Letter1',
        ext    => 'txt',
    };

local ($::_g0 = do {path 'c:\Documents\Letters\Letter1.txt'}, $::_e0 = do {$path}); ::is_deeply $::_g0, $::_e0, '    path \'c:\Documents\Letters\Letter1.txt\' # --> $path' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

local ($::_g0 = do {path {volume => "c", file => "Letter1.pm", ext => "txt"}}, $::_e0 = 'c:Letter1.txt'); ::ok $::_g0 eq $::_e0, '    path {volume => "c", file => "Letter1.pm", ext => "txt"} # \> c:Letter1.txt' or ::diag ::_string_diff($::_g0, $::_e0...
local ($::_g0 = do {path {dir => 'r\t\\',  file => "Letter1",    ext => "txt"}}, $::_e0 = 'r\t\Letter1.txt'); ::ok $::_g0 eq $::_e0, '    path {dir => \'r\t\\\',  file => "Letter1",    ext => "txt"} # \> r\t\Letter1.txt' or ::diag ::_string_diff($::_...
}

{
    local $^O = "VMS";

    my $path = {
        path   => "DISK:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION",
        dir    => "DISK:[DIRECTORY.SUBDIRECTORY]",
        volume => "DISK:",
        disk   => "DISK",
        folder => "DIRECTORY.SUBDIRECTORY",
        card   => "FILENAME.EXTENSION",
        file   => "FILENAME.EXTENSION",
        name   => "FILENAME",
        ext    => "EXTENSION",
    };

local ($::_g0 = do {path "DISK:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION";}, $::_e0 = do {$path}); ::is_deeply $::_g0, $::_e0, '    path "DISK:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION"; # --> $path' or ::diag ::_struct_diff($::_g0, $::_e0); undef ...

    $path = {
        path        => 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION;7',
        dir         => 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]',
        node        => "NODE",
        accountname => "account",
        password    => "password",
        volume      => 'DISK$USER:',
        disk        => 'DISK',
        user        => 'USER',
        folder      => "DIRECTORY.SUBDIRECTORY",
        card        => "FILENAME.EXTENSION;7",
        file        => "FILENAME.EXTENSION",
        name        => "FILENAME",
        ext         => "EXTENSION",
        version     => 7,
    };

local ($::_g0 = do {path 'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION;7'}, $::_e0 = do {$path}); ::is_deeply $::_g0, $::_e0, '    path \'NODE["account password"]::DISK$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION...

local ($::_g0 = do {path {volume => "DISK:", file => "FILENAME.pm", ext => "EXTENSION"}}, $::_e0 = "DISK:FILENAME.EXTENSION"); ::ok $::_g0 eq $::_e0, '    path {volume => "DISK:", file => "FILENAME.pm", ext => "EXTENSION"} # => DISK:FILENAME.EXTENSIO...
local ($::_g0 = do {path {user => "USER", folder => "DIRECTORY.SUBDIRECTORY", file => "FILENAME.pm", ext => "EXTENSION"}}, $::_e0 = '$USER:[DIRECTORY.SUBDIRECTORY]FILENAME.EXTENSION'); ::ok $::_g0 eq $::_e0, '    path {user => "USER", folder => "DIRE...
}

{
    local $^O = "VOS";

    my $path = {
        path    => "%sysname#module1>SubDir>File.txt",
        dir     => "%sysname#module1>SubDir>",
        volume  => "%sysname#module1>",
        sysname => "sysname",
        module  => "module1",
        folder  => "SubDir",
        file    => "File.txt",
        name    => "File",
        ext     => "txt",
    };

local ($::_g0 = do {path $path->{path}}, $::_e0 = do {$path}); ::is_deeply $::_g0, $::_e0, '    path $path->{path} # --> $path' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

local ($::_g0 = do {path {volume => "%sysname#module1>", file => "File.pm", ext => "txt"}}, $::_e0 = "%sysname#module1>File.txt"); ::ok $::_g0 eq $::_e0, '    path {volume => "%sysname#module1>", file => "File.pm", ext => "txt"} # => %sysname#module1...
local ($::_g0 = do {path {module => "module1", file => "File.pm"}}, $::_e0 = "%#module1>File.pm"); ::ok $::_g0 eq $::_e0, '    path {module => "module1", file => "File.pm"} # => %#module1>File.pm' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g...
local ($::_g0 = do {path {sysname => "sysname", file => "File.pm"}}, $::_e0 = "%sysname#>File.pm"); ::ok $::_g0 eq $::_e0, '    path {sysname => "sysname", file => "File.pm"} # => %sysname#>File.pm' or ::diag ::_string_diff($::_g0, $::_e0); undef $::...
local ($::_g0 = do {path {dir => "dir>subdir>", file => "File.pm", ext => "txt"}}, $::_e0 = "dir>subdir>File.txt"); ::ok $::_g0 eq $::_e0, '    path {dir => "dir>subdir>", file => "File.pm", ext => "txt"} # => dir>subdir>File.txt' or ::diag ::_string...
}

{
    local $^O = "riscos";

    my $path = {
        path   => 'Filesystem#Special_Field::DiskName.$.Directory.Directory.File/Ext/Ext',
        dir    => 'Filesystem#Special_Field::DiskName.$.Directory.Directory.',
        volume => 'Filesystem#Special_Field::DiskName.',
        fstype => "Filesystem",
        option => "Special_Field",
        disk   => "DiskName",
        folder => '$.Directory.Directory',
        file   => "File/Ext/Ext",
        name   => "File",
        ext    => "Ext/Ext",
    };

local ($::_g0 = do {path $path->{path}}, $::_e0 = do {$path}); ::is_deeply $::_g0, $::_e0, '    path $path->{path} # --> $path' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

    $path = {
        path => '.$.Directory.Directory.',
        dir => '.$.Directory.Directory.',
        folder => '.$.Directory.Directory',
    };

local ($::_g0 = do {path '.$.Directory.Directory.'}, $::_e0 = do {$path}); ::is_deeply $::_g0, $::_e0, '    path \'.$.Directory.Directory.\' # --> $path' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

local ($::_g0 = do {path {volume => "ADFS::HardDisk.", file => "File"}}, $::_e0 = "ADFS::HardDisk.$.File"); ::ok $::_g0 eq $::_e0, '    path {volume => "ADFS::HardDisk.", file => "File"} # => ADFS::HardDisk.$.File' or ::diag ::_string_diff($::_g0, $:...
local ($::_g0 = do {path {folder => "x"}}, $::_e0 = "x."); ::ok $::_g0 eq $::_e0, '    path {folder => "x"}  # => x.' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
local ($::_g0 = do {path {dir    => "x."}}, $::_e0 = "x."); ::ok $::_g0 eq $::_e0, '    path {dir    => "x."} # => x.' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
}

{