gistfile1.txt

use v6.c;
use Test;
use Native::Command;

sub true() is command { * }
sub ls($dir?, :$l, :$help) is command { * }

is(true().run.exitcode, 0);

# long switches :help -> --help
is(ls(:help).run(:out).exitcode, 0);
like(ls(:help).run(:out).out.lines[0], /Usage/);

# positionals will follow switches
is(ls('lib').run(:out).out.lines[0], 'Native');
# shortcut for a very common case, same as above
is(ls('lib').out.lines[0], 'Native');

# short switch (just 1 character) :l -> -l
like(ls('lib', :l).run(:out).out.lines[0], /total/);

done-testing;