(Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).
| pthread.t (PDL-2.082) | : | pthread.t (PDL-2.083) |
|---|
| | |
| skipping to change at line 195 | | skipping to change at line 195 |
|---|
| my ( $ans, $err ) = interpolate(8.5, $x, $y ); | | my ( $ans, $err ) = interpolate(8.5, $x, $y ); |
| }; | | }; |
| | |
| like( $@, qr/identical abscissas/ , "interpolate barf" ); | | like( $@, qr/identical abscissas/ , "interpolate barf" ); |
| | |
| # warning message segfaults when pthreaded if messages not deferred properly | | # warning message segfaults when pthreaded if messages not deferred properly |
| my $mask = zeroes(5,5); | | my $mask = zeroes(5,5); |
| local $SIG{__WARN__} = sub { die $_[0] }; | | local $SIG{__WARN__} = sub { die $_[0] }; |
| $mask->badvalue(1); | | $mask->badvalue(1); |
| eval{ PDL::gt($mask, 2, 0) }; | | eval{ PDL::gt($mask, 2, 0) }; |
|
| like( $@, qr/Badvalue is set to/, "safe barf" ); | | like( $@, qr/badvalue is set to/, "safe barf" ); |
| | |
| done_testing; | | done_testing; |
| | | |
| End of changes. 1 change blocks. |
|---|
| 1 lines changed or deleted | | 1 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 