byp4a55 professor6T9

Linux host.videowhizz.saglus.com 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64
Apache
67.43.5.91

File Name : circular_data.t

#!/usr/bin/perl -w

# Test is_deeply and friends with circular data structures [rt.cpan.org 7289]

BEGIN {
    if( $ENV{PERL_CORE} ) {
        chdir 't';
        @INC = ('../lib', 'lib');
    }
    else {
        unshift @INC, 't/lib';
    }
}

use strict;
use Test::More tests => 11;

my $a1 = [ 1, 2, 3 ];
push @$a1, $a1;
my $a2 = [ 1, 2, 3 ];
push @$a2, $a2;

is_deeply $a1, $a2;
ok( eq_array ($a1, $a2) );
ok( eq_set   ($a1, $a2) );

my $h1 = { 1=>1, 2=>2, 3=>3 };
$h1->{4} = $h1;
my $h2 = { 1=>1, 2=>2, 3=>3 };
$h2->{4} = $h2;

is_deeply $h1, $h2;
ok( eq_hash  ($h1, $h2) );

my ($r, $s);

$r = \$r;
$s = \$s;

ok( eq_array ([$s], [$r]) );

{
    # Classic set of circular scalar refs.
    my($a,$b,$c);
    $a = \$b;
    $b = \$c;
    $c = \$a;

my($d,$e,$f);
    $d = \$e;
    $e = \$f;
    $f = \$d;

is_deeply( $a, $a );
    is_deeply( $a, $d );
}

