From 0a0378c1130848c226a8ae496a336a6430a80deb Mon Sep 17 00:00:00 2001
From: Richard Kreckel <Richard.Kreckel@uni-mainz.de>
Date: Sat, 12 Aug 2000 21:59:17 +0000
Subject: [PATCH] - New file.

---
 cint/Makefile.am         |  2 +-
 cint/Makefile.in         |  2 +-
 cint/exam_mansamples.cpp |  4 ++--
 cint/exam_misc.cpp       | 11 +++++++++++
 cint/exam_paranoia.cpp   |  2 +-
 5 files changed, 16 insertions(+), 5 deletions(-)
 create mode 100755 cint/exam_misc.cpp

diff --git a/cint/Makefile.am b/cint/Makefile.am
index 5af0bca0..8d49963b 100644
--- a/cint/Makefile.am
+++ b/cint/Makefile.am
@@ -10,7 +10,7 @@ man_MANS = ginaccint.1
 ginaccint.bin: ginaccint.bin.cpp
 	(export CINTSYSDIR=$(CINTSYSDIR); $(MAKE) -f Makefile.makecint PATH=$(PATH):$(CINTSYSDIR))
 
-TESTS = exam_paranoia.cpp exam_mansamples.cpp
+TESTS = exam_paranoia.cpp exam_mansamples.cpp exam_misc.cpp
 
 EXTRA_DIST = $(man_MANS) $(TESTS)
 
diff --git a/cint/Makefile.in b/cint/Makefile.in
index 42d1ce27..fa7aac5b 100644
--- a/cint/Makefile.in
+++ b/cint/Makefile.in
@@ -111,7 +111,7 @@ ginaccint_SOURCES = ginaccint.cpp
 ginaccint_bin_SOURCES = ginaccint.bin.cpp
 man_MANS = ginaccint.1
 
-TESTS = exam_paranoia.cpp exam_mansamples.cpp
+TESTS = exam_paranoia.cpp exam_mansamples.cpp exam_misc.cpp
 
 EXTRA_DIST = $(man_MANS) $(TESTS)
 mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
diff --git a/cint/exam_mansamples.cpp b/cint/exam_mansamples.cpp
index 6703571b..6f1b404e 100755
--- a/cint/exam_mansamples.cpp
+++ b/cint/exam_mansamples.cpp
@@ -1,5 +1,5 @@
 #! ./run_exams --silent
-int result = 0;
+unsigned result = 0;
 symbol x("x"), y("y"), z("z");
 {
     ex a = pow(x,2)-x-2;
@@ -19,7 +19,7 @@ ex EulerNumber(unsigned n)
     const ex generator = pow(cosh(xi),-1);
     return generator.diff(xi,n).subs(xi==0);
 }
-if (EulerNumber(42) != ex(numeric("-10364622733519612119397957304745185976310201"))) {
+if (EulerNumber(42) != numeric("-10364622733519612119397957304745185976310201")) {
     ++result;
 }
 ex f = expand((x*y*z-1)*(x*y*z+3));
diff --git a/cint/exam_misc.cpp b/cint/exam_misc.cpp
new file mode 100755
index 00000000..d237e97e
--- /dev/null
+++ b/cint/exam_misc.cpp
@@ -0,0 +1,11 @@
+#! ./run_exams --silent
+unsigned result = 0;
+{
+    symbol a("a"), b("b");
+    ex e, f;
+    e = pow(a+b,200).expand();
+    f = e.subs(a == -b);
+    if (f != 0)
+        ++result;
+}
+exit(result);
diff --git a/cint/exam_paranoia.cpp b/cint/exam_paranoia.cpp
index d227545d..9852e449 100755
--- a/cint/exam_paranoia.cpp
+++ b/cint/exam_paranoia.cpp
@@ -1,5 +1,5 @@
 #! ./run_exams --silent
-int result = 0;
+unsigned result = 0;
 /*
  * Old Cint versions messed up unary and binary operators:
  */
-- 
2.44.0