Fix test of cgtsv (#27)

PDLPorters · Dec 7, 2024 · 4821c4a · 4821c4a
1 parent c399ce8
commit 4821c4a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,3 +1,5 @@
+- fix t/cgtsv.t (#27) - thanks @wlmb
+
 0.41 2024-11-26
 - remove support for PDL::Complex entirely
 

diff --git a/t/cgtsv.t b/t/cgtsv.t
@@ -23,9 +23,9 @@ for my $D (3..N+2) { #first differences
 
 for my $D (3..N+2){ #second differences
     #solve b_{n+1}-2{b_n}+b_{n-1}=1 with kinda homogeneous BCs
-    my $c=ones($D)*(1+i()); $c->(,(-1)).=0;
+    my $c=ones($D)*(1+i()); $c->((-1)).=0;
     my $d=-2*ones($D)*(1+i());
-    my $e=ones($D)*(1+i()); $e->(,(-1)).=0;
+    my $e=ones($D)*(1+i()); $e->((-1)).=0;
     my $b=ones($D)*(1-i());
     my $info=pdl(short,0);
     cgtsv($c, $d, $e, $b, $info);