{
    # rt.cpan.org 11623
    # Make sure the circular ref checks don't get confused by a reference 
    # which is simply repeating.
    my $a = {};
    my $b = {};
    my $c = {};

is_deeply( [$a, $a], [$b, $c] );
    is_deeply( { foo => $a, bar => $a }, { foo => $b, bar => $c } );
    is_deeply( [\$a, \$a], [\$b, \$c] );
}

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2016-01-12 03:00:07
..	dir	-	root/root	0755	2016-01-12 03:00:07
Builder	dir	-	root/root	0755	2016-01-12 03:00:07
Simple	dir	-	root/root	0755	2016-01-12 03:00:07
Tester	dir	-	root/root	0755	2016-01-12 03:00:07
lib	dir	-	root/root	0755	2016-01-12 03:00:07
subtest	dir	-	root/root	0755	2016-01-12 03:00:07
00compile.t	text/plain	982 B	root/root	0644	2011-01-09 11:05:12
00test_harness_check.t	text/plain	764 B	root/root	0644	2010-12-10 05:26:03
BEGIN_require_ok.t	text/plain	463 B	root/root	0644	2010-12-10 05:26:03
BEGIN_use_ok.t	text/plain	388 B	root/root	0644	2010-12-10 05:26:03
More.t	text/plain	5.1 KB	root/root	0644	2010-12-10 05:26:04
bad_plan.t	text/plain	495 B	root/root	0644	2010-12-10 05:26:03
bail_out.t	text/plain	660 B	root/root	0644	2011-02-23 03:35:25
buffer.t	text/plain	424 B	root/root	0644	2010-12-10 05:26:03
c_flag.t	text/plain	417 B	root/root	0644	2010-12-10 05:26:03
circular_data.t	text/plain	1.17 KB	root/root	0644	2010-12-10 05:26:03
cmp_ok.t	text/plain	1.54 KB	root/root	0644	2010-12-10 05:26:03
dependents.t	text/plain	939 B	root/root	0644	2011-02-23 03:35:25
diag.t	text/plain	1.4 KB	root/root	0644	2011-02-23 03:35:25
died.t	text/plain	848 B	root/root	0644	2011-02-23 03:35:25
dont_overwrite_die_handler.t	text/plain	353 B	root/root	0644	2011-02-23 03:35:25
eq_set.t	text/plain	562 B	root/root	0644	2010-12-10 05:26:03
exit.t	text/plain	2.98 KB	root/root	0644	2011-02-23 03:35:25
explain.t	text/plain	582 B	root/root	0644	2010-12-10 05:26:03
extra.t	text/plain	958 B	root/root	0644	2011-02-23 03:35:25
extra_one.t	text/plain	869 B	root/root	0644	2011-02-23 03:35:25
fail-like.t	text/plain	1.52 KB	root/root	0644	2011-02-23 03:35:25
fail-more.t	text/plain	10.37 KB	root/root	0644	2011-02-23 03:35:25
fail.t	text/plain	1.04 KB	root/root	0644	2011-02-23 03:35:25
fail_one.t	text/plain	697 B	root/root	0644	2011-02-23 03:35:25
filehandles.t	text/plain	290 B	root/root	0644	2011-02-23 03:35:25
fork.t	text/plain	574 B	root/root	0644	2010-12-10 05:26:04
harness_active.t	text/plain	1.35 KB	root/root	0644	2010-12-10 05:26:04
import.t	text/plain	244 B	root/root	0644	2010-12-10 05:26:04
is_deeply_dne_bug.t	text/plain	887 B	root/root	0644	2010-12-10 05:26:04
is_deeply_fail.t	text/plain	11.25 KB	root/root	0644	2011-02-23 03:35:25
is_deeply_with_threads.t	text/plain	1.4 KB	root/root	0644	2011-02-23 03:35:25
missing.t	text/plain	1.03 KB	root/root	0644	2011-02-23 03:35:25
new_ok.t	text/plain	705 B	root/root	0644	2010-12-10 05:26:04
no_plan.t	text/plain	664 B	root/root	0644	2011-02-23 03:35:25
no_tests.t	text/plain	782 B	root/root	0644	2011-02-23 03:35:25
note.t	text/plain	416 B	root/root	0644	2010-12-10 05:26:04
overload.t	text/plain	2.13 KB	root/root	0644	2010-12-10 05:26:04
overload_threads.t	text/plain	1.04 KB	root/root	0644	2011-02-23 03:35:25
plan.t	text/plain	474 B	root/root	0644	2010-12-10 05:26:04
plan_bad.t	text/plain	1.05 KB	root/root	0644	2011-02-23 03:35:25
plan_is_noplan.t	text/plain	404 B	root/root	0644	2011-02-23 03:35:25
plan_no_plan.t	text/plain	794 B	root/root	0644	2010-12-10 05:26:04
plan_shouldnt_import.t	text/plain	294 B	root/root	0644	2010-12-10 05:26:04
plan_skip_all.t	text/plain	190 B	root/root	0644	2010-12-10 05:26:04
pod-coverage.t	text/plain	793 B	root/root	0644	2011-02-23 03:35:25
pod.t	text/plain	149 B	root/root	0644	2010-12-10 05:26:04
require_ok.t	text/plain	786 B	root/root	0644	2010-12-10 05:26:04
simple.t	text/plain	200 B	root/root	0644	2011-02-23 03:35:25
skip.t	text/plain	1.9 KB	root/root	0644	2010-12-10 05:26:04
skipall.t	text/plain	481 B	root/root	0644	2011-02-23 03:35:25
tbm_doesnt_set_exported_to.t	text/plain	457 B	root/root	0644	2010-12-10 05:26:04
thread_taint.t	text/plain	122 B	root/root	0644	2010-12-10 05:26:04
threads.t	text/plain	629 B	root/root	0644	2011-02-23 03:35:25
todo.t	text/plain	3.28 KB	root/root	0644	2010-12-10 05:26:04
undef.t	text/plain	1.84 KB	root/root	0644	2010-12-10 05:26:04
use_ok.t	text/plain	1.42 KB	root/root	0644	2010-12-10 05:26:04
useing.t	text/plain	365 B	root/root	0644	2010-12-10 05:26:04
utf8.t	text/plain	1.25 KB	root/root	0644	2010-12-21 04:33:39
versions.t	text/plain	482 B	root/root	0644	2010-12-10 05:26:04

Team Anon Force

https://t.me/Professor6T9x