[teyjus] r1171 committed - Test for issue60

[tey...@googlecode.com]

Revision: 1171
Author: fafo...@gmail.com
Date: Fri Jan 16 23:31:18 2015 UTC
Log: Test for issue60

https://code.google.com/p/teyjus/source/detail?r=1171

Added:
/branches/ocaml-builtins/source/test/io_tests/issue60
/branches/ocaml-builtins/source/test/io_tests/issue60/another.mod
/branches/ocaml-builtins/source/test/io_tests/issue60/another.sig
/branches/ocaml-builtins/source/test/io_tests/issue60/another.t
/branches/ocaml-builtins/source/test/io_tests/issue60/main.om

=======================================
--- /dev/null
+++ /branches/ocaml-builtins/source/test/io_tests/issue60/another.mod Fri
Jan 16 23:31:18 2015 UTC
@@ -0,0 +1,3 @@
+module another.
+test In :- open_in "test.tex" In, close_in In, close_in
+In.
=======================================
--- /dev/null
+++ /branches/ocaml-builtins/source/test/io_tests/issue60/another.sig Fri
Jan 16 23:31:18 2015 UTC
@@ -0,0 +1,2 @@
+sig another.
+type test in_stream -> o.
=======================================
--- /dev/null
+++ /branches/ocaml-builtins/source/test/io_tests/issue60/another.t Fri Jan
16 23:31:18 2015 UTC
@@ -0,0 +1,21 @@
+use lib '../lib';
+use strict;
+use Test::More tests => 1;
+
+my $TJSIM = "../../tjsim";
+my $PATH = "-p issue60/";
+my $MODULE = "another";
+my $code;
+my $ans;
+
+############################################
+############################################
+$code = <<'CODE';
+test X.
+CODE
+$ans = <<'ANS';
+
+The answer substitution:
+
+ANS
+same_answers( `$TJSIM -b $PATH --solve "$code" $MODULE\n`, $ans,"another");
=======================================
--- /dev/null
+++ /branches/ocaml-builtins/source/test/io_tests/issue60/main.om Fri Jan
16 23:31:18 2015 UTC
@@ -0,0 +1,1 @@
+MAIN = another