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