1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
#!/usr/bin/perl
use Modern::Perl;
use Test::More;
compile("gcc c/ch-1.c -o c/ch-1");
compile("g++ cpp/ch-1.cpp -o cpp/ch-1");
compile("fbc basic/ch-1.bas");
for ([1221 => 1], [101 => 1], [-101 => 0], [90 => 0]) {
my($in, $out) = @$_;
is capture( "perl perl/ch-1.pl $in"), "$out\n";
is capture("python python/ch-1.py $in"), "$out\n";
is capture("gforth forth/ch-1.fs $in"), "$out\n";
is capture( "c/ch-1 $in"), "$out\n";
is capture( "cpp/ch-1 $in"), "$out\n";
is capture( "basic/ch-1 $in"), "$out\n";
}
compile("gcc c/ch-2.c -o c/ch-2");
compile("g++ cpp/ch-2.cpp -o cpp/ch-2");
compile("fbc basic/ch-2.bas");
my $out = <<END;
-1
-1
END
is capture( "perl perl/ch-2.pl"), $out;
is capture("python python/ch-2.py"), $out;
is capture("gforth forth/ch-2.fs"), $out;
is capture( "c/ch-2" ), $out;
is capture( "cpp/ch-2" ), $out;
is capture( "basic/ch-2" ), $out;
done_testing;
sub capture {
my($cmd) = @_;
my $out = `$cmd`;
$out =~ s/[ \r\t]*\n/\n/g;
return $out;
}
sub compile {
my($cmd) = @_;
ok 0==system($cmd), $cmd;
}
|
