Yet Another CPAN Grep

Image-DS9 ( D/DJ/DJERIUS/Image-DS9-v1.0.1.tar.gz, DJERIUS, 2023; MetaCPAN )

Image-DS9/t/wcs.t ( view source; MetaCPAN )

ND

$ds9->wcs( 'reset' );
$ds9->wcs( replace => $wcs );
my $ncoords = $ds9->crosshair( @coords );
isnt( $coords, $ncoords, 'wcs scalar' );
$ds9->wcs( 'reset' );
is( $coords, scalar $ds9->crosshair( @c

;
    $ds9->wcs( load => $wcsfile->stringify );
    my $ncoords = $ds9->crosshair( @coords );
    isnt( $coords, $ncoords, 'wcs scalar' );
    $ds9->wcs( 'reset' );
    is( $coords, scalar $ds9->cross

Image-DS9 ( D/DJ/DJERIUS/Image-DS9-v1.0.1.tar.gz, DJERIUS, 2023; MetaCPAN )

Image-DS9/t/contour.t ( view source; MetaCPAN )

 { @levels2 = $ds9->contour( 'levels' ) }, 'retrieve levels' )
          or bail_out $@;

        isnt( \@levels1, \@levels2, 'replaced levels' );

        # now load previous levels
        ok( lives

Image-DS9 ( D/DJ/DJERIUS/Image-DS9-v1.0.1.tar.gz, DJERIUS, 2023; MetaCPAN )

Image-DS9/t/zoom.t ( view source; MetaCPAN )

s( $ds9->zoom, 2, 'zoom' );

$ds9->zoom( 0 );
is( $ds9->zoom, $zval, '0' );

$ds9->zoom( 'out' );
isnt( $ds9->zoom, $zval, 'in' );

$ds9->zoom( 'in' );
is( $ds9->zoom, $zval, 'out' );



done_testing;