view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

    ok($goto->cmd() =~ m#cd /var/log/syslog/#, 'Got the right modified command');
    };

GET_RIGHT_HOSTNAME_COMMAND: {
    my $goto = App::Goto->new({ config => $config, args => [qw#f cwd/#] });
    ok($goto->cmd() =~ m#log/FOO #, 'Got the right hostname-based command');
    };

GET_EVERYTHING_RIGHT: {
    my $goto = App::Goto->new({ config => $config, args => [qw/lo log/] });
    is($goto->cmd(), "ssh 127.0.0.1 -t 'cd /var/log/ && bash'", 'Everything looks good');
    };

done_testing;