diff options
Diffstat (limited to 'challenge-286/ppentchev/tests/04-python-ch-2.t')
| -rw-r--r-- | challenge-286/ppentchev/tests/04-python-ch-2.t | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/challenge-286/ppentchev/tests/04-python-ch-2.t b/challenge-286/ppentchev/tests/04-python-ch-2.t new file mode 100644 index 0000000000..1d36b91a85 --- /dev/null +++ b/challenge-286/ppentchev/tests/04-python-ch-2.t @@ -0,0 +1,47 @@ +#!/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_order_game + test_order_game_count + test_order_game_default +); + +my $py3; +BEGIN { + $py3 = find_python3; +} + +if (!defined $py3) { + plan skip_all => 'no Python 3 interpreter found'; + exit 0; +} + +plan tests => 2; + +use constant PROG => 'python/scripts/ch-2.py'; + +my $py3_prog = [$py3, '-B', '-u', '--', PROG]; + +subtest order_game_default => sub { + test_order_game_default $py3_prog; +}; + +subtest order_game => sub { + plan tests => test_order_game_count; + for my $idx (1..test_order_game_count) { + subtest "run $idx" => sub { + test_order_game $py3_prog, $idx - 1; + }; + } +}; |
