__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
use 5.008001;
use strict;
use warnings;
use Test::More 0.96;
use lib 't/lib';
use TestUtils qw/exception has_symlinks/;
use Path::Tiny;
my $dir = Path::Tiny->tempdir;
# identical contents in two files
my $file1a = $dir->child("file1b.txt");
my $file1b = $dir->child("file1a.txt");
for my $f ( $file1a, $file1b ) {
$f->spew("hello world");
}
# different contents
my $file2 = $dir->child("file2.txt");
$file2->spew("goodbye world");
# a directory, instead of a file
my $subdir = $dir->child("subdir");
$subdir->mkdir;
subtest "only files" => sub {
ok( $file1a->has_same_bytes($file1a), "same file" );
ok( $file1a->has_same_bytes($file1b), "different files, same contents" );
ok( !$file1a->has_same_bytes($file2), "different files, different contents" );
};
subtest "symlinks" => sub {
plan skip_all => "No symlink support"
unless has_symlinks();
my $file1c = $dir->child("file1c.txt");
symlink "$file1a" => "$file1c";
ok( $file1a->has_same_bytes($file1c), "file compared to self symlink" );
ok( $file1c->has_same_bytes($file1a), "self symlink compared to file" );
};
subtest "exception" => sub {
my $doesnt_exist = $dir->child("doesnt_exist.txt");
# Different OSes return different errors, so we just check for any error.
ok( exception { $file1a->has_same_bytes($doesnt_exist) },
"file->has_same_bytes(doesnt_exist)" );
ok( exception { $doesnt_exist->has_same_bytes($file1a) },
"doesnt_exist->has_same_bytes(file)" );
ok( exception { $file1a->has_same_bytes($subdir) },
"file->has_same_bytes(dir)" );
ok( exception { $subdir->has_same_bytes($file1a) },
"dir->has_same_bytes(file)" );
ok( exception { $subdir->has_same_bytes($subdir) },
"dir->has_same_bytes(dir)" );
ok( exception { $subdir->has_same_bytes($dir) },
"dir->has_same_bytes(different_dir)" );
};
done_testing;
#
# This file is part of Path-Tiny
#
# This software is Copyright (c) 2014 by David Golden.
#
# This is free software, licensed under:
#
# The Apache License, Version 2.0, January 2004
#
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| data | Folder | 0755 |
|
|
| fakelib | Folder | 0755 |
|
|
| lib | Folder | 0755 |
|
|
| 00-report-prereqs.dd | File | 4.52 KB | 0644 |
|
| 00-report-prereqs.t | File | 5.88 KB | 0644 |
|
| README | File | 214 B | 0644 |
|
| basename.t | File | 880 B | 0644 |
|
| basic.t | File | 9.06 KB | 0644 |
|
| children.t | File | 1.24 KB | 0644 |
|
| chmod.t | File | 1020 B | 0644 |
|
| digest.t | File | 1.25 KB | 0644 |
|
| exception.t | File | 1.26 KB | 0644 |
|
| exports.t | File | 674 B | 0644 |
|
| filesystem.t | File | 14.21 KB | 0644 |
|
| has_same_bytes.t | File | 2.04 KB | 0644 |
|
| input_output.t | File | 18.31 KB | 0644 |
|
| input_output_no_PU_UU.t | File | 579 B | 0644 |
|
| input_output_no_UU.t | File | 566 B | 0644 |
|
| locking.t | File | 1.37 KB | 0644 |
|
| mkdir.t | File | 1.52 KB | 0644 |
|
| mkpath.t | File | 1.46 KB | 0644 |
|
| mutable_tree_while_iterating.t | File | 1.43 KB | 0644 |
|
| normalize.t | File | 898 B | 0644 |
|
| overloading.t | File | 534 B | 0644 |
|
| parent.t | File | 3.06 KB | 0644 |
|
| recurse.t | File | 3.89 KB | 0644 |
|
| rel-abs.t | File | 7.88 KB | 0644 |
|
| sig_die.t | File | 533 B | 0644 |
|
| size.t | File | 4.76 KB | 0644 |
|
| subsumes.t | File | 3.16 KB | 0644 |
|
| symlinks.t | File | 1.51 KB | 0644 |
|
| temp.t | File | 4.99 KB | 0644 |
|
| visit.t | File | 447 B | 0644 |
|
| zz-atomic.t | File | 922 B | 0644 |
|
| zzz-spec.t | File | 6.62 KB | 0644 |
|