Image2D tests replace tapprox with is_pdl - #34 #393

PDLPorters · Oct 30, 2024 · 93b86bb · 93b86bb
1 parent 5bb5088
commit 93b86bb
Show file tree

Hide file tree

Showing 2 changed files with 74 additions and 165 deletions.
diff --git a/Basic/TestPDL.pm b/Basic/TestPDL.pm
@@ -174,8 +174,9 @@ Named after is() from L<Test::More>.
 
 sub is_pdl {
   require Test::Builder;
-  my ( $got, $expected, $arg ) = @_;
   my $tb = Test::Builder->new;
+  $tb->croak('error in arguments: > 3 given') if @_ > 3;
+  my ( $got, $expected, $arg ) = @_;
   $tb->croak('error in arguments: third argument is an ndarray')
     if eval { $arg->isa('PDL') };
   my $opt = { %DEFAULTS };