--- 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";