The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Test::More;
use_ok "DateTime::Astro";

if (! exists $ENV{PERL_DATETIME_ASTRO_BACKEND} ||
    $ENV{PERL_DATETIME_ASTRO_BACKEND} eq 'XS')
{
    is DateTime::Astro::BACKEND(), "XS";
} else {
    is DateTime::Astro::BACKEND(), "PP";
}

done_testing;