Blob Blame History Raw
--- PDL-2.4.3/t/gis_proj.t.test	2006-07-26 21:34:29.000000000 -0600
+++ PDL-2.4.3/t/gis_proj.t	2007-07-31 12:15:15.000000000 -0600
@@ -68,7 +68,7 @@
 
 # Do the corners of a cyl eq map, and see what we get...
 print "\nCorners of a cylindrical equidistant projection:\n";
-my $cyl_eq = "+proj=eqc +lon_0=0";
+my $cyl_eq = "+proj=eqc +lon_0=0 +a=5.3049894774131808e-315";
 print "Perl level params: \'$cyl_eq\'\n";
 my $lon3 = double [-180.0, -180.0,  180.0,  180.0];
 my $lat3 = double [  90.0,  -90.0,   90.0,  -90.0];
--- PDL-2.4.3/t/xvals.t.test	1999-12-09 04:15:22.000000000 -0700
+++ PDL-2.4.3/t/xvals.t	2007-08-14 14:35:57.000000000 -0600
@@ -13,11 +13,11 @@
 $a0 = zeroes(3,2);
 # $a0->doflow();
 
- print $a0;
+# print $a0;
 
 $a1 = $a0->slice('(1)');
 
- print $a1;
+# print $a1;
 
 # $a0->dump(); $a1->dump();
 
@@ -27,19 +27,19 @@
 
 # $a1->dump();
 
- print $a1;
+# print $a1;
 
 $dummy = PDL::Core::new_or_inplace($a0);
-print $dummy;
+#print $dummy;
 $dummy2 = $dummy->xchg(0,0);
-print $dummy2;
-$dummy2->dump();
-$dummy->dump();
+#print $dummy2;
+#$dummy2->dump();
+#$dummy->dump();
 PDL::Primitive::axisvalues($dummy2);
-$dummy2->dump();
-$dummy->dump();
-print $dummy2;
-print $dummy;
+#$dummy2->dump();
+#$dummy->dump();
+#print $dummy2;
+#print $dummy;
 
 
 
@@ -55,24 +55,24 @@
 
 $a = xvals $a0;
 
-print $a;
+#print $a;
 
 ok(1,$a->at(0,0) == 0);
 ok(2,$a->at(1,0) == 1);
 ok(3,$a->at(2,0) == 2);
 ok(4,$a->at(1,1) == 1);
 
-$a = zeroes 5,10;
+#$a = zeroes 5,10;
 
-$b = yvals $a;
+#$b = yvals $a;
 
-$c = $b->copy();
+#$c = $b->copy();
 
-$d = $b-$c;
+#$d = $b-$c;
 
-print "$d,$b,$c";
+#print "$d,$b,$c";
 
 # print $a;
 
-print "OUTOUT\n";
+#print "OUTOUT\n";