--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/interps/clc-intercal/CLC-INTERCAL-ICALC-1.-94.-2/t/01intercalc-oic.t	Sun Dec 09 19:30:08 2012 +0000
@@ -0,0 +1,51 @@
+# test the calculator in OIC mode
+
+# Copyright (c) 2006-2008 Claudio Calvelli, all rights reserved.
+
+# CLC-INTERCAL is copyrighted software. However, permission to use, modify,
+# and distribute it is granted provided that the conditions set out in the
+# licence agreement are met. See files README and COPYING in the distribution.
+
+require 't/run-calculator';
+
+my @tests = (
+    ['0-1-1m00', 'm00', '-1', '(0 - -1) / -1'],
+    ['-7.5.5-2m01', 'm01', '4', '(-7.5 - .5) / -2'],
+    ['m1m0.5m2', 'm02', '10', '(m01 - m00) / .5'],
+    ['m2m1m1m3', 'm03', '1.5', '(m02 - m01) / m01'],
+    ['6m012m4', 'm04', '1', '(6 - m01) / 2'],
+    ['.5m3-2m5', 'm05', 0.5, '(.5 - m03) / -2'],
+    # XXX more tests are necessary
+);
+
+my $maxtest = @tests;
+print "1..$maxtest\n";
+
+my ($pid, $read, $write) = run_calculator('oic');
+
+my $testnum = 1;
+for my $test (@tests) {
+    my ($cmd, $mem, $res, $calc) = @$test;
+    print $read "$cmd\n";
+    my $line = <$write>;
+    defined $line or die "Calculator: end of input\n";
+    chomp $line;
+    while ($line =~ /loading compiler/i) {
+	$line = <$write>;
+	defined $line or die "Calculator: end of input\n";
+	chomp $line;
+    }
+    my ($gm, $gr, $gc) = split(/\s+/, $line, 3);
+    my $not = 'not ';
+    if ($gm ne $mem) {
+	print STDERR "FAIL $testnum mem ($gm ne $mem)\n";
+    } elsif ($gr ne $res) {
+	print STDERR "FAIL $testnum res ($gr ne $res)\n";
+    } elsif ($gc ne $calc) {
+	print STDERR "FAIL $testnum res ($gc ne $calc)\n";
+    } else {
+	$not = '';
+    }
+    print "${not}ok ", $testnum++, "\n";
+}
+