Attachment 161309 Details for Bug 226275 – Updated test patch

[patch] Updated test patch

perl-PDL-2.4.3-test.patch (text/plain), 1.65 KB, created by Orion Poplawski on 2007-08-14 21:10:42 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Orion Poplawski

Created: 2007-08-14 21:10:42 UTC

Size: 1.65 KB

patch

obsolete

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

Actions: View | Diff

Attachments on bug 226275: 160366 | 160367 | 160368 | 160369 | 160436 | 161017 | 161018 | 161309 | 293304