ꦫꦣꦺꦤ꧀ꦄꦤ꧀ꦠꦱꦺꦤ

PATH: usr / share / doc / perl-Test-Simple-0.98 / t

#!/usr/bin/perl -w

# Test to see if is_deeply() plays well with threads.

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

use strict;
use Config;

BEGIN {
    unless ( $] >= 5.008001 && $Config{'useithreads'} && 
             eval { require threads; 'threads'->import; 1; }) 
    {
        print "1..0 # Skip no working threads\n";
        exit 0;
    }
    
    unless ( $ENV{AUTHOR_TESTING} ) {
        print "1..0 # Skip many perls have broken threads.  Enable with AUTHOR_TESTING.\n";
        exit 0;
    }
}
use Test::More;

my $Num_Threads = 5;

plan tests => $Num_Threads * 100 + 6;

sub do_one_thread {
    my $kid = shift;
    my @list = ( 'x', 'yy', 'zzz', 'a', 'bb', 'ccc', 'aaaaa', 'z',
                 'hello', 's', 'thisisalongname', '1', '2', '3',
                 'abc', 'xyz', '1234567890', 'm', 'n', 'p' );
    my @list2 = @list;
    print "# kid $kid before is_deeply\n";

for my $j (1..100) {
        is_deeply(\@list, \@list2);
    }
    print "# kid $kid exit\n";
    return 42;
}

my @kids = ();
for my $i (1..$Num_Threads) {
    my $t = threads->new(\&do_one_thread, $i);
    print "# parent $$: continue\n";
    push(@kids, $t);
}
for my $t (@kids) {
    print "# parent $$: waiting for join\n";
    my $rc = $t->join();
    cmp_ok( $rc, '==', 42, "threads exit status is $rc" );
}

pass("End of test");

[-] new_ok.t [edit]
[-] skipall.t [edit]
[-] no_tests.t [edit]
[-] 00compile.t [edit]
[+] Builder
[-] buffer.t [edit]
[-] is_deeply_with_threads.t [edit]
[-] missing.t [edit]
[+] Simple
[-] circular_data.t [edit]
[-] fork.t [edit]
[-] thread_taint.t [edit]
[+] lib
[-] extra.t [edit]
[-] plan.t [edit]
[-] fail_one.t [edit]
[+] ..
[-] is_deeply_fail.t [edit]
[-] bad_plan.t [edit]
[-] pod.t [edit]
[-] pod-coverage.t [edit]
[-] plan_shouldnt_import.t [edit]
[-] no_plan.t [edit]
[-] exit.t [edit]
[-] BEGIN_use_ok.t [edit]
[-] died.t [edit]
[-] undef.t [edit]
[-] plan_bad.t [edit]
[-] More.t [edit]
[+] Tester
[-] dependents.t [edit]
[-] require_ok.t [edit]
[-] cmp_ok.t [edit]
[-] plan_skip_all.t [edit]
[-] extra_one.t [edit]
[-] import.t [edit]
[-] overload.t [edit]
[-] note.t [edit]
[-] fail-like.t [edit]
[-] is_deeply_dne_bug.t [edit]
[-] bail_out.t [edit]
[-] versions.t [edit]
[+] subtest
[-] overload_threads.t [edit]
[-] useing.t [edit]
[-] explain.t [edit]
[-] eq_set.t [edit]
[-] harness_active.t [edit]
[-] fail-more.t [edit]
[-] BEGIN_require_ok.t [edit]
[-] utf8.t [edit]
[-] diag.t [edit]
[-] plan_is_noplan.t [edit]
[-] todo.t [edit]
[-] simple.t [edit]
[-] 00test_harness_check.t [edit]
[-] dont_overwrite_die_handler.t [edit]
[-] threads.t [edit]
[-] plan_no_plan.t [edit]
[-] fail.t [edit]
[-] c_flag.t [edit]
[-] skip.t [edit]
[-] tbm_doesnt_set_exported_to.t [edit]
[-] filehandles.t [edit]
[-] use_ok.t [edit]