Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: f687de288f
Fetching contributors…

Cannot retrieve contributors at this time

97 lines (82 sloc) 3.278 kB
use 5.010;
use Test::More;
use App::QuoteCC;
use Encode;
use File::Slurp qw(slurp);
use File::Temp qw<tempdir tempfile>;
plan skip_all => "Need curl / gcc / lua to test"
unless
qx[ curl --version ] =~ /^curl \d+\..*\nProtocols:/s and
qx[ gcc --version ] =~ /Free Software Foundation/ and
qx[ lua -e 'require "posix"; print(string.format("The time is %s", os.time()));' ] =~ /^The time is \d+$/;
plan tests => 65;
my @test = (
{
url => 'http://v.nix.is/~failo/quotes.yml',
fmt => 'YAML',
},
{
url => 'http://www.trout.me.uk/quotes.txt',
fmt => 'Fortune',
}
);
sub test_quotes_encoding {
my ($output, $quote, $url) = @_;
ok($quote, "Got quote from $output --all");
cmp_ok(length($quote), '>', 1000, "All quotes were long enough");
if ($url =~ /failo/) {
like $quote, qr/mosque on Phobos/, "sanity check";
like $quote, qr/Blökkumaður/, "sanity check";
like $quote, qr/botti líka/, "sanity check";
}
}
for my $compiler (qw/Perl C Lua/) {
for my $test (@test) {
my $url = $test->{url};
my $fmt = $test->{fmt};
# Dir to store our stuff
my $dir = tempdir( "app-quotecc-XXXX", CLEANUP => 1, TMPDIR => 1 );
ok(-d $dir, "tempdir $dir exists");
my ($fh1, $quotes) = tempfile( DIR => $dir, SUFFIX => '.quotes', EXLOCK => 0 );
my ($fh2, $output) = tempfile( DIR => $dir, SUFFIX => '.' . lc($compiler), EXLOCK => 0 );
ok(-f $_, "tempfile $_ exists") for $quotes, $output;
my $cmd = qq[curl --user-agent 'App::QuoteCC/$App::QuoteCC::VERSION' -s '$url' --output '$quotes'];
system $cmd;
App::QuoteCC->new(
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];
system $cmd;
chomp(my $quote = qx[$output.exe]);
ok($quote, "Got quote from $output.exe");
chomp($quote = qx[$output.exe --all]);
ok($quote, "Got quote from $output.exe --all");
test_quotes_encoding($output, $quote, $url);
}
when ('Perl') {
my $raw = slurp($output);
unlike($raw, qr/require MIME::Base64/, "Data::Dump didn't use modules");
chomp(my $quote = qx[$^X $output]);
ok($quote, "Got quote from $^X $output");
cmp_ok(length($quote), '>', 5, "quote was long enough");
chomp($quote = qx[$^X $output --all]);
test_quotes_encoding($output, $quote, $url);
}
}
}
}
Jump to Line
Something went wrong with that request. Please try again.