Help language development. Donate to The Perl Foundation

Sway::PreviewKeys zef:CIAvash last updated on 2023-05-06

t/02-cli.rakutest
use v6.d;

use Test;
use Test::Run:auth<zef:CIAvash> :runs_ok;

plan 1;

my IO::Path:D $test_dir = $?FILE.IO.parent;
my IO::Path:D $module   = $test_dir.parent;
my IO::Path:D $script   = $module.add: 'bin', 'sway-preview-keys';

my @args = «$*EXECUTABLE -I $module $script»;

runs_ok :args«@args[] -v», :out(/'sway-preview-keys v' [\d+ %% '.'] ** 3 .+/), 'Prints version';