|
996
|
1 # test the calculator in OIC mode
|
|
|
2
|
|
|
3 # Copyright (c) 2006-2008 Claudio Calvelli, all rights reserved.
|
|
|
4
|
|
|
5 # CLC-INTERCAL is copyrighted software. However, permission to use, modify,
|
|
|
6 # and distribute it is granted provided that the conditions set out in the
|
|
|
7 # licence agreement are met. See files README and COPYING in the distribution.
|
|
|
8
|
|
|
9 require 't/run-calculator';
|
|
|
10
|
|
|
11 my @tests = (
|
|
|
12 ['0-1-1m00', 'm00', '-1', '(0 - -1) / -1'],
|
|
|
13 ['-7.5.5-2m01', 'm01', '4', '(-7.5 - .5) / -2'],
|
|
|
14 ['m1m0.5m2', 'm02', '10', '(m01 - m00) / .5'],
|
|
|
15 ['m2m1m1m3', 'm03', '1.5', '(m02 - m01) / m01'],
|
|
|
16 ['6m012m4', 'm04', '1', '(6 - m01) / 2'],
|
|
|
17 ['.5m3-2m5', 'm05', 0.5, '(.5 - m03) / -2'],
|
|
|
18 # XXX more tests are necessary
|
|
|
19 );
|
|
|
20
|
|
|
21 my $maxtest = @tests;
|
|
|
22 print "1..$maxtest\n";
|
|
|
23
|
|
|
24 my ($pid, $read, $write) = run_calculator('oic');
|
|
|
25
|
|
|
26 my $testnum = 1;
|
|
|
27 for my $test (@tests) {
|
|
|
28 my ($cmd, $mem, $res, $calc) = @$test;
|
|
|
29 print $read "$cmd\n";
|
|
|
30 my $line = <$write>;
|
|
|
31 defined $line or die "Calculator: end of input\n";
|
|
|
32 chomp $line;
|
|
|
33 while ($line =~ /loading compiler/i) {
|
|
|
34 $line = <$write>;
|
|
|
35 defined $line or die "Calculator: end of input\n";
|
|
|
36 chomp $line;
|
|
|
37 }
|
|
|
38 my ($gm, $gr, $gc) = split(/\s+/, $line, 3);
|
|
|
39 my $not = 'not ';
|
|
|
40 if ($gm ne $mem) {
|
|
|
41 print STDERR "FAIL $testnum mem ($gm ne $mem)\n";
|
|
|
42 } elsif ($gr ne $res) {
|
|
|
43 print STDERR "FAIL $testnum res ($gr ne $res)\n";
|
|
|
44 } elsif ($gc ne $calc) {
|
|
|
45 print STDERR "FAIL $testnum res ($gc ne $calc)\n";
|
|
|
46 } else {
|
|
|
47 $not = '';
|
|
|
48 }
|
|
|
49 print "${not}ok ", $testnum++, "\n";
|
|
|
50 }
|
|
|
51
|
