challenge-286/ppentchev/tests/03-python-ch-1.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

#!/usr/bin/perl
# SPDX-FileCopyrightText: Peter Pentchev <roam@ringlet.net>
# SPDX-License-Identifier: BSD-2-Clause

use v5.16;
use strict;
use warnings;

use Test::More;

use lib 'tests/lib';

use PWCTest::Ch286 qw(find_python3 test_self_spammer);

my $py3;
BEGIN {
    $py3 = find_python3;
}

if (!defined $py3) {
    plan skip_all => 'no Python 3 interpreter found';
    exit 0;
}

plan tests => 1;

use constant PROG => 'python/scripts/ch-1.py';

subtest self_spammer => sub {
	test_self_spammer [$py3, '-B', '-u', '--', PROG], PROG;
};