#!perl

use 5.010;
use strict;
use warnings;

use Perinci::CmdLine;
use Test::More 0.98;
use Test::Perinci::CmdLine qw(test_complete);

$Test::Perinci::CmdLine::CLASS = 'Perinci::CmdLine';

test_complete(
    args       => {url=>'/Perinci/Examples/test_completion'},
    comp_line0 => 'cmd --s1 ap^',
    result     => ['apple', 'apricot'],
);

DONE_TESTING:
done_testing;