view release on metacpan or  search on metacpan

t/10-controller_methods.t  view on Meta::CPAN

    }
    return $ret;
}

EOT

    print $fh $contents;
    close $fh;
   
    my $ret = `$^X $filename command`;
    my @ret = split m{$/}, $ret;
    is(scalar (@ret), 23);
    is($ret[0], 'Available: 6');
    is($ret[1], 'andanotherone:ok');
    is($ret[2], 'anothercommand:ok');
    is($ret[3], 'command:ok');
    is($ret[4], 'help:ok');
    is($ret[5], 'list_commands:ok');
    is($ret[6], 'yetanothercommand:ok');
    is($ret[7], '');
    is($ret[8], 'Available: 6');