*** empty log message ***

for.cpp

@@ -47,36 +47,3 @@ eval_for(void)
 
 	push(symbol(NIL));
 }
-
-#if SELFTEST
-
-static char *s[] = {
-
-	"x=0",
-	"",
-
-	"y=2",
-	"",
-
-	"for(k,1,9,x=sqrt(2+x),y=2y/x)",
-	"",
-
-	"float(y)",
-	"3.14159",
-
-	/* ensure index expr is quoted */
-
-	"for(i,1,3,j=i)",
-	"",
-
-	"j",
-	"3",
-};
-
-void
-test_for(void)
-{
-	test(__FILE__, s, sizeof s / sizeof (char *));
-}
-
-#endif

prototypes.h

@@ -435,7 +435,6 @@ void test_floor(void);
 
 // for.cpp
 void eval_for(void);
-void test_for(void);
 
 // gamma.cpp
 void eval_gamma(void);

selftest

@@ -1513,6 +1513,9 @@ check(last = -2)
 floor(-5/2.0)
 check(last = -3)
 -- floor.cpp
+
+----- for -----
+
 clear
 trace=1
 x=0
@@ -1520,11 +1523,11 @@ y=2
 for(k,1,9,x=sqrt(2+x),y=2y/x)
 float(y)
 check(abs(last - 3.14159) < 0.00001)
--- for.cpp
 for(i,1,3,j=i)
-j
-check(last = 3)
--- for.cpp
+check(i = sqrt(-1))
+check(j = 3)
+
+
 clear
 trace=1
 Gamma(a)

selftest.cpp

@@ -54,7 +54,6 @@ selftest(void)
 	test_factorpoly();
 	test_float();
 	test_floor();
-	test_for();
 	test_gamma();
 	test_gcd();
 	test_imag();