view release on metacpan or  search on metacpan

t/compile-quotes.t  view on Meta::CPAN

            input => $quotes,
            input_format => $fmt,
            output => $output,
            output_format => $compiler,
        )->run;
        ok(-s $quotes, "$quotes is non-zero size");
        ok(-s $output, "$output is non-zero size");

        given ($compiler) {
            when ('Lua') {
                system "chmod +x $output";

                chomp(my $quote = qx[lua $output]);
                ok($quote, "Got quote from $output");

                chomp($quote = qx[lua $output --all]);
                ok($quote, "Got quote from $output --all");
                test_quotes_encoding($output, $quote, $url);
            }
            when ('C') {
                $cmd = qq[gcc -Wall $output -o $output.exe];