1 2 3 4 5 6 7 8 9 10 11 12
use strict; use Test::More; use xt::CLI; my $app = cli(); $app->run("version"); like $app->stdout, qr/carton $Carton::VERSION/; done_testing;